IBM Lotus Symphony


Eof-funktio [käytönaikainen]

Selvittää, onko tiedoston osoitin tullut tiedoston loppuun.

Syntaksi:

Eof (intexpression As Integer)

Palautusarvo:

Bool (totuusarvo)

Parametrit:

Intexpression: Mikä tahansa kokonaislukulauseke, jonka järjestelmä voi tulkita avatun tiedoston numeroksi.

EOF-funktion avulla voit välttää virheet, kun yrität noutaa syöttötietoja tiedoston lopun jälkeen. Kun luet tiedostoa Input- tai Get-lauseen avulla, tiedoston osoitin etenee tiedostossa luettujen tavujen verran. Kun osoitin tulee tiedoston loppuun, EOF-funktio palauttaa arvon Tosi (-1).

Virhekoodit

5 Virheellinen toimintokutsu

52 Virheellinen tiedoston nimi tai numero

Esimerkki:

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, "Ensimmäinen tekstirivi"

Print #iNumber, "Toinen tekstirivi"

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


Palautetta tuotteesta | Lisäohjeet | Tavaramerkit