EOF, fonction

Article
09/12/2008

Mise à jour : novembre 2007

Retourne une valeur Boolean True lorsque la fin d'un fichier ouvert en mode Random ou Input séquentiel est atteinte.

Public Function EOF(ByVal FileNumber As Integer) As Boolean

Paramètres

FileNumber
Requis. Valeur de type Integer contenant tout numéro de fichier valide.

Exceptions

Type d'exception	Numéro de l'erreur	Condition
IOException	52	FileNumber n'existe pas.
IOException	54	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'erreurs par Vue d'ensemble de la gestion structurée des exceptions pour Visual Basic.

Notes

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'est pas atteinte. Avec des fichiers ouverts en mode Random ou Binary, la fonction EOF retourne la valeur False tant que la dernière fonction FileGet exécutée peut lire un enregistrement dans son intégralité.

Dans le cas de fichiers ouverts en mode Binary, une erreur se produit si vous tentez de lire le fichier à l'aide de la fonction Input jusqu'à ce que la fonction EOF retourne la valeur True. Utilisez les fonctions LOF et Loc au lieu de EOF pour la lecture de fichiers binaires à l'aide de Input ou utilisez Get avec la fonction EOF. Dans le cas de fichiers ouverts en mode Output, EOF retourne toujours la valeur True.

Exemple

Cet exemple utilise la fonction EOF pour détecter la fin d'un fichier. Nous supposons que Testfile est un fichier texte comportant quelques lignes de texte.

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)