Indholdsfortegnelse
EOF Beskrivelse
Returnerer værdien, der angiver, om slutningen af en fil er nået (boolsk).
EOF -syntaks
I VBA Editor kan du skrive "EOF (" for at se syntaksen for EOF -funktionen:
EOF -funktionen indeholder et argument:
Fil nummer: Ethvert gyldigt filnummer.
Eksempler på Excel VBA EOF -funktion
For at teste EOF -funktionen skal du oprette en tekstfil "test.txt" på D -drevet. (D: \ test.txt) Antag, at filens indhold er som følger.
123 | abc1 2 3xy z |
Kør venligst følgende kode.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharÅbn "D: \ test.txt" for input som #1 'Åbn fil.Do While Not EOF (1) 'Loop, før filen er slut.MyChar = Input (1, #1) 'Få et tegn.strContent = strContent & MyChar 'SløjfeMsgBox strContentLuk #1 'Luk fil.Afslut Sub |
Derefter bliver resultatet som følger.
Her bruges EOF -funktionen til at bestemme, at enden på en fil er nået.