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以降