FileSystem.Seek Méthode

Source:

FileSystem.vb

Source:

FileSystem.vb

Source:

FileSystem.vb

Source:

FileSystem.vb

Source:

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

Paramètres

Retours

Spécification Long de la position en lecture/écriture actuelle dans un fichier ouvert à l’aide de la FileOpen fonction ou définit la position de l’opération de lecture/écriture suivante dans un fichier ouvert à l’aide de la FileOpen fonction.

Exceptions

Exemples

Cet exemple utilise la Seek fonction pour retourner la position actuelle du fichier. L’exemple suppose qu’il s’agit TestFile d’un fichier qui contient des enregistrements de la structure Record.

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

Pour les fichiers ouverts en Random mode, Seek retourne le nombre d’enregistrements suivants.

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)

Pour les fichiers ouverts en mode autre que Random le mode, Seek retourne la position d’octet à laquelle l’opération suivante se produit. Supposons qu’il s’agit TestFile d’un fichier qui contient plusieurs lignes de texte.

' 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)

Cet exemple utilise la Seek fonction pour définir la position de la lecture ou de l’écriture suivante dans un fichier.

Pour les fichiers ouverts en mode autre que Random le mode, Seek définit la position d’octet à laquelle l’opération suivante se produit. Supposons qu’il s’agit TestFile d’un fichier qui contient plusieurs lignes de texte.

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)

Remarques

Seek retourne une valeur comprise entre 1 et 2 147 483 647 (équivalent à 2^31 - 1), inclusive.

L’exemple suivant décrit les valeurs de retour pour chaque mode d’accès aux fichiers :

Voir aussi

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Reading from Files in Visual Basic
• Writing dans les fichiers dans Visual Basic

Source:

FileSystem.vb

Source:

FileSystem.vb

Source:

FileSystem.vb

Source:

FileSystem.vb

Source:

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)

Paramètres

Exceptions

Exemples

Cet exemple utilise la Seek fonction pour retourner la position actuelle du fichier. L’exemple suppose qu’il s’agit TestFile d’un fichier qui contient des enregistrements de la structure Record.

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

Pour les fichiers ouverts en Random mode, Seek retourne le nombre d’enregistrements suivants.

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)

Pour les fichiers ouverts en mode autre que Random le mode, Seek retourne la position d’octet à laquelle l’opération suivante se produit. Supposons qu’il s’agit TestFile d’un fichier qui contient plusieurs lignes de texte.

' 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)

Cet exemple utilise la Seek fonction pour définir la position de la lecture ou de l’écriture suivante dans un fichier.

Pour les fichiers ouverts en mode autre que Random le mode, Seek définit la position d’octet à laquelle l’opération suivante se produit. Supposons qu’il s’agit TestFile d’un fichier qui contient plusieurs lignes de texte.

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)

Remarques

Seek retourne une valeur comprise entre 1 et 2 147 483 647 (équivalent à 2^31 - 1), inclusive.

L’exemple suivant décrit les valeurs de retour pour chaque mode d’accès aux fichiers :

Voir aussi

• FileGet
• Loc(Int32)
• FileOpen(Int32, String, OpenMode, OpenAccess, OpenShare, Int32)
• FilePut
• IOException
• Reading from Files in Visual Basic
• Writing dans les fichiers dans Visual Basic