Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā 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" sadaļā Palīdzība.
Atgriež virkni, kas satur ievades vai binārā režīmā atvērtafaila rakstzīmes.
Sintakse
Input( skaitlis, [# ] faila_numurs)
Funkcijas Input sintaksē ir šādi argumenti:
|
Arguments |
Apraksts |
|
skaitlis |
Obligāts arguments. Jebkurš derīgs skaitliska izteiksme, kas norāda atgriežamo rakstzīmju skaitu. |
|
faila_numurs |
Obligāts arguments. Jebkura derīga faila numurs. |
Piebildes
Dati, kas lasīti , izmantojot ievades funkciju, parasti tiek rakstīti failā, izmantojot komandu Drukāt # vai Ievietot. Izmantojiet šo funkciju tikai failiem, kas atvērti ievades vaibinārā režīmā.
Atšķirībā no priekšraksta Input # funkcija Input atgriež visas rakstzīmes, ko tā lasa, tostarp komatus, rakstatgriezes rakstzīmes, rindiņu plūsmas, pēdiņas un sākuma atstarpes.
Atverot failus binārās piekļuves piekļuvei, mēģinājums lasīt failu, izmantojot ievades funkciju, līdz EOF atgriež True ģenerē kļūdu. Lasot bināros failusar ievadi, EOF vietā izmantojiet funkcijas LOF un Loc vai izmantojietfunkciju Get.
Piezīme.: Izmantojiet funkciju InputB baitu datiem, kas iekļauti teksta failos. Izmantojot InputB, skaitlis 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ā izmantota ievades funkcija, lai lasītu pa vienai rakstzīmei no faila un drukātu logā Tūlītējs . Šajā piemērā tiek pieņemts TESTFILE ka fails 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.
