FileSystem.Seek Methode

public:
 static long Seek(int FileNumber);

public static long Seek(int FileNumber);

static member Seek : int -> int64

Public Function Seek (FileNumber As Integer) As Long

Parameter

Gibt zurück

Eine Long Angabe der aktuellen Lese-/Schreibposition in einer Datei, die mithilfe der FileOpen Funktion geöffnet wird, oder legt die Position für den nächsten Lese-/Schreibvorgang in einer Datei fest, die mithilfe der FileOpen Funktion geöffnet wird.

Ausnahmen

Beispiele

In diesem Beispiel wird die Seek Funktion verwendet, um die aktuelle Dateiposition zurückzugeben. Das Beispiel geht davon aus, dass es sich um TestFile eine Datei handelt, die Datensätze der Struktur Recordenthält.

Structure Record   ' Define user-defined type.
    Dim ID As Integer
    Dim Name As String
End Structure

Gibt für Im Modus Seek geöffnete Random Dateien die Anzahl des nächsten Datensatzes zurück.

FileOpen(1, "TESTFILE", OpenMode.Random)
Do While Not EOF(1)
    WriteLine(1, Seek(1))   ' Write record number.
    FileGet(1, MyRecord, -1)   ' Read next record.
Loop
FileClose(1)

Bei Dateien, die in anderen Modi als Random dem Modus geöffnet werden, wird die Byteposition zurückgegeben, Seek an der der nächste Vorgang ausgeführt wird. Angenommen, es handelt sich TestFile um eine Datei, die mehrere Textzeilen enthält.

' Report character position at beginning of each line.
Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file for reading.
While Not EOF(1)
    ' Read next line.
    TextLine = LineInput(1)
    ' Position of next line.
    MsgBox(Seek(1))
End While
FileClose(1)

In diesem Beispiel wird die Seek Funktion verwendet, um die Position für den nächsten Lese- oder Schreibzugriff in einer Datei festzulegen.

Bei Dateien, die in anderen Modi als Random dem Modus geöffnet werden, wird die Byteposition festgelegt, Seek an der der nächste Vorgang ausgeführt wird. Angenommen, es handelt sich TestFile um eine Datei, die mehrere Textzeilen enthält.

Dim someText As String = "This is a test string."
' Open file for output.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Move to the third character.
Seek(1, 3)
Input(1, someText)
Console.WriteLine(someText)
FileClose(1)

Hinweise

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

Im Folgenden werden die Rückgabewerte für jeden Dateizugriffsmodus beschrieben:

Modus	Rückgabewert
Random	Nummer des nächsten gelesenen oder geschriebenen Datensatzes
Binary, , InputOutputAppend	Byteposition, an der der nächste Vorgang ausgeführt wird. Das erste Byte in einer Datei befindet sich an Position 1, das zweite Byte an Position 2 usw.

Weitere Informationen

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Reading aus Dateien in Visual Basic
• Schreiben in Dateien in Visual Basic

public:
 static void Seek(int FileNumber, long Position);

public static void Seek(int FileNumber, long Position);

static member Seek : int * int64 -> unit

Public Sub Seek (FileNumber As Integer, Position As Long)

Parameter

Ausnahmen

Beispiele

In diesem Beispiel wird die Seek Funktion verwendet, um die aktuelle Dateiposition zurückzugeben. Das Beispiel geht davon aus, dass es sich um TestFile eine Datei handelt, die Datensätze der Struktur Recordenthält.

Structure Record   ' Define user-defined type.
    Dim ID As Integer
    Dim Name As String
End Structure

Gibt für Im Modus Seek geöffnete Random Dateien die Anzahl des nächsten Datensatzes zurück.

FileOpen(1, "TESTFILE", OpenMode.Random)
Do While Not EOF(1)
    WriteLine(1, Seek(1))   ' Write record number.
    FileGet(1, MyRecord, -1)   ' Read next record.
Loop
FileClose(1)

Bei Dateien, die in anderen Modi als Random dem Modus geöffnet werden, wird die Byteposition zurückgegeben, Seek an der der nächste Vorgang ausgeführt wird. Angenommen, es handelt sich TestFile um eine Datei, die mehrere Textzeilen enthält.

' Report character position at beginning of each line.
Dim TextLine As String
FileOpen(1, "TESTFILE", OpenMode.Input)   ' Open file for reading.
While Not EOF(1)
    ' Read next line.
    TextLine = LineInput(1)
    ' Position of next line.
    MsgBox(Seek(1))
End While
FileClose(1)

In diesem Beispiel wird die Seek Funktion verwendet, um die Position für den nächsten Lese- oder Schreibzugriff in einer Datei festzulegen.

Bei Dateien, die in anderen Modi als Random dem Modus geöffnet werden, wird die Byteposition festgelegt, Seek an der der nächste Vorgang ausgeführt wird. Angenommen, es handelt sich TestFile um eine Datei, die mehrere Textzeilen enthält.

Dim someText As String = "This is a test string."
' Open file for output.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Move to the third character.
Seek(1, 3)
Input(1, someText)
Console.WriteLine(someText)
FileClose(1)

Hinweise

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

Im Folgenden werden die Rückgabewerte für jeden Dateizugriffsmodus beschrieben:

Modus	Rückgabewert
Random	Nummer des nächsten gelesenen oder geschriebenen Datensatzes
Binary, , InputOutputAppend	Byteposition, an der der nächste Vorgang ausgeführt wird. Das erste Byte in einer Datei befindet sich an Position 1, das zweite Byte an Position 2 usw.

Weitere Informationen

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Reading aus Dateien in Visual Basic
• Schreiben in Dateien in Visual Basic