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

Parameters

Retouren

Een Long opgeven van de huidige lees-/schrijfpositie in een bestand dat is geopend met behulp van de FileOpen functie of stelt de positie in voor de volgende lees-/schrijfbewerking in een bestand dat is geopend met behulp van de FileOpen functie.

Uitzonderingen

Voorbeelden

In dit voorbeeld wordt de Seek functie gebruikt om de huidige bestandspositie te retourneren. In het voorbeeld wordt ervan uitgegaan dat TestFile het een bestand is dat records van de structuur Recordbevat.

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

Voor bestanden die in Random de modus worden geopend, Seek wordt het aantal volgende records geretourneerd.

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)

Voor bestanden die zijn geopend in andere modi dan Random de modus, Seek wordt de bytepositie geretourneerd waarop de volgende bewerking plaatsvindt. Stel dat TestFile het een bestand is dat meerdere regels tekst bevat.

' 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 dit voorbeeld wordt de Seek functie gebruikt om de positie in te stellen voor de volgende lees- of schrijfbewerking in een bestand.

Voor bestanden die zijn geopend in andere modi dan Random de modus, Seek stelt u de bytepositie in waarop de volgende bewerking plaatsvindt. Stel dat TestFile het een bestand is dat meerdere regels tekst bevat.

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)

Opmerkingen

Seek retourneert een waarde tussen 1 en 2.147.483.647 (gelijk aan 2^31 - 1), inclusief.

Hieronder worden de retourwaarden voor elke bestandstoegangsmodus beschreven:

Mode	Retourwaarde
Random	Nummer van de volgende record die wordt gelezen of geschreven
Binary,Input,Output,Append	Bytepositie waarop de volgende bewerking plaatsvindt. De eerste byte in een bestand bevindt zich op positie 1, de tweede byte bevindt zich op positie 2, enzovoort.

Zie ook

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Gelezen vanuit bestanden in Visual Basic
• Schrift naar bestanden 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)

Parameters

Uitzonderingen

Voorbeelden

In dit voorbeeld wordt de Seek functie gebruikt om de huidige bestandspositie te retourneren. In het voorbeeld wordt ervan uitgegaan dat TestFile het een bestand is dat records van de structuur Recordbevat.

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

Voor bestanden die in Random de modus worden geopend, Seek wordt het aantal volgende records geretourneerd.

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)

Voor bestanden die zijn geopend in andere modi dan Random de modus, Seek wordt de bytepositie geretourneerd waarop de volgende bewerking plaatsvindt. Stel dat TestFile het een bestand is dat meerdere regels tekst bevat.

' 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 dit voorbeeld wordt de Seek functie gebruikt om de positie in te stellen voor de volgende lees- of schrijfbewerking in een bestand.

Voor bestanden die zijn geopend in andere modi dan Random de modus, Seek stelt u de bytepositie in waarop de volgende bewerking plaatsvindt. Stel dat TestFile het een bestand is dat meerdere regels tekst bevat.

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)

Opmerkingen

Seek retourneert een waarde tussen 1 en 2.147.483.647 (gelijk aan 2^31 - 1), inclusief.

Hieronder worden de retourwaarden voor elke bestandstoegangsmodus beschreven:

Mode	Retourwaarde
Random	Nummer van de volgende record die wordt gelezen of geschreven
Binary,Input,Output,Append	Bytepositie waarop de volgende bewerking plaatsvindt. De eerste byte in een bestand bevindt zich op positie 1, de tweede byte bevindt zich op positie 2, enzovoort.

Zie ook

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Gelezen vanuit bestanden in Visual Basic
• Schrift naar bestanden in Visual Basic