Funkcija Input

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Piezīme : Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Tiek atgriezta virkne, kurā ir rakstzīmes no faila, kas atvērta datu ievadi vai binārā režīmā.

Sintakse

Ievades ( skaitlis, [ #] faila_numurs)

Ievades sintaksē ir šādi argumenti:

Arguments

Apraksts

numurs

Obligāts. Jebkuru derīgu skaitliska izteiksme norādot atgriežamo rakstzīmju skaits.

faila_numurs

Obligāts. Jebkuru derīgu faila numurs.


Piezīmes

Fails ar Drukāšana # vai nodotparasti ir ierakstīti datu nolasīt, izmantojot funkciju Input . Izmantojiet šo funkciju, tikai ar failiem, kas atvērti ievades vai binārā režīmā.

Atšķirībā no priekšrakstu ievades #ievades funkcija atgriež visas rakstzīmes, kas rakstīts, tai skaitā komati, rakstatgriezes rakstzīmes, rindpadeves, pēdiņas un atstarpes.

Ar failiem, kas atvērti bināro piekļuves, mēģinot lasīt, izmantojot failu, izmantojot funkciju Input līdz EOF atgriež True , radīsies kļūda. Izmantojiet funkciju LOF un Loc nevis EOF lasot bināros failus ar ievadi, vai saņemt , izmantojot funkcija EOF .

Piezīme : Izmantojiet funkciju InputB baitu datiem, kas atrodas teksta failiem. Ar InputB, skaitlis norāda atgriezties nevis atgriežamo rakstzīmju skaits baitu 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 funkcija Input lasīt vienu rakstzīmi pa vienam no faila un izdrukāt logu tūlītējs . Šajā piemērā tiek pieņemts, ka TESTFILE ir teksta fails ar dažām datu paraugu 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.

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai