Funkcija EOF

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

Piezīme.: Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Atgriež veselu faila beigās atverot par gadījuma vai secīgus ievades sasniegts, kas satur Būla izteiksme vērtību True .

Sintakse

EOF ( faila_numurs )

Nepieciešamos faila_numursarguments ir vesels skaitlis , kas satur jebkuru derīgu faila numurs.

Piezīmes

Izmantojiet EOF , lai izvairītos no kļūdas ģenerē mēģina iegūt ievades garām faila beigās.

Funkcija EOF atgriež False , līdz sasniegta faila beigas. Ar failiem, kas atvērti gadījuma vai bināro piekļuves, EOF atgriež False līdz pēdējai izpildīts paziņojums par saņemtu nespēj lasīt visu ierakstu.

Ar failiem, kas atvērti bināro piekļuves, mēģinot lasīt, izmantojot failu, izmantojot funkciju Input līdz EOF atgriež True , radīsies kļūda. Izmantojiet funkciju LOF un Loc nevis EOF lasot bināros failus ar ievadi, vai saņemt , izmantojot 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ā funkcija EOF , lai noteiktu faila beigās. Šajā piemērā tiek pieņemts, ka MYFILE ir teksta failu, kurā ir dažas teksta rindiņas.

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
Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×