Log på med Microsoft
Log på, eller opret en konto.
Hej
Markér en anden konto.
Du har flere konti
Vælg den konto, du vil logge på med.

Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.

Returnerer Streng, der indeholder tegn fra en fil, der er åbnet i input - eller binær tilstand.

Syntaks

Input( tal; [# ] filnummer)

Syntaksen for funktionen Input har disse argumenter:

Argument

Beskrivelse

antal

Obligatorisk. Alle gyldige numerisk udtryk , der angiver det antal tegn, der skal returneres.

filnummer

Påkrævet. Alle gyldige filnummer.


Bemærkninger

Data, der læses med inputfunktionen, skrives normalt til en fil med Print # eller Put. Brug kun denne funktion med filer, der er åbnet i input- eller binær tilstand.

I modsætning til sætningen Input # returnerer funktionen Input alle de tegn, den læser, herunder kommaer, vognretur, linjeskift, anførselstegn og foranstillede mellemrum.

Når filer er åbnet for binær adgang, vil et forsøg på at læse filen ved hjælp af inputfunktionen , indtil EOF returnerer Sand , generere en fejl. Brug funktionerne LOF og Loc i stedet for EOF , når du læser binære filer med Input, eller brug Hent , når du bruger funktionen EOF .

Bemærk!:  Brug funktionen InputB til bytedata, der er indeholdt i tekstfiler. Med InputB angiver tal antallet af byte, der skal returneres, i stedet for antallet af tegn, der skal returneres.

Eksempel

Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

I dette eksempel bruges funktionen Input til at læse ét tegn ad gangen fra en fil og udskrive det til vinduet Brugerudtryk . I dette eksempel antages det, at TESTFILE er en tekstfil med nogle få linjer med eksempeldata.

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.

Har du brug for mere hjælp?

Vil du have flere indstillinger?

Udforsk abonnementsfordele, gennemse kurser, få mere at vide om, hvordan du sikrer din enhed og meget mere.

Communities hjælper dig med at stille og besvare spørgsmål, give feedback og høre fra eksperter med omfattende viden.

Var disse oplysninger nyttige?

Hvor tilfreds er du med kvaliteten af sproget?
Hvad påvirkede din oplevelse?
Når du trykker på Send, bliver din feedback brugt til at forbedre Microsoft-produkter og -tjenester. Din it-administrator kan indsamle disse data. Erklæring om beskyttelse af personlige oplysninger.

Tak for din feedback!

×