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 en sträng som innehåller tecken från en fil som öppnats i indataläge eller binärt läge.
Syntax
Input(tal; [# ] filnummer)
Syntaxen för indatafunktionen har följande argument:
| Argument | Beskrivning |
|---|---|
| antal | Obligatoriskt. Ett giltigt numeriskt uttryck som anger antalet tecken som ska returneras. |
| filnummer | Obligatoriskt. Valfritt giltigt filnummer. |
Kommentarer
Data som läses med indatafunktionen skrivs vanligtvis till en fil med Print # eller Put. Använd endast den här funktionen med filer som öppnas i indataläge eller binärt läge.
Till skillnad från Input # -satsen returnerar Input-funktionen alla tecken den läser, inklusive kommatecken, vagnreturer, radmatningar, citattecken och inledande blanksteg.
När filer har öppnats för binär åtkomst genererar ett fel om du försöker läsa igenom filen med indatafunktionen tills EOF returnerar Sant . Använd funktionerna LOF och Loc i stället för EOF när du läser binära filer med Input, eller använd Get när du använder funktionen EOF .
Obs
Använd funktionen InputB för bytedata som finns i textfiler. Med InputB 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 det till direktfönstret . Det här exemplet förutsätter att det TESTFILE är en textfil med några rader 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.