8.5.5 TextClose （テキストファイルをクローズする）
- 機能
-
テキスト形式ファイルをクローズします。
JP1/Script 07-50以降では，ラージファイルが使用できます。
- 形式
TextClose ( 〔FileId〕 )
- 指定項目
-
- FileId
-
ファイル識別子を数値，または値を格納した変数名で指定します。
このファイル識別子は，TextOpenコマンドで実行結果として返される値です。
この値は省略できます。省略，または0の場合，オープン中のファイルをすべてクローズします。
- 説明
-
指定されたファイル識別子のテキスト形式ファイルをクローズします。コマンドが正常に実行された場合は真（True）を，エラーが発生した場合は偽（False）を，コマンドの実行結果として返します。
- 例
' Loging.txtを読み込み，その内容をBackup.txtに書き込む。 Dim file1 ,file2 file1 = TextOpen ( _BIN_+"Loging.txt" ,ReadOnly ) If file1 = 0 Then MessageBox ( _BIN_+"Loging.txtのオープンに失敗" ,OK ) Exit End file2 = TextOpen ( _TEMP_+"Backup.txt" ,Create ) If file2 = 0 Then MessageBox ( _TEMP_+"Backup.txtのオープンに失敗" ,OK ) TextClose ( file1 ) Exit End Dim buff1 If TextRead ( file1 ,buff1 ) Then TextWrite ( file2 ,buff1 ) End TextClose ( file1 ) TextClose ( file2 )
- 対象バージョン
-
JP1/Script 05-00以降