Funktionen Input

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ärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar sträng som innehåller tecken från en fil som öppnats i indata- eller binärt läge.

Syntax

Input( tal, [# ] räknare)

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

Argument

Beskrivning

tal

Obligatoriskt. Giltiga numeriskt uttryck antalet tecken som ska returneras.

räknare

Obligatoriskt. Alla giltiga filnummer.


Kommentarer

Data som läses upp med indatafunktionen skrivs vanligtvis till en fil med Skriv ut # eller Placera. Använd bara den här funktionen med filer öppna i indata- eller binärt läge.

Till skillnad från satsen Indata #returnerar indatafunktionen alla tecken den läser, inklusive kommatecken, vagnreturer, radmatningar, citattecken och inledande blanksteg.

Med filer öppnad för binär åtkomst, ett försök att läsa igenom filen med hjälp av indatafunktionen tills EOFreturnerar True genererar ett fel. Använd funktionerna LOF och Loc i stället för EOF när du läser binära filer med Indata,eller använd Hämta när du använder funktionen EOF.

Obs!:  Använd indatab-funktionen för byte-data som finns i textfiler. Med IndataBanger tal antalet byte som ska returneras i stället för 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.

I det här exemplet används funktionen Indata för att läsa ett tecken i taget från en fil och skriva ut den till direktfönstret. Det här exemplet förutsätter 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.

Behöver du mer hjälp?

Utöka dina Office-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.

×