Seek, fonction

Important :  Cet article a été traduit automatiquement, voir l’avertissement. Vous pouvez consulter la version en anglais de cet article ici.

Remarque : Si le Service Microsoft Jet Expression s’exécute en mode sandbox, qui empêche l’évaluation des expressions potentiellement dangereuses de la fonction, une méthode, un objet ou une propriété décrites dans cette rubrique est désactivée. Pour plus d’informations sur le mode sandbox, recherchez « mode sandbox » dans l’aide.

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

Syntaxe

Seek ( filenumber )

La requis filenumberargument est un nombre entier contenant un numéro de fichier valide.

Remarques

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

Vous trouverez ci-après les valeurs renvoyées par chaque mode d’accès au fichier.

Mode

Valeur de retour

Aléatoire

Nombre de l’enregistrement suivant lu ou écrit

Binaire,
sortie,
Ajouter,
entrée

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


Exemple

Remarque : Exemples suivants illustrent l’utilisation de cette fonction dans une Visual Basic pour le module d’Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de recherche et entrez un ou plusieurs termes dans la zone de recherche.

Cet exemple utilise la fonction Seek pour retourner la position actuelle du fichier. L’exemple suppose que TESTFILE est un fichier contenant les enregistrements de la Recordde type défini par l’utilisateur.

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

Pour les fichiers ouverts en mode aléatoire, Seek retourne 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 en mode autre qu’aléatoire, Seek retourne la position d’octet à laquelle l’opération suivante a lieu. Supposons que TESTFILE est un fichier contenant plusieurs 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.

Remarque : Avertissement traduction automatique : cet article a été traduit par un ordinateur, sans intervention humaine. Microsoft propose cette traduction automatique pour offrir aux personnes ne maîtrisant pas l’anglais l’accès au contenu relatif aux produits, services et technologies Microsoft. Comme cet article a été traduit automatiquement, il risque de contenir des erreurs de grammaire, de syntaxe ou de terminologie.

Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×