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

ページの先頭へ

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

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