IBM Lotus Symphony


Funkcija Eof [izvajalno okolje]

Določa, ali je datotečni kazalec dosegel konec datoteke.

Skladnja:

Eof (intexpression As Integer)

Vrnjena vrednost:

Bool

Parametri:

Intexpression: Katerikoli celoštevilski izraz, ki se ovrednoti na številko odprte datoteke.

Da se izognete napakam, ko poskusite brati po koncu datoteke, uporabite EOF. Ko za branje iz datoteke uporabite stavek Input ali Get, se datotečni kazalec premakne za število prebranih bajtov. Ko je konec datoteke dosežen, funkcija EOF vrne vrednost "True" (-1).

Kode napak

5 Neveljavni klic procedure

52 Napačno ime ali številka datoteke

Primer:

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, "First line of text"

Print #iNumber, "Another line of text"

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


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke