Loc, fonction

Article
04/07/2023

Renvoie une valeur de type Long indiquant la position de lecture/écriture actuelle dans un fichier ouvert.

Syntaxe

Loc(filenumber)

L’argument filenumber requis est n’importe quel numéro de fichier entier valide.

Remarques

Le tableau suivant décrit la valeur renvoyée en fonction du mode d’accès au fichier :

Mode	Valeur renvoyée
Aléatoire	Numéro du dernier enregistrement lu ou écrit dans le fichier.
Séquentiel	Position actuelle de l’octet dans le fichier divisée par 128. Les informations renvoyées par la fonction Loc pour les fichiers séquentiels ne sont toutefois ni utilisées, ni obligatoires.
Binary	Position du dernier octet lu ou écrit.

Exemple

Cet exemple utilise la fonction Loc pour renvoyer la position actuelle de lecture/écriture dans un fichier ouvert. Cet exemple suppose qu’il TESTFILE s’agit d’un fichier texte avec quelques lignes d’exemples de données.

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

Voir aussi

Fonctions (Visual Basic pour Applications)

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via