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.
Syntaxe
Loc( filenumber )
Le numéro de fichierargument nombre de fichiers requis est tout nombre numéro de fichier.
Remarques
Les informations suivantes décrivent la valeur de retour pour chaque mode d’accès au fichier :
|
Mode |
Valeur renvoyée |
|
Aléatoire |
Numéro du dernier enregistrement lu ou écrit dans le fichier. |
|
Séquentielle |
Position actuelle du byte dans le fichier divisé par 128. Toutefois, les informations renvoyées par Loc pour les fichiers séquentiels ne sont ni utilisées ni requises. |
|
Binaire |
Position du dernier byte lu ou écrit. |
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 de listes en regard de Rechercher, puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Loc pour renvoyer la position actuelle en lecture/écriture dans un fichier ouvert. Cet exemple suppose que TESTFILE est un fichier texte avec 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; MyLocation
Loop
Close #1 ' Close file.
