Seek
Mit Seek können Sie die Schreib-/Leseposition innerhalb der Datei ändern.
Syntax
Seek(Entfernung, Methode)
Rückgabewert
Aktuelle Position innerhalb der Datei
Weitere Informationen
Entfernung bestimmt die Anzahl der Zeichen, um die Sie den Cursor verschieben möchten.
Für Methode können Sie folgende Werte angeben:
- 0 – Cursor vom Dateianfang um die angegebene Anzahl Bytes verschieben
- 1 – Cursor von der aktuellen Position aus um die angegebene Anzahl Bytes bewegen
- 2 – Cursor vom Dateiende aus um die angegebene Anzahl Bytes bewegen
Beispiel
Das folgende Skript zeigt den Inhalt der Datei hosts an, nachdem der Cursor um 50 Zeichen Richtung Dateiende verschoben wurde:
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