テキスト形式ファイルの読み書き開始位置をファイルの先頭，または最後に移動します。JP1/Script 07-51以降では，ラージファイルが使用できます。

TextSeek ( FileId 〔, Point〕 )

FileId

ファイル識別子を数値，または値を格納した変数名で指定します。

このファイル識別子は，TextOpenコマンドで実行結果として返される値です。

なお，この項目を指定する場合は，TextOpenコマンドのファイルオープン時の動作には，WriteOnly（ファイルを書き込みモードでオープン）以外を指定してください。

Point

読み書き開始位置を次の値で指定します。この値は省略できます。省略した場合，ToBeginを仮定します。

値	意味
ToBegin	ファイルの先頭に移動します。
ToEnd	ファイルの最後に移動します。

指定したファイル識別子のテキスト形式ファイルに対し読み書き開始位置を指定した位置に移動します。コマンドが正常に実行された場合は真（True）を，エラーが発生した場合は偽（False）を，コマンドの実行結果として返します。

' カレントディレクトリ下のテキストファイル"ABC.TXT"の最後に"** END OF FILE **"と書き込む。
Dim  file1
file1 = TextOpen ( _BIN_+"ABC.TXT" ,ReadWrite )
If  file1 = 0  Then
  Message( Target_DIspOn, "実行結果" ,_BIN_+"ABC.TXTのオープンに失敗" )
Else
  If  TextSeek ( file1 ,ToEnd )  Then
    TextWrite ( file1 ,"** END OF FILE **" ,False )
  End
  TextClose ( file1 )
End