Loc, fonction
Mise à jour : novembre 2007
Retourne une valeur Long spécifiant la position de lecture/écriture actuelle dans un fichier ouvert.
Public Function Loc(ByVal FileNumber As Integer) As Long
Paramètres
- FileNumber
Requis. Tout numéro de fichier Integer valide.
Exceptions
Type d'exception |
Numéro de l'erreur |
Condition |
|---|---|---|
FileNumber n'existe pas. |
||
Le mode de fichier est non valide. |
Consultez la colonne « Numéro d'erreur » si vous mettez à niveau des applications Visual Basic 6.0 qui utilisent la gestion des erreurs non structurée. (Vous pouvez comparer le numéro d'erreur par rapport à Number, propriété (objet Err).) Toutefois, lorsque cela est possible, vous devez envisager de remplacer un tel contrôle d'erreur par Vue d'ensemble de la gestion structurée des exceptions pour Visual Basic.
Notes
La fonction Loc est de base zéro; son utilisation afin d'obtenir le premier octet dans un fichier retournera 0.
La fonction Loc est fournie pour une compatibilité descendante et peut avoir un impact sur la performance. Pour les applications non héritées (legacy), l'objet My.Computer.FileSystem offre de meilleures performances. Pour plus d'informations, consultez Accès au fichier avec Visual Basic.
Le tableau suivant décrit la valeur de retour en fonction du mode d'accès au fichier :
Mode |
Valeur de retour |
|---|---|
Random |
Numéro du dernier enregistrement lu ou écrit dans le fichier. |
Sequential |
Position actuelle de l'octet dans le fichier divisée par 128. Cependant, les informations retournées par la fonction Loc pour les fichiers séquentiels ne sont toutefois ni utilisées, ni requises. |
Binary |
Position du dernier octet lu ou écrit. |
Exemple
Cet exemple utilise la fonction Loc pour retourner la position de lecture/écriture actuelle dans un fichier ouvert. Cet exemple suppose que MyFile est un fichier texte comportant quelques lignes d'exemple de données.
Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
Input(1, oneChar)
location = Loc(1)
WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)
Notes du développeur sur Smart Device
Cette fonction n'est pas prise en charge.
Configuration requise
Espace de noms :Microsoft.VisualBasic
**Module :**FileSystem
**Assembly :**bibliothèque Visual Basic Runtime (dans Microsoft.VisualBasic.dll)