FileSystem.Seek Méthode

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

Un Long qui spécifie la position de lecture/écriture actuelle dans un fichier ouvert à l’aide de la fonction FileOpen ou définit la position de la prochaine opération de lecture/écriture dans un fichier ouvert via la fonction FileOpen.

Exceptions

Exemples

Cet exemple utilise la Seek fonction pour retourner la position actuelle du fichier. L’exemple suppose qu’il TestFile s’agit 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 dans des modes autres que Random le mode, Seek retourne la position d’octet à laquelle l’opération suivante se produit. Supposons TestFile qu’il s’agit 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 dans des modes autres que Random le mode, Seek définit la position d’octet à laquelle l’opération suivante se produit. Supposons TestFile qu’il s’agit 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), inclus.

Ce qui suit 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
• Lecture à partir de fichiers en Visual Basic
• Écriture dans des fichiers en Visual Basic

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 TestFile s’agit 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 dans des modes autres que Random le mode, Seek retourne la position d’octet à laquelle l’opération suivante se produit. Supposons TestFile qu’il s’agit 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 dans des modes autres que Random le mode, Seek définit la position d’octet à laquelle l’opération suivante se produit. Supposons TestFile qu’il s’agit 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), inclus.

Ce qui suit 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
• Lecture à partir de fichiers en Visual Basic
• Écriture dans des fichiers en Visual Basic