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

8.5.5 TextClose （テキストファイルをクローズする）

8.5.5　TextClose （テキストファイルをクローズする）