IBM Lotus Symphony


Eof-funksjonen [kjøretid]

Bestemmer om filpekeren har nådd slutten på en fil.

Syntaks:

Eof (heltallsuttrykk som heltall)

Returverdi:

Bool

Parametere:

Heltallsuttrykk: Et heltallsuttrykk som evaluerer nummeret til en åpen fil.

Bruk EOF for å unngå feil når du forsøker å få inndata forbi slutten av en fil. Når du bruker Input- eller Get-setningen til å lese fra en fil, blir filpekeren flyttet fremover antall byte som er lest. Når slutten av en fil blir nådd, returnerer EOF verdien "True" (-1).

Feilkoder

5 Ugyldig prosedyrekall

52 Ugyldig filnavn eller nummer

Eksempel:

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, "Første linje med tekst"

Print #iNumber, "En annen linje med tekst"

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


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker