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 boolesk värdet Sant när slutet av en fil som öppnats för slumpmässig eller sekventiell indata har nåtts.
Syntax
EOF( filenumber )
Den obligatoriska filenumberargument är ett heltal som innehåller giltiga filnummer.
Kommentarer
Använd EOF för att undvika felet som genereras genom att försöka få indata förbi slutet av en fil.
Funktionen EOF returnerar False tills slutet av filen har nåtts. Med filer som öppnats för slumpmässig eller binär åtkomst returnerar EOFFalskt tills den senast körda Get-instruktionen inte kan läsa en hel post.
När filer öppnas för binär åtkomst genererar ett försök att läsa igenom filen med hjälp av indatafunktionen tills EOF returnerar True ett fel. Använd funktionerna LOF och Loc i stället för EOF när du läser binära filer med indata, eller använd Hämta när du använder funktionen EOF . När filer öppnas 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 funktionen EOF för att identifiera slutet av en fil. I det här exemplet förutsätts att 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
