IBM Lotus Symphony


Funkcia Eof [Runtime]

Určuje, či súborový smerník dosiahol koniec súboru.

Syntax:

Eof (celočíselný_výraz As Integer)

Návratová hodnota:

Typ Bool

Parametre:

Celočíselný_výraz: Ľubovoľný celočíselný výraz, ktorý sa vyhodnotí do čísla otvoreného súboru.

EOF použite, ak sa chcete vyhnúť chybám pri pokusoch o umiestnenie vstupu za koniec súboru. Keď na načítanie zo súboru použijete príkaz Input alebo Get, súborový smerník sa posunie o počet načítaných bajtov. Pri dosiahnutí konca súboru vráti EOF hodnotu "True" (-1).

Chybové kódy

5 Neplatné volanie procedúry

52 Nesprávny názov súboru alebo nesprávne číslo

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky