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 öppnas i indata - eller binärt läge.
Syntax
Input( number, [# ] filenumber)
Syntaxen för funktionen Indata har följande argument:
|
Argument |
Beskrivning |
|
tal |
Obligatoriskt. Giltiga numeriskt uttryck som anger antalet tecken som ska returneras. |
|
filenumber |
Obligatoriskt. Giltiga filnummer. |
Kommentarer
Data som läses med indatafunktionen skrivs vanligtvis till en fil med Skriv ut # eller Put. Använd endast den här funktionen om filer öppnas i inmatnings - eller binärt läge.
Till skillnad från inmatningsnr-uttrycket returnerar indatafunktionen alla tecken den läser, inklusive kommatecken, vagnreturer, radmatningar, citattecken och inledande blanksteg.
När filer öppnas för binär åtkomst genererar ett försök att läsa igenom filen med hjälp av indatafunktionen tills EOF returnerar True 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 funktionen IndataB för bytedata som finns i textfiler. Med IndataB anger 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 indatafunktionen för att läsa ett tecken i taget från en fil och skriva ut den till direktfönstret . I det här exemplet förutsätts 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.
