8.5.9 GetTextPosition (読み書きの開始位置を返す)
- 機能
-
テキスト形式ファイルの現在の読み書き開始位置を返します。
- 形式
GetTextPosition ( FileId )
- 指定項目
-
- FileId
-
ファイル識別子を数値,または値を格納した変数名で指定します。
このファイル識別子は,TextOpenコマンドで実行結果として返される値です。
- 説明
-
指定されたファイル識別子のテキスト形式ファイルの現在の読み書き開始位置を,先頭を0とした値をバイト単位で取得します。コマンドが正常に実行された場合は現在の読み書き開始位置を,エラーが発生した場合は長さ0の文字列("")を,コマンドの実行結果として返します。
読み書き開始位置が2,147,483,647を超える場合は,エラーとなります。
- 例
' 実行フォルダ下のテキストファイル"Loging.txt"内の文字列 ' "開始"を"スクリプト実行開始"に書き換える。 Dim file1 file1 = TextOpen ( _BIN_+"Loging.txt" ,ReadWrite ) If file1 = 0 Then MessageBox ( _BIN_+"Loging.txtのオープンに失敗" ,OK ) Else Dim line ,position ,buff For line = 1 To 10 ' 読み書き開始位置を取得する position = GetTextPosition ( file1 ) If TextRead ( file1 ,buff ) Then If buff = "開始" Then ' 取得した読み書き開始位置に上書きする TextWrite ( file1 ,"スクリプト実行開始" ,True ,position ) End Else Exit For End Next TextClose ( file1 ) End
- 対象バージョン
-
JP1/Script 05-00以降