Enhavo
Indekso 🔎︎

# Eof Function

Trovas ĉu la dosiera skribilo atingis la finon de la dosiero.

## Sintakso:

    Eof (intexpression As Integer)

## Liverota valoro:

Bool

## Parametroj:

Intexpression: Entjera esprimo kiu liveras la numeron de malferma dosiero.

EOF estas uzebla por eviti erarojn kiam oni provas legi datumojn preter la fino de dosiero. Kiam oni uzas la komandon Input aŭ Get por legi el dosiero, la dosiera skribilo antaŭeniras laŭ la nombro da bajtoj legitaj. Kiam la fino de dosiero atingiĝas, EOF liveras la valoron "True" (-1).

## Error codes:

5 Nevalida procedurvoko

52 Nevalida dosiera nomo aŭ dosiera numero

## Ekzemplo:

    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 #iNumero, "Unua linio de teksto"
        Print #iNumero, "Alia linio de teksto"
        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