Funktionen Input

Viktigt!: Den här artikeln är maskinöversatt, se ansvarsfriskrivningen. Den engelska versionen av den här artikeln finns här för din referens.

Obs!: Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärdering av potentiellt osäkra uttryck. Mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar sträng med tecken från en fil öppnas i läget inmatningar eller Binary .

Syntax

Indata ( tal, [# ] filenumber)

Syntaxen för funktionen indata har följande argument:

Argument

Beskrivning

tal

Obligatoriskt. En giltig numeriskt uttryck som representerar antalet tecken som ska returneras.

filenumber

Obligatoriskt. En giltig filnummer.


Kommentarer

Data som läses med funktionen Input vanligen i en fil med Print # eller . Använd den här funktionen endast med filer som öppnas i läget Input eller binära .

Till skillnad från Input # -uttryck returnerar funktionen Input alla tecken, inklusive kommatecken, vagnreturer, radmatningar, citattecken och inledande blanksteg.

Med filer som öppnas för binära access, uppstår ett försök att läsa genom att använda funktionen Input tills EOF returnerar True -filen ett fel. Använd funktionerna LOF och Loc i stället för EOF när du läser binära filer med indataeller Använd får när du använder funktionen EOF .

Obs!: Använd funktionen InputB för bytedata som finns i textfiler. Tal med InputBanger antalet byte som ska returneras snarare än antalet tecken som ska returneras.

Exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

Det här exemplet används funktionen Input att läsa ett tecken i taget från en fil och skriva ut den till fönstret direkt . Det här exemplet förutsätter att TESTFILE är en textfil med några rader med exempeldata.

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.

Obs!: Ansvarsfriskrivning för maskinöversättning: Den här artikeln har översatts av ett datorsystem utan mänsklig inblandning. Microsoft erbjuder dessa maskinöversättningar för att hjälpa icke engelskspråkiga användare att ta del av information om Microsofts produkter, tjänster och tekniker. Eftersom artikeln är maskinöversatt kan den innehålla fel i ordval, syntax och grammatik.

Utöka dina kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×