Obs!
Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression-tjenesten kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i hjelpen.
Returnerer et heltall som inneholder den boolske verdien Sann når slutten av en fil som er åpnet for tilfeldige eller sekvensielle inndata , har nådd.
Syntaks
EOF(filnummer)
Det nødvendige filnummerargumenteter et heltall som inneholder et gyldig filnummer.
Merknader
Bruk EOF til å unngå feilen som genereres ved å forsøke å få inndata forbi slutten av en fil.
EOF-funksjonen returnerer False til slutten av filen er nådd. Når filer er åpnet for tilfeldig eller binær tilgang, returnerer EOFFalse til det siste kjørte Get-uttrykket ikke kan lese en hel post.
Når filer åpnes for binær tilgang, genereres en feil hvis du prøver å lese gjennom filen ved hjelp av inndatafunksjonen til EOF returnerer Sant . Bruk LOF - og Loc-funksjonene i stedet for EOF når du leser binære filer med Input, eller bruk GET når du bruker EOF-funksjonen . Når filer er åpnet for utdata, returnerer EOF alltid Sann.
Eksempel
Obs!
I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker EOF-funksjonen til å oppdage slutten av en fil. Dette eksemplet antar at det MYFILE er en tekstfil med noen få linjer med tekst.
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