IBM Lotus Symphony


Funkcja Eof [środowisko wykonawcze]

Służy do określania, czy wskaźnik pliku osiągnął koniec pliku.

Składnia

Eof (WyrażenieCałkowitoliczbowe As Integer)

Zwracana wartość

Wartość boolowska

Parametry

WyrażenieCałkowitoliczbowe: Dowolne wyrażenie całkowitoliczbowe, które w wyniku wartościowania daje numer otwartego pliku.

Użycie funkcji EOF pozwala uniknąć błędów przy próbie pobierania danych wejściowych spoza końca pliku. Jeśli do odczytu z pliku jest używana instrukcja Input lub Get, wartość wskaźnika pliku jest zwiększana o liczbę odczytanych bajtów. Gdy zostanie osiągnięty koniec pliku, funkcja EOF zwróci wartość True (-1).

Kody błędów

5 Nieprawidłowe wywołanie procedury

52 Nieprawidłowa nazwa lub numer pliku

Przykład

Sub PrzykladPracyZPlikiem

Dim iNumer As Integer

Dim sWiersz As String

Dim aPlik As String

Dim sKom as String

aPlik = "c:\data.txt"

iNumer = Freefile

Open aPlik For Output As #iNumer

Print #iNumer, "Pierwszy wiersz tekstu"

Print #iNumer, "Inny wiersz tekstu"

Close #iNumer

iNumer = Freefile

Open aPlik For Input As iNumer

While not eof(iNumer)

Line Input #iNumer, sWiersz

If sWiersz <>"" then

sKom = sKom & sWiersz & chr(13)

end if

wend

Close #iNumer

Msgbox sKom

End Sub


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe