FileSystem.Seek Methode

Quelle:

FileSystem.vb

Quelle:

FileSystem.vb

Quelle:

FileSystem.vb

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

Ein Long-Wert, der die aktuelle Lese-/Schreibposition innerhalb einer mithilfe der FileOpen-Funktion geöffneten Datei angibt oder die Position des nächsten Lese-/Schreibvorgangs innerhalb einer mithilfe der FileOpen-Funktion geöffneten Datei festlegt.

Ausnahmen

Beispiele

In diesem Beispiel wird die Seek -Funktion verwendet, um die aktuelle Dateiposition zurückzugeben. Im Beispiel wird davon ausgegangen TestFile , dass es sich um 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 Random Modus geöffnete Seek 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)

Für Dateien, die in anderen Modi als Random dem Modus geöffnet werden, gibt die Byteposition zurück, 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 Schreibvorgang in einer Datei festzulegen.

Für Dateien, die in anderen Modi als Random dem Modus geöffnet werden, legt die Byteposition fest, 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).

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

Weitere Informationen

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

Quelle:

FileSystem.vb

Quelle:

FileSystem.vb

Quelle:

FileSystem.vb

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. Im Beispiel wird davon ausgegangen TestFile , dass es sich um 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 Random Modus geöffnete Seek 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)

Für Dateien, die in anderen Modi als Random dem Modus geöffnet werden, gibt die Byteposition zurück, 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 Schreibvorgang in einer Datei festzulegen.

Für Dateien, die in anderen Modi als Random dem Modus geöffnet werden, legt die Byteposition fest, 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).

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

Weitere Informationen

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