Office
Se connecter

Loc, fonction

Remarque : Nous faisons de notre mieux pour vous fournir le contenu d’aide le plus récent aussi rapidement que possible dans votre langue. Cette page a été traduite automatiquement et peut donc contenir des erreurs grammaticales ou des imprécisions. Notre objectif est de faire en sorte que ce contenu vous soit utile. Pouvez-vous nous indiquer en bas de page si ces informations vous ont aidé ? Voici l’article en anglais à des fins de référence aisée.

Remarque : Si le Service Microsoft Jet Expression s’exécute en mode sandbox, qui empêche l’évaluation des expressions potentiellement dangereuses de la fonction, une méthode, un objet ou une propriété décrites dans cette rubrique est désactivée. Pour plus d’informations sur le mode sandbox, recherchez « mode sandbox » dans l’aide.

Renvoie une valeur longue spécifiant la position actuelle en lecture/écriture dans un fichier ouvert.

Syntaxe

Loc ( filenumber )

La requis filenumberargument est un nombre entier valide numéro de fichier.

Remarques

La valeur de retour pour chaque mode d’accès au fichier décrit les opérations suivantes :

Mode

Valeur de retour

Aléatoire

Numéro du dernier enregistrement lues ou écrites dans le fichier.

Séquentielles

Position actuelle de l’octet dans le fichier divisé par 128. Toutefois, les informations renvoyées par la fonction Loc pour les fichiers séquentiels sont utilisées ni obligatoire.

Binaire

Position du dernier octet lu ou écrit.


Exemple

Remarque : Exemples suivants illustrent l’utilisation de cette fonction dans une Visual Basic pour le module d’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 recherche et entrez un ou plusieurs termes dans la zone de recherche.

Cet exemple utilise la fonction Loc pour retourner la position actuelle en lecture/écriture dans un fichier ouvert. Cet exemple suppose que TESTFILE est un fichier texte comportant 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.
Développez vos compétences dans Office
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×