Loc-FunktionLoc function

Gibt einen Long-Wert zurück, der die aktuelle Lese-/Schreibposition in einer geöffneten Datei angibt.Returns a Long specifying the current read/write position within an open file.

SyntaxSyntax

Loc (Filenumber)Loc(filenumber)

Das erforderliche Filenumber - Argument ist eine beliebige gültige ganzzahlige Dateinummer.The required filenumber argument is any valid Integer file number.

HinweiseRemarks

Im Folgenden wird der Rückgabewert für jede Dateizugriffsmethode beschrieben:The following describes the return value for each file access mode:

ModusMode RückgabewertReturn value
RandomRandom Nummer des letzten Datensatzes, der aus der Datei gelesen oder in sie geschrieben wurde.Number of the last record read from or written to the file.
SequenziellSequential Aktuelle Byte-Position in der Datei dividiert durch 128.Current byte position in the file divided by 128. Von Loc für sequenzielle Dateien zurückgegebene Informationen werden jedoch weder verwendet, noch sind Sie erforderlich.However, information returned by Loc for sequential files is neither used nor required.
BinärdateienBinary Position des letzten gelesenen oder geschriebenen Bytes.Position of the last byte read or written.

BeispielExample

In diesem Beispiel wird die Loc -Funktion verwendet, um die aktuelle Lese-/Schreibposition in einer geöffneten Datei zurückzugeben.This example uses the Loc function to return the current read/write position within an open file. Es wird davon ausgegangen, dass es sich bei TESTFILE um eine Textdatei mit einigen Zeilen von Beispieldaten handelt.This example assumes that TESTFILE is a text file with a few lines of sample data.

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 auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.