Loc-Funktion
Hinweis: Die in diesem Thema beschriebenen Funktionen, Methoden, Objekte oder Eigenschaften sind deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandkastenmodus ausgeführt wird, wodurch die Auswertung potenziell unsicherer Ausdrücke verhindert wird. Um weitere Informationen zum Sandbox-Modus zu erhalten, suchen Sie in der Hilfe nach „Sandbox-Modus".
Gibt einen Long zurück, der die aktuelle Lese-/Schreibposition innerhalb einer geöffneten Datei angibt.
Syntax
Loc( Dateinummer )
Das erforderliche filenumber- Argument ist eine beliebige gültige Integer-Dateinummer.
Bemerkungen
Im Folgenden wird der Rückgabewert für jeden Dateizugriffsmodus beschrieben:
Modus | Rückgabewert |
Zufällig | Nummer des letzten Datensatzes, der aus der Datei gelesen oder in die Datei geschrieben wurde. |
Sequentiell | Aktuelle Byte-Position in der Datei geteilt durch 128. Von Loc zurückgegebene Informationen für sequentielle Dateien werden jedoch weder verwendet noch benötigt. |
Binär | Position des letzten gelesenen oder geschriebenen Bytes. |
Beispiel
Hinweis: Die folgenden Beispiele veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste neben Suchen aus und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die Loc -Funktion verwendet, um die aktuelle Lese-/Schreibposition innerhalb einer geöffneten Datei zurückzugeben. Dieses Beispiel geht davon aus, dass TESTFILE eine Textdatei mit einigen Zeilen Beispieldaten ist.
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.
No comments:
Post a Comment