Funktionen Input

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Bemærk: Den funktion, metode, objekt eller egenskab, der er beskrevet i dette emne er deaktiveret, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evaluering af potentielt usikre udtryk. Du kan finde flere oplysninger om sandkassetilstand, søge efter "sandkassetilstand" i Hjælp.

Returnerer streng, der indeholder tegn fra en fil, der er åbnet i tilstanden Input eller binære .

Syntaks

Input ( tal, [# ] filnummer)

Syntaksen for funktionen Input har følgende argumenter:

Argument

Beskrivelse

tal

Der er påkrævet. En hvilken som helst gyldigt numerisk udtryk, der angiver antallet af tegn, der skal gå tilbage.

filnummer

Der er påkrævet. En hvilken som helst gyldigt filnummer.


Bemærkninger

Data, der læses med funktionen Input skrives som regel til en fil med Print # eller flytte. Brug denne funktion kun med filer, der er åbnet i tilstanden Input eller binære .

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

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

Bemærk: Bruge funktionen InputB til bytedata, der er indeholdt i tekstfiler. Tal med InputBangiver antallet byte til at returnere i stedet for antallet tegn, der skal gå tilbage.

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.

Dette eksempel bruges funktionen Input til at læse ét tegn ad gangen fra en fil og udskrive den til vinduet Immediate . I dette eksempel antages det pågældende 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.

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Udvid dine færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider

Var disse oplysninger nyttige?

Tak for din feedback!

Tak for din feedback! Det lyder, som om det vil kunne hjælpe, hvis du bliver sat i forbindelse med en af vores Office-supportteknikere.

×