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.

Besoin d’aide ?

Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoindre Microsoft Office insiders

Ces informations vous ont-elles été utiles ?

Dans quelle mesure êtes-vous satisfait(e) de la qualité de la langue ?
Qu’est-ce qui a affecté votre expérience ?

Nous vous remercions de vos commentaires.

×