Įvesties funkcija

Pastaba: Norėtume jums kuo greičiau pateikti naujausią žinyno turinį jūsų kalba. Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Gal galite šio puslapio apačioje mums pranešti, ar informacija buvo naudinga? Čia yra straipsnis anglų kalba, kuriuo galite pasinaudoti kaip patogia nuoroda.

Pastaba: Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris trukdo galimai nesaugių reiškinių įvertinti. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

Grąžina eilutė, kurioje yra simbolių iš failo atidarytas įvesties arba dvejetainiu režimu.

Sintaksė

Įvesties ( skaičius, [ #] failo numeris)

Įvesties funkcijos sintaksė turi šiuos argumentus:

Argumentas

Aprašas

skaičius

Būtina. Bet kurį neleistina skaitinis reiškinys nurodyti simbolių skaičių.

failo numeris

Būtina. Bet kurį galioja failo numeris.


Pastabos

Duomenų įvesties funkcija skaityti paprastai įrašyti failą su Spausdinti # arba perkelti. Šią funkciją galima naudoti tik failai, atidaromi įvesties arba dvejetainiu režimu.

Skirtingai nei sakinio įvesties #įvesties funkcija pateikia visus simbolius, užrašyta, įskaitant kableliais, grįžimo, eilučių, kabučių ir tarpų.

Su failai, atidaromi dvejetainis prieigos, bandant perskaityti failą naudodami funkciją įvestiesEOF grąžina TRUE (teisinga) , kol generuoja klaida. Naudokite funkcijas LOF ir Loc vietoj EOF skaitant dvejetainius failus su įvestiesarba naudoti gauti naudojant funkciją EOF .

Pastaba: Naudokite funkciją InputB baitų duomenų, esančių tekstinių failų. Su InputB, skaičius nurodo baitų grįžti, o ne 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 funkcija įvesties skaityti per vieną simbolį vienu metu iš failo ir išspausdinkite jį tuoj langą. Šiame pavyzdyje daroma prielaida, kad TESTFILE yra tekstinio failo kelias eilutes duomenų pavyzdžius.

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.
Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×