Aide LibreOffice 25.8

Fonction Eof

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

Syntaxe :

Eof (intexpression As Integer)

Type de renvoie :

Logique (Bool)

Paramètres :

Intexpression : expression au format nombre entier dont l'évaluation donne le numéro d'un fichier ouvert.

Servez-vous de la fonction EOF pour éviter de produire des erreurs dues à des tentatives de saisie au-delà de la fin d'un fichier. Lorsque vous utilisez l'instruction Input ou Get pour lire dans un fichier, le pointeur de fichier avance en fonction du nombre d'octets lus. Une fois la fin du fichier atteinte, la fonction 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:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Ceci est une ligne de texte."
    Print #iNumber, "Ceci est une 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

Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
    aFile = "~/data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "Ceci est une ligne de texte."
    Print #iNumber, "Ceci est une 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