Opis ulaza
Vraća otvoreni tok ulazne ili binarne datoteke (niz).
Ulazna sintaksa
1 | Unos (Broj, [#] Broj datoteke) |
Naredba Input sadrži 2 argumenta:
Broj: Broj znakova za vraćanje.
Broj datoteke:Važeći broj datoteke.
Primjeri ulazne izjave programa Excel VBA
Za testiranje izraza Input, stvorite tekstualnu datoteku "test.txt" na pogonu D. (D: \ test.txt) Pretpostavimo da je sadržaj datoteke sljedeći.
123 | abc1 2 3xy z |
Pokrenite sljedeći kôd.
1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharOtvorite "D: \ test.txt" Za unos kao #1 'Otvorite datoteku.Učiniti Dok Nije EOF (1) 'Petlja do kraja datoteke.MyChar = Unos (1, #1) 'Dobijte jedan znak.strContent = strContent & MyChar 'PetljaMsgBox strContentZatvori #1 'Zatvori datoteku.Kraj podm |
Tada će rezultat biti sljedeći.