Pastaba
Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė išjungiama, jei "„Microsoft“ Jet" reiškinių tarnyba veikia smėlio dėžės režimu, kuris neleidžia įvertinti potencialiai nesaugių reiškinių. Daugiau informacijos apie smėlio dėžės režimą ieškokite žinyne "smėlio dėžės režimas".
Grąžina eilutę, kurioje yra simboliai iš failo, atidaryto įvesties arba dvejetainiu režimu.
Sintaksė
Input(skaičius, [# ] failo numeris)
Funkcijos Input sintaksė turi tokius argumentus:
| Argumentas | Aprašymas |
|---|---|
| skaičius | Būtinas. Bet kuris galiojantis skaitinis reiškinys, nurodantis grąžintinų simbolių skaičių. |
| failo numeris | Būtinas. Bet kuris galiojantis failo numeris. |
Pastabos
Duomenys, nuskaitomi naudojant įvesties funkciją, paprastai įrašomi į failą naudojant funkciją Print # arba Put. Naudokite šią funkciją tik su failais, atidaromais įvesties arba dvejetainiu režimu.
Priešingai nei sakinys Input # , funkcija Input grąžina visus skaitomus simbolius, įskaitant kablelius, perkėlimo grąžinimus, eilutės eilutes, kabutes ir pradžioje esančius tarpus.
Kai failai atidaromi dvejetainei prieigai, bandant skaityti failą naudojant įvesties funkciją, kol EOF grąžina True (teisinga ), sugeneruojama klaida. Skaitydami dvejetainius failus su įvestimi naudokite funkcijas LOF ir Loc, o vietoj EOF naudokite funkcijąG.
Pastaba
Funkciją InputB naudokite su baito duomenims, esančiais tekstiniuose failuose. Naudojant InputB, number nurodo grąžintinų baitų skaičių, o ne grąžintinų simbolių skaičių.
Pavyzdys
Pastaba
Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje naudojama įvesties funkcija, skirta skaityti po vieną simbolį iš failo ir spausdinti jį tiesioginiame lange. Šiame pavyzdyje daroma prielaida, kad tai TESTFILE tekstinis failas su keliomis eilutėmis pavyzdinių duomenų.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.