Lang L: none (table-of-contents)
EOF kirjeldus
Tagastab väärtuse, mis näitab, kas faili lõpp on saavutatud (Boolean).
EOF -i süntaks
VBA redaktoris saate EOF -funktsiooni süntaksi nägemiseks tippida "EOF ("):
Funktsioon EOF sisaldab argumenti:
Faili number: Iga kehtiv failinumber.
Näited Excel VBA EOF -funktsioonist
Funktsiooni EOF testimiseks looge D -draivi tekstifail „test.txt”. (D: \ test.txt) Oletame, et faili sisu on järgmine.
123 | abc1 2 3xy z |
Palun käivitage järgmine kood.
1234567891011 | Alamsisend_Fx_näide ()Hämarda strContent stringinaHämardage MyCharAvage fail "D: \ test.txt", kui sisestate faili #1 avatud failina.Do while Not EOF (1) 'Loop kuni faili lõpuni.MyChar = Sisend (1, #1) 'Hangi üks märk.strContent = strContent & MyChar 'LoopMsgBox strContentSulgege number 1 'Sule fail.End Sub |
Siis on tulemus järgmine.
Siin kasutati funktsiooni EOF abil faili lõppu jõudmiseks.