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 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" palīdzībā.
Atgriež veselu skaitli, kurā ir Būla vērtība True , kad sasniegtas nejaušai vai secīgai ievadei atvērta faila beigas.
Sintakse
EOF(faila numurs)
Nepieciešamais faila numuraarguments ir vesels skaitlis, kas ietver jebkuru derīgu faila numuru.
Piezīmes
Izmantojiet EOF, lai izvairītos no kļūdas, kas rodas, mēģinot veikt ievadi pēc faila beigām.
Funkcija EOF atgriež vērtību false , līdz sasniegtas faila beigas. Kad faili ir atvērti nejaušai vai binārajai piekļuvei, EOF atgriež vērtību Aplams , līdz pēdējais izpildītais Get priekšraksts nevar nolasīt visu ierakstu.
Kad faili ir atvērti binārajai piekļuvei, mēģinājums lasīt failu, izmantojot ievades funkciju, līdz EOF atgriež True , rada kļūdu. Lietojot bināros failus ar ievadi, izmantojiet funkciju LOF un Loc, nevis EOF, vai izmantojiet funkciju Get, kad izmantojat funkciju EOF. Kad faili ir atvērti 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ā tiek izmantota funkcija EOF , lai noteiktu faila beigas. Šajā piemērā tiek pieņemts, ka MYFILE tas 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