Obs!: Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Tjenesten Microsoft Jet Expression kjører i sandkassemodus, noe som hindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.
Returnerer et heltall som inneholder Boolsk sann når slutten av en fil som åpnes for tilfeldige eller sekvensielle inndata, er nådd.
Syntaks
EOF( filnummer )
Det obligatoriskeargument er et heltall som inneholder gyldige filnummer.
Merknader
Bruk EOF for å unngå feilen som genereres ved å forsøke å få inndata forbi slutten av en fil.
EOF-funksjonen returnerer Usann til slutten av filen er nådd. Med filer åpnet for tilfeldig ellerbinær tilgang, returnerer EOFUsann til den sist utførte Get-setningen ikke kan lese en hel post.
Med filer åpnet for binær tilgang, kan du prøve å lese gjennom filen ved hjelp av Inndata-funksjonen til EOF returnerer Sann genererer en feil. Bruk LOF- ogLoc-funksjonene i stedet for EOF når du leser binære filer med Inndata,eller bruk Hent når du bruker EOF-funksjonen. Med filer som 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 på en fil. Dette eksemplet forutsetter at 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
