8.5.9 GetTextPosition読み書きの開始位置を返す

機能
テキスト形式ファイルの現在の読み書き開始位置を返します。
形式

GetTextPosition ( FileId )

指定項目
FileId
ファイル識別子を数値,または値を格納した変数名で指定します。
このファイル識別子は,TextOpenコマンドで実行結果として返される値です。
説明
指定されたファイル識別子のテキスト形式ファイルの現在の読み書き開始位置を,先頭を0とした値で取得します。コマンドが正常に実行された場合は現在の読み書き開始位置を,エラーが発生した場合は長さ0の文字列("")を,コマンドの実行結果として返します。
読み書き開始位置が2,147,483,647を超える場合は,エラーとなります。

' 実行フォルダ下のテキストファイル"Readme.txt"から読み込んだデータが,
' "JP1/Scriptについて"であれば" JP1/Scriptの説明 "に書き換える。
Dim  file1
file1 = TextOpen ( _BIN_+"Readme.txt" ,ReadWrite )
If  file1 = 0  Then
 MessageBox ( _BIN_+"Readme.txtのオープンに失敗" ,OK )
Else
 Dim  line ,position ,buff
 For  line = 1 To 10
   position = GetTextPosition ( file1 )
   If  TextRead ( file1 ,buff )  Then
     If  buff = "JP1/Scriptについて"  Then
       TextWrite ( file1 ," JP1/Scriptの説明 " ,True ,position )
     End
   Else
     Exit For
   End
 Next
 TextClose ( file1 )
End

対象バージョン
JP1/Script 05-00以降