Loc, fonction
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 fichierentier 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
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour