Seek-Funktion
Gibt einen Long-Wert zurück, der die aktuelle Lese-/Schreibposition in einer Datei angibt, die mit der Open-Anweisung geöffnet wurde.
Syntax
Seek(filenumber)
Das erforderliche Filenumber-Argument ist eine ganze Zahl, die eine gültige Dateinummer enthält.
HinwBemerkungeneise
Seek gibt einen Wert zwischen 1 und 2.147.483.647 zurück (entspricht 2^31 - 1), einschließlich.
Im Folgenden werden die Rückgabewerte für die entsprechenden Dateizugriffsmodi beschrieben.
Modus | Rückgabewert |
---|---|
Zufällig | Nummer des nächsten gelesenen oder geschriebenen Datensatzes. |
Binary, Output, Append, Input | Die Byteposition, an der die nächste Operation stattfindet. Das erste Byte in einer Datei befindet sich an Position 1, das zweite an Position 2 usw. |
Beispiel
In diesem Beispiel wird die Seek -Funktion verwendet, um die aktuelle Dateiposition zurückzugeben. Im Beispiel wird davon ausgegangen, dass eine Datei ist, TESTFILE
die Datensätze des benutzerdefinierten Typs Record
enthält.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Bei Dateien, die im Zufälligen Modus geöffnet werden, gibt Seek die Nummer des nächsten Datensatzes zurück.
Dim MyRecord As Record ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
Debug.Print Seek(1) ' Print record number to the Immediate window.
Loop
Close #1 ' Close file.
Bei Dateien, die in einem anderen als dem Random-Modus geöffnet wurden, gibt Seek die Byteposition zurück, an der die nächste Operation erfolgt. Angenommen, es TESTFILE
handelt sich um eine Datei mit einigen Textzeilen.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
Debug.Print Seek(1) ' Print byte position to the Immediate window.
Loop
Close #1 ' Close file.
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.