Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Renvoie une valeur de type Long spécifiant la position de lecture/écriture actuelle dans un fichier ouvert.
Syntaxe
Loc( filenumber )
Le argument filenumber requis est un entier valide numéro de fichier.
Notes
La section suivante décrit la valeur de retour pour chaque mode d’accès aux fichiers :
|
Mode |
Valeur renvoyée |
|
Aléatoire |
Numéro du dernier enregistrement lu ou écrit dans le fichier. |
|
Séquentiel |
Position d’octet actuelle dans le fichier divisé par 128. Toutefois, les informations retournées par Loc pour les fichiers séquentiels ne sont ni utilisées ni requises. |
|
Binaire |
Position du dernier octet lu ou écrit. |
Exemple
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour 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 Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Loc pour renvoyer la position de lecture/écriture actuelle dans un fichier ouvert. Cet exemple suppose que TESTFILE est un fichier texte contenant quelques lignes d’exemples de données.
Dim MyLocation, MyLine' Open file just created.Open "TESTFILE" For Binary As #1' Loop until end of file.Do While MyLocation < LOF(1) ' Read character into variable. MyLine = MyLine & Input(1, #1) ' Get current position within file. MyLocation = Loc(1) ' Print to the Immediate window. Debug.Print MyLine; Tab; MyLocationLoopClose #1 ' Close file.
