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