Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează un întreg care conține valoarea booleană True atunci când s-a atins sfârșitul unui fișier deschis pentru intrărialeatorii sau secvențiale.
Sintaxă
EOF(numărfișier)
Argumentul număr de fișierobligatoriu este un întreg care conține orice număr de fișier valid.
Observații
Utilizați EOF pentru a evita eroarea generată de încercarea de a obține intrările dincolo de sfârșitul unui fișier.
Funcția EOF returnează False până când se ajunge la sfârșitul fișierului. Cu fișiere deschise pentru acces aleator sau binar , EOF returnează False până la ultima instrucțiune Get executată nu poate citi o înregistrare întreagă.
Cu fișierele deschise pentru acces binar , o încercare de a citi fișierul utilizând funcția Input până când EOF returnează True generează o eroare. Utilizați funcțiile LOF și Loc în loc de EOF atunci când citiți fișiere binare cu Input sau utilizați Get atunci când utilizați funcția EOF . Cu fișiere deschise pentru rezultat,EOF returnează întotdeauna True.
Exemplu
Notă
Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția EOF pentru a detecta sfârșitul unui fișier. Acest exemplu presupune că MYFILE este un fișier text cu câteva linii de text.
Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1