Piezīme
Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" palīdzībā.
Atgriež virkni, kurā ir rakstzīmes no faila, kas atvērts ievades vai binārajā režīmā.
Sintakse
Input(skaitlis, [# ] faila numurs)
Ievades funkcijas sintaksei ir šādi argumenti:
| Arguments | Apraksts |
|---|---|
| skaitlis | Obligāts arguments. Jebkura derīga skaitliska izteiksme, kas norāda atgriežamo rakstzīmju skaitu. |
| faila numurs | Obligāts arguments. Jebkurš derīgs faila numurs. |
Piezīmes
Dati, kas nolasīti, izmantojot ievades funkciju, parasti tiek rakstīti failā, izmantojot Print # vai Put. Izmantojiet šo funkciju tikai ar failiem, kas atvērti ievades vai binārajā režīmā.
Atšķirībā no priekšraksta Ievade # funkcija Input atgriež visas nolasītās rakstzīmes, ieskaitot komatus, rakstatgriezes, rindiņas plūsmas, pēdiņas un sākuma atstarpes.
Kad faili ir atvērti binārajai piekļuvei, mēģinājums lasīt failu, izmantojot ievades funkciju, līdz EOF atgriež True , rada kļūdu. Lietojot bināros failus ar ievadi, izmantojiet funkciju LOF un Loc, nevis EOF, vai izmantojiet funkciju Get, kad izmantojat funkciju EOF.
Piezīme
Izmantojiet funkciju InputB baitu datiem, kas atrodas teksta failos. Ar InputBskaitlis norāda atgriežamo baitu skaitu, nevis atgriežamo rakstzīmju skaitu.
Piemērs
Piezīme
Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā tiek izmantota ievades funkcija, lai failā nolasītu pa vienai rakstzīmei un drukātu to tūlītējā logā. Šajā piemērā tiek pieņemts, ka TESTFILE tas ir teksta fails ar dažām datu parauga rindiņām.
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.