Funktionen EOF

Bemærk!: Vi vil gerne give dig den mest opdaterede hjælp, så hurtigt vi kan, på dit eget sprog. Denne side er oversat ved hjælp af automatisering og kan indeholde grammatiske fejl og unøjagtigheder. Det er vores hensigt, at dette indhold skal være nyttigt for dig. Vil du fortælle os, om oplysningerne var nyttige for dig, nederst på denne side? Her er artiklen på engelsk så du kan sammenligne.

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 Boolesk værdi værdien Sand , når slutningen af en fil, der er åbnet til vilkårligt eller sekventielle Input er nået.

Syntaks

EOF ( filnummer )

Påkrævet filnummerargument er et heltal , der indeholder alle gyldige filnummer.

Bemærkninger

Brug EOF for at undgå fejlen genereret forsøger at hente input efter slutningen af en fil.

Funktionen EOF returnerer Falsk , indtil slutningen af filen er nået. Filer, der er åbnet for vilkårlig eller binær adgang, returnerer EOFFalsk , indtil sidst udførte Get -sætning ikke at læse en hel post.

Filer, der er åbnet for binære adgang, genererer et forsøg på at læse filen ved hjælp af funktionen Input , indtil EOF returnerer True en fejl. Brug funktionerne LOF og Loc i stedet for EOF , når du læser binære filer med Input, eller brug får , når du bruger funktionen EOF . Filer, der er åbnet for Output, returnerer EOF altid True.

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.

Dette eksempel bruges funktionen EOF til at registrere slutningen af en fil. I dette eksempel antages det pågældende 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
Udvid dine Office-færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider

Var disse oplysninger nyttige?

Tak for din feedback!

Tak for din feedback! Det lyder, som om det vil kunne hjælpe, hvis du bliver sat i forbindelse med en af vores Office-supportteknikere.

×