Loc-Funktion

Hinweis : Die Funktion, die Methode, das Objekt oder die Eigenschaft, die bzw. das in diesem Thema erläutert wird, ist deaktiviert, falls der Ausdrucksdienst in Microsoft Jet im geschützten Modus (Sandkastenmodus) ausgeführt wird. In diesem Modus wird die Auswertung von potenziell unsicheren Ausdrücken verhindert. Weitere Informationen zum geschützten Modus 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.
Ihre Fähigkeiten erweitern
Schulung erkunden
Neue Funktionen als Erster erhalten
An Office Insider teilnehmen

War diese Information hilfreich?

Vielen Dank für Ihr Feedback!

Vielen Dank für Ihr Feedback. Es klingt, als ob es hilfreich sein könnte, Sie mit einem unserer Office-Supportmitarbeiter zu verbinden.

×