EOF aprašymas
Grąžina reikšmę, nurodančią, ar failo pabaiga buvo pasiekta (loginis).
EOF sintaksė
VBA redaktoriuje galite įvesti „EOF (“), kad pamatytumėte EOF funkcijos sintaksę:
Funkcijoje EOF yra argumentas:
Failo numeris: Bet koks galiojantis failo numeris.
„Excel VBA EOF“ funkcijos pavyzdžiai
Norėdami išbandyti EOF funkciją, sukurkite tekstinį failą „test.txt“ D diske. (D: \ test.txt) Tarkime, kad failo turinys yra toks.
123 | abc1 2 3xy z |
Prašome paleisti šį kodą.
1234567891011 | Antrasis įvestis_Fx_pavyzdys ()Pritemdyti strContent kaip eilutę„Dim MyChar“Atidarykite „D: \ test.txt“, kad įvestumėte kaip #1 „Atidaryti failą“.„Do while Not EOF“ (1) „ciklas iki failo pabaigos.MyChar = Įvestis (1, #1) 'Gaukite vieną simbolį.strContent = strContent & MyChar 'Kilpa„MsgBox strContent“Uždaryti #1 'Uždaryti failą.Pabaiga Sub |
Tada rezultatas bus toks.
Čia naudojama EOF funkcija, skirta nustatyti, ar failo pabaiga buvo pasiekta.