IBM Lotus Symphony


Funktionen Eof [Runtime]

Fastlægger, om filmarkøren har nået slutningen af en fil.

Syntaks:

Eof (heltalsudtryk As Integer)

Returværdi:

Boolean

Parametre:

Heltalsudtryk: Et heltalsudtryk, som evalueres til nummeret på en åben fil.

Du kan bruge EOF til at undgå fejl, der opstår, hvis du forsøger at hente input efter filens slutning. Når du bruger sætningen Input eller Get til at læse fra en fil, rykkes filmarkøren det læste antal byte frem. Når filens slutning nås, returnerer EOF værdien "Sand" (-1).

Fejlkoder

5 Ugyldigt procedurekald

52 Forkert filnavn eller -nummer

Eksempel:

Sub ArbejdMedEnFilEksempel

Dim iNummer As Integer

Dim sLinje As String

Dim aFil As String

Dim sMeddl as String

aFil = "c:\data.txt"

iNummer = Freefile

Open aFil For Output As #iNummer

Print #iNummer, "Første linje tekst"

Print #iNummer, "Anden linje tekst"

Close #iNummer

iNummer = Freefile

Open aFil For Input As iNummer

While not eof(iNummer)

Line Input #iNummer, sLinje

If sLinje <>"" then

sMeddl = sMeddl & sLinje & chr(13)

End If

wend

Close #iNummer

Msgbox sMeddl

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker