Seek-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/Lese innerhalb einer mithilfe der Open -Anweisung geöffneten Datei angibt.

Syntax

Seek( filenumber )

Die erforderlichen DateinummerArgument ist eine ganze Zahl mit einer gültigen Dateinummer.

Hinweise

Seek gibt einen Wert zwischen 1 und einschließlich 2.147.483.647 (entspricht 2^31 – 1) zurück.

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

Modus

Rückgabewert

Random

Nummer des nächsten zu lesenden oder zu schreibenden Datensatzes

Binary,
Output,
Append,
Input

Byteposition, an der die nächste Operation durchgeführt wird. Das erste Byte in einer Datei befindet sich in Position 1, das zweite Byte an Position 2 usw.


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 Seek-Funktion verwendet, um die aktuelle Dateiposition zurückzugeben. Für das Beispiel wird vorausgesetzt, dass TESTFILE eine Datei mit Datensätzen vom benutzerdefinierten Typ Record ist.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Für Dateien, die im Random-Modus geöffnet wurden, gibt Seek die Nummer des nächsten Datensatzes zurück.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Für Dateien, die in einem anderen als im Random-Modus geöffnet wurden, gibt Seek die Byteposition zurück, an der die nächste Operation durchgeführt wird. Es wird vorausgesetzt, dass TESTFILE eine Datei mit einigen Textzeilen ist.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
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!

×