Seek
Seek は、(読み取り位置または書き込み位置から) ファイル内の別の位置に移動するために使用します。
構文
Seek(Distance, Method)
戻り値
ファイル内の現在の位置
詳しい情報
Distance は、カーソルを移動するバイト数を示します。
Method には、次のいずれかを指定できます。
- 0 - ファイルの先頭から指定した距離だけ、カーソルを移動します。
- 1 - ファイル内の現在の位置から指定した距離だけ、カーソルを移動します。
- 2 - ファイルの最後から指定した距離だけ、カーソルを移動します。
例
このスクリプトは、ファイルの先頭から 50 文字分、カーソルを移動した後、hosts ファイルの内容を表示します。
Function Main
Dim textfile As Object
Set textfile = File.Connect("127.0.0.1")
If textfile.Open("c:\windows\system32\drivers\etc\hosts", GENERIC_READ, Open_Existing) Then
Textfile.Seek 50,0
echo(textfile.read(1024))
textfile.Close
End If
End Function