Funktionen EOF

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Bemærk: Den funktion, metode, objekt eller egenskab, der er beskrevet i dette emne er deaktiveret, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evaluering af potentielt usikre udtryk. Du kan finde flere oplysninger om sandkassetilstand, søge efter "sandkassetilstand" i Hjælp.

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 )

Det krævede filnummer-argument er et heltal, som indeholder et gyldigt filnummer.

Bemærkninger

Brug EOF til at forhindre, at der opstår en fejl ved forsøg på at hente input efter slutningen af en fil.

Funktionen EOF returnerer Falsk, indtil slutningen af filen er nået. Hvis filer er åbnet med henblik på Vilkårlig eller Binær adgang, returnerer EOFFalsk, indtil den sidste udførte Get-sætning ikke kan læse en hel post.

Når filer er åbnet med henblik på Binær adgang, genereres der fejl ved forsøg på at læse filen ved hjælp af funktionen Input, indtil EOF returnerer Sand. Brug funktionen LOF og Loc i stedet for EOF ved læsning af binære filer med Input, eller brug Get, når du anvender funktionen EOF. Med filer, der er åbnet med henblik på 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 anvendes funktionen EOF til at spore slutningen af en fil. I dette eksempel antager vi, at MYFILE er en tekstfil med nogle få linjer 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

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Del Facebook Facebook Twitter Twitter Mail Mail

Var disse oplysninger nyttige?

Fantastisk! Har du mere feedback?

Hvordan kan vi forbedre det?

Tak for din feedback!

×