Partager via


Fonction EOF

Retourne une valeur de type Integer contenant la valeur BooleanTrue lorsque la fin d’un fichier ouvert en mode Random ou Input séquentiel est atteinte.

Syntaxe

EOF(filenumber)

L’argument filenumber requis est un entier contenant n’importe quel numéro de fichier valide.

Remarques

Utilisez la fonction EOF pour éviter de générer une erreur lorsque vous tentez d’obtenir des données au-delà de la fin d’un fichier.

La fonction EOF retourne la valeur False tant que la fin du fichier n’a pas été atteinte. Avec les fichiers ouverts pour l’accès aléatoire ou binaire , EOF retourne False jusqu’à ce que la dernière instruction Get exécutée ne soit pas en mesure de lire un enregistrement entier.

Avec les fichiers ouverts pour l’accès binaire , une tentative de lecture du fichier à l’aide de la fonction Input jusqu’à ce qu’EOF retourne True génère une erreur. Utilisez les fonctions LOF et Loc au lieu d’EOF lors de la lecture de fichiers binaires avec Input, ou utilisez Get lorsque vous utilisez la fonction EOF. Pour des fichiers ouverts en mode Output, la fonction EOF retourne toujours la valeur True.

Exemple

Cet exemple utilise la fonction EOF pour détecter la fin d’un fichier. Cet exemple suppose qu’il MYFILE s’agit d’un fichier texte avec quelques lignes de texte.

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

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.