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

機能
テキスト形式ファイルをクローズします。
JP1/Script 07-50以降では,ラージファイルが使用できます。
形式

TextClose ( 〔FileId〕 )

指定項目
FileId
ファイル識別子を数値,または値を格納した変数名で指定します。
このファイル識別子は,TextOpenコマンドで実行結果として返される値です。
この値は省略できます。省略,または0の場合,オープン中のファイルをすべてクローズします。
説明
指定されたファイル識別子のテキスト形式ファイルをクローズします。コマンドが正常に実行された場合は真(True)を,エラーが発生した場合は偽(False)を,コマンドの実行結果として返します。

Dim  file1 ,file2
file1 = TextOpen ( _BIN_+"Readme.txt" ,ReadOnly )
If  file1 = 0  Then
 MessageBox ( _BIN_+"Readme.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以降