Pastaba
Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė išjungiama, jei "„Microsoft“ Jet" reiškinių tarnyba veikia smėlio dėžės režimu, kuris neleidžia įvertinti potencialiai nesaugių reiškinių. Daugiau informacijos apie smėlio dėžės režimą ieškokite žinyne "smėlio dėžės režimas".
Pateikia sveikąjį skaičių, kuriame yra Bulio logikos reikšmė True (teisinga ), kai susiekiama failo, atidaryto atsitiktinei arba nuosekliai įvesčiai , pabaiga.
Sintaksė
EOF(failo numeris)
Būtinas failo skaičiausargumentas yra sveikasis skaičius, kuriame yra bet koks galiojantis failo numeris.
Pastabos
Naudokite EOF norėdami išvengti klaidos, sugeneruotos bandant gauti įvestį po failo pabaigos.
Funkcija EOF grąžina False (klaidinga ), kol nepasigirsta failo pabaiga. Kai failai atidaromi atsitiktinei arba dvejetainei prieigai, EOF grąžina False iki paskutinio įvykdyto sakinio Get neįmanoma perskaityti viso įrašo.
Kai failai atidaromi dvejetainei prieigai, bandant skaityti failą naudojant įvesties funkciją, kol EOF grąžina True (teisinga ), sugeneruojama klaida. Skaitydami dvejetainius failus su įvestimi naudokite funkcijas LOF ir Loc, o vietoj EOF naudokite funkcijąG. Kai failai atidaromi išvesties tikslais, EOF visada grąžina True.
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 EOF funkcija, kad būtų galima aptikti failo pabaigą. Šiame pavyzdyje daroma prielaida, kad MYFILE tai yra tekstinis 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