Pierakstīties, izmantojot Microsoft
Pierakstieties vai izveidojiet kontu.
Sveicināti!
Atlasiet citu kontu.
Jums ir vairāki konti
Izvēlieties kontu, ar kuru vēlaties pierakstīties.

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

Atgriež veselu skaitli, kas satur Būla izteiksme vērtību True , ja ir sasniegts faila Beigu fails, kas atvērts gadījumam vai secīgai ievadei .

Sintakse

EOF ( filenumber )

Obligāts filenumberarguments ir vesels skaitlis , kas satur jebkuru derīgu faila numurs.

Piezīmes

Izmantojiet EOF , lai izvairītos no kļūdas, kas rodas, mēģinot iegūt ievadi pagātnes beigās.

Funkcija EOF atgriež FALSE līdz faila beigām. Ar failiem, kas atvērti gadījumam vai binārai piekļuvei, EOF atgriež vērtību FALSE , līdz pēdējais izpildītais priekšraksts Get nevar lasīt visu ierakstu.

Ar failiem, kas atvērti binārai piekļuvei, mēģinājums nolasīt failu, izmantojot funkciju Input , līdz EOF atgriež True , ģenerē kļūdu. Izmantojiet funkcijas LOF un Loc, lai lasītu binārus failus ar ievadi, vai izmantojiet funkciju Get , ja tiek izmantota funkcija EOF . Ar failiem, kas atvērti izvadei, EOF vienmēr atgriež patiess.

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ā tiek izmantota funkcija EOF , lai noteiktu faila beigās. Šajā piemērā tiek pieņemts, ka MYFILE 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

Vai nepieciešama papildu palīdzība?

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Microsoft Office Insider programmas dalībniekiem

Vai šī informācija bija noderīga?

Cik lielā mērā esat apmierināts ar valodas kvalitāti?
Kas ietekmēja jūsu pieredzi?

Paldies par jūsu atsauksmēm!

×