Applies ToAccess för Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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 MyCharOpen "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.LoopClose #1    ' Close file.

Behöver du mer hjälp?

Vill du ha fler alternativ?

Utforska prenumerationsförmåner, bläddra bland utbildningskurser, lär dig hur du skyddar din enhet med mera.

Communities hjälper dig att ställa och svara på frågor, ge feedback och få råd från experter med rika kunskaper.