Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".
Pateikia eilutę su simboliais iš failo, atidaryto įvesties arba dvejetainiu režimu.
Sintaksė
Input( number, [# ] filenumber)
Įvesties funkcijos sintaksė turi tokius argumentus:
|
Argumentas |
Aprašas |
|
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, skaitomi naudojant įvesties funkciją, paprastai įrašomi į failą, kurio spausdinimo nr . arba "Put". Naudokite šią funkciją tik su failais, atidarytais įvesties arba dvejetainiu režimu.
Skirtingai nei sakinys Įvestis #, įvesties funkcija pateikia visus perskaitytus simbolius, įskaitant kablelius, perkėlimo grąžinimus, eilučių informacijos santraukas, kabutes ir tarpus pradžioje.
Kai failai atidaromi dvejetainės prieigos funkcijai, bandymas skaityti failą naudojant įvesties funkciją, kol EOF grąžina True sugeneruoja klaidą. Skaitant dvejetainius failus su įvestimi, vietoje EOF naudokite LOF ir Loc funkcijas arba naudokite funkciją Get, kai naudojama funkcija EOF.
Pastaba: Naudokite funkciją InputB , jei teksto failuose yra baitų duomenų. Naudojant InputB, skaičius nurodo, kiek baitų reikia grąžinti, 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 įvesties funkcija naudojama skaityti po vieną simbolį iš failo ir išspausdinti jį tiesioginiam langui. Šiame pavyzdyje daroma prielaida, kad TESTFILE yra tekstinis failas su keliomis duomenų pavyzdžio eilutėmis.
Dim MyCharOpen "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.LoopClose #1 ' Close file.
