EOF, fonction

Remarque : La fonction, la méthode, la propriété ou l'objet décrit dans cette rubrique est désactivé si Microsoft Jet Expression Service s'exécute en mode sandbox, qui empêche l'évaluation d'expressions pouvant être dangereuses. Pour plus d'informations sur le mode sandbox, recherchez « mode sandbox » dans l'aide.

Renvoie un type de données Integer qui contient la valeur BooléenTrue lorsque la fin d'un fichier ouvert pour une entréealéatoire ou séquentielle a été atteinte.

Syntaxe

EOF(numérofichier)

L'argumentnumérofichier est un entier qui contient un numéro de fichier valide.

Remarques

Utilisez la fonction EOF pour éviter qu'une erreur ne soit générée lors d'une tentative d'obtention d'une entrée au-delà de la fin du fichier.

La fonction EOF renvoie une valeur False jusqu'à ce que la fin du fichier soit atteinte. Dans le cas des fichiers ouverts pour un accès aléatoire ou binaire, elle renvoie une valeur False jusqu'à ce que la dernière instruction Get ne puisse plus lire un enregistrement entier.

Dans le cas des fichiers ouverts pour un accès binaire, toute tentative de lecture du fichier à l'aide de la fonction Input jusqu'à ce que la fonction EOF renvoie la valeur True génère une erreur. Utilisez les fonctions LOF et Loc au lieu de la fonction EOF pour la lecture de fichiers binaires à l'aide de la fonction Input. Vous pouvez également utiliser la fonction Get avec la fonction EOF. Dans le cas de fichiers ouverts en sortie, EOF renvoie toujours la valeur True.

Exemple

Remarque : Les exemples qui suivent montrent 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 à rechercher.

Cet exemple fait appel à la fonction EOF pour détecter la fin d'un fichier. Il suppose que MYFILE est un fichier texte comportant quelques lignes de texte.

Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1

Ces informations vous ont-elles été utiles ?

Très bien ! Vous avez d’autres commentaires ?

Comment pouvons-nous l’améliorer ?

Nous vous remercions pour vos commentaires.

×