Conectați-vă cu Microsoft
Conectați-vă sau creați un cont
Salut,
Selectați un alt cont.
Aveți mai multe conturi
Alegeți contul cu care doriți să vă conectați.

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

Aveți nevoie de ajutor suplimentar?

Doriți mai multe opțiuni?

Explorați avantajele abonamentului, navigați prin cursurile de instruire, aflați cum să vă securizați dispozitivul și multe altele.

Comunitățile vă ajută să adresați întrebări și să răspundeți la întrebări, să oferiți feedback și să primiți feedback de la experți cu cunoștințe bogate.

Au fost utile aceste informații?

Cât de mulțumit sunteți de calitatea limbajului?
Ce v-a afectat experiența?
Apăsând pe Trimitere, feedbackul dvs. va fi utilizat pentru a îmbunătăți produsele și serviciile Microsoft. Administratorul dvs. IT va avea posibilitatea să colecteze aceste date. Angajamentul de respectare a confidențialității.

Vă mulțumim pentru feedback!

×