IBM Lotus Symphony
|
Służy do określania, czy wskaźnik pliku osiągnął koniec pliku.
Eof (WyrażenieCałkowitoliczbowe As Integer)
Wartość boolowska
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).
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