Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.
Returnerer et heltal, der indeholder den Boolesk værdi værdi Sand , når slutningen af en fil, der er åbnet for tilfældigt eller sekventielt input , er nået.
Syntaks
EOF( filnummer )
Den påkrævede argument er et Heltal , der indeholder alle gyldige filnummer.
Bemærkninger
Brug EOF for at undgå den fejl, der genereres ved at forsøge at få input forbi slutningen af en fil.
Funktionen EOF returnerer Falsk , indtil slutningen af filen er nået. Med filer, der er åbnet for tilfældig eller binær adgang, returnerer EOFFalse , indtil den sidst udførte Get-sætning ikke kan læse en hel post.
Når filer er åbnet for binær adgang, vil et forsøg på at læse filen ved hjælp af inputfunktionen , indtil EOF returnerer Sand , generere en fejl. Brug funktionerne LOF og Loc i stedet for EOF , når du læser binære filer med Input, eller brug Hent , når du bruger funktionen EOF . Når filer åbnes for Output, returnerer EOF altid Sand.
Eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges funktionen EOF til at registrere slutningen af en fil. I dette eksempel antages det, at MYFILE er en tekstfil med nogle få tekstlinjer.
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
