Innholdsfortegnelse
EOF Beskrivelse
Returnerer verdien som angir om slutten av en fil er nådd (boolsk).
EOF -syntaks
I VBA Editor kan du skrive "EOF (" for å se syntaksen for EOF -funksjonen:
EOF -funksjonen inneholder et argument:
Filnummeret: Ethvert gyldig filnummer.
Eksempler på Excel VBA EOF -funksjon
For å teste EOF -funksjonen, opprett en tekstfil “test.txt” på D -stasjonen. (D: \ test.txt) Anta at innholdet i filen er som følger.
123 | abc1 2 3xy z |
Vennligst kjør følgende kode.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharÅpne "D: \ test.txt" For Input As #1 'Åpne fil.Do While Not EOF (1) 'Loop til slutten av filen.MyChar = Input (1, #1) 'Få ett tegn.strContent = strContent & MyChar 'LøkkeMsgBox strContentLukk #1 'Lukk fil.Slutt Sub |
Deretter blir resultatet som følger.
Her brukte EOF -funksjonen for å bestemme at slutten på en fil er nådd.