Notă: Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet 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 număr întreg care conține valoarea BooleanTrue atunci când s-a atins sfârșitul unui fișier deschis pentru Intrarealeatoare sau secvențială.
Sintaxă
EOF( număr fișier )
Numărul de fișier necesarargument este un număr întreg care conține orice număr fișier valid.
Observații
Utilizați EOF pentru a evita eroarea generată de încercarea de a obține date de intrare 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șierele deschise pentru acces aleator sau binar , EOF returnează False până când 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șierele deschise pentru Ieșire, 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
