Loc-Funktion

Hinweis: Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft wird deaktiviert, wenn der Microsoft Jet Expression Service im Sandkastenmodus ausgeführt wird, wodurch die Auswertung potenziell unsicherer Ausdrücke verhindert wird. Weitere Informationen zum Sandkastenmodus finden Sie in der Hilfe unter "Sandkastenmodus".

Gibt eine Zahl vom Typ "Long" zurück, mit der die aktuelle Lese-/Schreibposition innerhalb einer geöffneten Datei angegeben wird.

Syntax

Loc( Dateinummer )

Das erforderliche Argument Dateinummer ist eine Dateinummer aus einer beliebigen gültigen ganzen Zahl.

Anmerkungen

Im Folgenden wird der Rückgabewert für jeden Dateizugriffsmodus beschrieben:

Modus

Rückgabewert

Random

Nummer des letzten Datensatzes, der aus der Datei gelesen oder in die Datei geschrieben wurde

Sequential

Aktuelle Byteposition in der Datei, dividiert durch 128. Allerdings werden die durch Loc für sequenzielle Dateien zurückgegebenen Informationen weder verwendet noch benötigt.

Binary

Position des letzten gelesenen oder geschriebenen Bytes


Beispiel

Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

In diesem Beispiel wird die Funktion Loc verwendet, um die aktuelle Lese-/Schreibposition in einer geöffneten Datei zurückzugeben. Dabei wird vorausgesetzt, dass TESTFILE eine Textdatei mit ein paar 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.

Benötigen Sie weitere Hilfe?

Ihre Office-Fähigkeiten erweitern
Schulungen erkunden
Neue Funktionen als Erster erhalten
Office Insider werden

War diese Information hilfreich?

×