Prisijunkite prie „Microsoft“
Prisijunkite arba sukurkite paskyrą.
Sveiki,
Pasirinkti kitą paskyrą.
Turite kelias paskyras
Pasirinkite paskyrą, kurią naudodami norite prisijungti.

Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".

Grąžina sveikojo skaičiaus reikšmę su bulio logika reikšme True , kai pasiekiama failo, atidaryto naudojant atsitiktinę arba nuoseklią įvestį , pabaiga.

Sintaksė

EOF( failo numeris )

Reikiamas failo numerisargumentas yra sveikasis skaičius , kuriame yra bet kuris galiojantis failo numeris.

Pastabos

Naudokite EOF , kad išvengtumėte sugeneruotos klaidos bandydami gauti įvestį už failo pabaigos.

Funkcija EOF grąžina False , kol pasiekiama failo pabaiga. Atidarius failus atsitiktinei arba dvejetainei prieigai, EOF grąžina False , kol paskutinis įvykdytas get sakinys negalės perskaityti viso įrašo.

Kai failai atidaromi dvejetainės prieigos funkcijai, bandymas skaityti failą naudojant įvesties funkciją, kol EOF grąžina True sugeneruoja klaidą. Skaitant dvejetainius failus su įvestimi, vietoje EOF naudokite LOF ir Loc funkcijas arba naudokite funkciją Get, kai naudojama funkcija EOF. Atidarius išvesties failus, EOF visada pateikia True ( teisinga).

Pavyzdys

Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkcija EOF failo pabaigai aptikti. Šiame pavyzdyje daroma prielaida, kad MYFILE yra teksto failas su keliomis teksto eilutėmis.

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

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Sužinokite apie prenumeratos pranašumus, peržiūrėkite mokymo kursus, sužinokite, kaip apsaugoti savo įrenginį ir kt.

Bendruomenės padeda užduoti klausimus ir į juos atsakyti, pateikti atsiliepimų ir išgirsti iš ekspertų, turinčių daug žinių.

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?
Paspaudus mygtuką Pateikti, jūsų atsiliepimai bus naudojami tobulinant „Microsoft“ produktus ir paslaugas. Jūsų IT administratorius galės rinkti šiuos duomenis. Privatumo patvirtinimas.

Dėkojame už jūsų atsiliepimą!

×