Seek-Funktion

  • Artikel

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 Recordenthä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.