Lang L: none (table-of-contents)
Sisendi kirjeldus
Tagastab sisend- või kahendfaili (String) avatud voo.
Sisestussüntaks
| 1 | Sisend (arv, [#] failinumber) |
Sisendlause sisaldab 2 argumenti.
Arv: Tagastatavate märkide arv.
Faili number:Kehtiv failinumber.
Excel VBA sisendavalduse näited
Sisendlausete 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.
