Funkcija EOF

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

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

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas 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.

×