Partager via


EOF, fonction

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)

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)

Voir aussi

Référence

FileGet, fonction

Loc, fonction

LOF, fonction

FileOpen, fonction

IOException