Remarque : La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivée si le service d’expressions de Microsoft Jet s’exécute en mode sandbox, ce qui empêche l’évaluation d’expressions potentiellement non sûres. Pour plus d’informations sur le mode sandbox, recherchez « mode sandbox » dans l’Aide.

Renvoie une valeur Long spécifiant la position actuelle en lecture/écriture dans un fichier ouvert à l’aide de l’instruction Open.

Syntaxe

Seek( filenumber )

Le numéro de fichierargument est un nombre complet contenant un nombre numéro de fichier.

Remarques

Seek renvoie une valeur compris entre 1 et 2 147 483 647 (équivalente à 2^31 – 1), incluse.

Le tableau suivant décrit les valeurs de retour pour chaque mode d’accès au fichier.

Mode

Valeur renvoyée

Aléatoire

Numéro de l’enregistrement lu ou écrit suivant

Binaire,
sortie,
addend,
input

Position du byte à laquelle l’opération suivante a lieu. Le premier byte dans un fichier est à la position 1, le deuxième est à la position 2, et ainsi de suite.


Exemple

Remarque : Les exemples qui suivent illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’travail avec VBA, sélectionnez Référence du développeur dans la liste verte en regard de Rechercher, puis entrez un ou plusieurs termes dans la zone de recherche.

Cet exemple utilise la fonction Valeur pour renvoyer la position actuelle du fichier. L’exemple suppose que TESTFILE est un fichier contenant des enregistrements du type défini par l' Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Pour les fichiers ouverts en mode aléatoire, Seek renvoie le numéro de l’enregistrement suivant.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Pour les fichiers ouverts dans des modes autres que le mode aléatoire, Seek renvoie la position d’un byte à partir duquel l’opération suivante a lieu. Supposons TESTFILE qu’il s’agit d’un fichier contenant quelques lignes de texte.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Besoin d’aide ?

Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoindre Microsoft Insider

Ces informations vous ont-elles été utiles ?

Dans quelle mesure êtes-vous satisfait(e) de la qualité de la traduction ?
Qu’est-ce qui a affecté votre expérience ?

Nous vous remercions pour vos commentaires.

×