Loc-Funktion

Wichtig :  Dieser Artikel wurde maschinell übersetzt. Bitte beachten Sie den Haftungsausschluss. Die englische Version des Artikels ist als Referenz hier verfügbar: hier.

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 (Sandbox Mode) ausgeführt wird. In diesem Modus wird die Auswertung von potenziell unsicheren Ausdrücken verhindert. Weitere Informationen zum geschützten Modus erhalten Sie, wenn Sie in der Hilfe nach "sandbox mode" suchen.

Gibt einen Long-Wert zurück, die die aktuelle Position schreibgeschützt in einer geöffneten Datei angibt.

Syntax

Loc( filenumber )

Die erforderlichen DateinummerArgument ist gültige ganze Zahl Dateinummer.

Hinweise

Im Folgenden wird der Rückgabewert für die einzelnen Dateizugriffsmodi beschrieben:

Modus

Rückgabewert

Random

Nummer des letzten Datensatzes, der von der Datei gelesen oder in die Datei geschrieben wird.

Sequential

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

Binär

Position des zuletzt 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 Loc-Funktion verwendet, um die aktuelle Lese-/Schreibposition in einer geöffneten Datei zurückzugeben. Für dieses Beispiel wird vorausgesetzt, dass TESTFILE eine Textdatei mit einigen Zeilen mit 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.

Hinweis : Haftungsausschluss für maschinelle Übersetzungen: Dieser Artikel wurde mithilfe eines Computersystems und ohne jegliche Bearbeitung durch Personen übersetzt. Microsoft bietet solche maschinellen Übersetzungen als Hilfestellung für Benutzer ohne Englischkenntnisse an, damit Sie von den Informationen zu Produkten, Diensten und Technologien von Microsoft profitieren können. Da es sich bei diesem Artikel um eine maschinelle Übersetzung handelt, enthält er möglicherweise Fehler in Bezug auf (Fach-)Terminologie, Syntax und/oder Grammatik.

Teilen Facebook Facebook Twitter Twitter E-Mail E-Mail

War diese Information hilfreich?

Sehr gut. Noch anderes Feedback?

Was können wir verbessern?

Vielen Dank für Ihr Feedback!

×