Loc-Funktion

2024-10-16

Gibt einen Long-Wert zurück, der die aktuelle Lese-/Schreibposition in einer geöffneten Datei angibt.

Syntax

Loc(filenumber)

Das erforderliche Filenumber-Argument ist eine beliebige gültige Integer-Dateinummer.

Hinweise

Im Folgenden wird der Rückgabewert für jede Dateizugriffsmethode beschrieben:

Modus	Rückgabewert
Zufällig	Nummer des letzten Datensatzes, der aus der Datei gelesen oder in sie geschrieben wurde.
Sequenziell	Aktuelle Byteposition in der Datei geteilt durch 128. Informationen, die durch Loc für sequenzielle Dateien zurückgegeben werden, werden allerdings weder verwendet noch benötigt.
Binär	Position des letzten gelesenen oder geschriebenen Bytes.

Beispiel

In diesem Beispiel wird die Loc -Funktion verwendet, um die aktuelle Lese-/Schreibposition in einer geöffneten Datei zurückzugeben. Im Beispiel wird angenommen, dass TESTFILE eine Textdatei mit einigen Zeilen Beispieldaten ist.

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

Siehe auch

Funktionen (Visual Basic for Applications)

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.

Freigeben über