Applies ToAccess pakalpojumam Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" sadaļā Palīdzība.

Atgriež Veselu skaitli, kas Būla izteiksme vērtību Patiess, ja ir sasniegtas faila beigas, kas atvērts, atverot nejauši izvēlētu vai secīgu ievadi.

Sintakse

EOF( faila_numurs )

Nepieciešamais faila_arguments ir Vesels skaitlis , kas ietver jebkādu derīgu faila numurs.

Piezīmes

Izmantojiet EOF , lai izvairītos no kļūdas, kas rodas, mēģinot ievadīt datus faila beigās.

Funkcija EOF atgriež vērtību False , līdz ir sasniegtas faila beigas. Kad faili ir atvērti nejaušai vai binārai piekļuvei, EOF atgriež False, līdz pēdējo izpildītais priekšraksts Get nevar lasīt visu ierakstu.

Atverot failus binārās piekļuves piekļuvei, mēģinājums lasīt failu, izmantojot ievades funkciju, līdz EOF atgriež True ģenerē kļūdu. Lasot bināros failusar ievadi, EOF vietā izmantojiet funkcijas LOF un Loc vai izmantojietfunkciju Get. Atverot failus izvadei,EOF vienmēr atgriež True.

Piemērs

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā izmantota funkcija EOF , lai noteiktu faila beigas. Šajā piemērā tiek pieņemts MYFILE ka fails ir teksta fails ar dažām teksta rindiņām.

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    

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Izpētiet abonementa priekšrocības, pārlūkojiet apmācības kursus, uzziniet, kā aizsargāt ierīci un veikt citas darbības.

Kopienas palīdz uzdot jautājumus un atbildēt uz tiem, sniegt atsauksmes, kā arī saņemt informāciju no ekspertiem ar bagātīgām zināšanām.