Obs
Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.
Returnerar ett heltal som innehåller det booleska värdet True när slutet av en fil som öppnats för slumpmässig eller sekventiell inmatning har nåtts.
Syntax
EOF(filnummer)
Det obligatoriska argumentet för filnummerär ett heltal som innehåller ett giltigt filnummer.
Kommentarer
Använd EOF för att undvika fel som genereras när du försöker få indata förbi slutet av en fil.
EOF-funktionen returnerar False tills slutet av filen har nåtts. Med filer som öppnas för slumpmässig eller binär åtkomst returnerar EOFFalse tills den senast körda Get-satsen inte kan läsa en hel post.
När filer har öppnats för binär åtkomst genererar ett fel om du försöker läsa igenom filen med indatafunktionen tills EOF returnerar Sant . Använd funktionerna LOF och Loc i stället för EOF när du läser binära filer med Input, eller använd Get när du använder funktionen EOF . Med filer öppna för utdata returnerar EOF alltid Sant.
Exempel
Obs
I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används EOF-funktionen för att identifiera slutet av en fil. Det här exemplet förutsätter att det MYFILE är en textfil med några rader text.
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