Module
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