IBM Lotus Symphony
|
Fastlægger, om filmarkøren har nået slutningen af en fil.
Eof (heltalsudtryk As Integer)
Boolean
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).
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