IBM Lotus Symphony


Fonction Eof [Exécution]

Détermine si le pointeur de fichier a atteint la fin d'un fichier.

Syntaxe :

Eof (intexpression As Integer)

Valeur de retour :

Booléenne

Paramètres :

Intexpression : expression de type nombre entier qui a pour résultat le numéro d'un fichier ouvert.

Utilisez la fonction EOF pour éviter les erreurs lorsque vous tentez d'obtenir une entrée après la fin d'un fichier. Lorsque vous utilisez l'instruction Input ou Get pour lire les données d'un fichier, le pointeur de fichier est avancé du nombre d'octets lus. Lorsque la fin d'un fichier est atteinte, EOF renvoie la valeur "True" (-1).

Codes d'erreur

5 Appel de procédure incorrect

52 Nom ou numéro de fichier incorrect

Exemple :

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "Première ligne de texte"

Print #iNumber, "Autre ligne de texte"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


Commentaires en retour sur le produit | Documentation complémentaire | Marques