TextOpen(テキストファイルをオープンする)

機能

テキスト形式ファイルをオープンします。JP1/Script07-51以降では,ラージファイルが使用できます。

形式

TextOpen ( FilePath 〔, Mode〕 )

指定項目

FilePath

テキスト形式ファイル名のフルパスを文字列,または値を格納した変数名で指定します。

Mode

ファイルオープン時の動作を次の値で指定します。

意味
Createファイルを無条件に作成する。
ReadOnlyファイルを読み込みモードでオープンする。
WriteOnlyファイルを書き込みモードでオープンする。
ReadWriteファイルを読み書きモードでオープンする。

ModeにReadOnlyを指定した場合は共用モードで,Cretate,WriteOnly,およびReadWriteを指定した場合は排他モードでオープンします。ただし,HP-UX,Solaris,Linuxの場合は,スクリプト内で使用するファイルだけ排他になります。

この値は省略できます。省略した場合,Createを仮定します。

説明

指定したテキスト形式ファイルをオープンします。コマンドが正常に実行された場合はファイル識別子を,エラーが発生した場合は0を,コマンドの実行結果として返します。

またコマンドが正常に実行された場合は,現在の読み書き開始位置は先頭の0になります。

' _BIN_+ABC.TXTファイルをオープンし,正常なら1レコード入力する。
Dim  file1
file1 = TextOpen ( _BIN_+"ABC.TXT" ,ReadOnly )
If  file1 = 0  Then
 Message( Target_DispOn, "実行結果", _BIN_+"ABC.TXTのオープンに失敗" )
Else
 Dim  buff1
 If  TextRead ( file1 ,buff )  Then
   Message( Target_DispOn, "実行結果", buff )
 End
 TextClose ( file1 )
End