Obs!
Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression-tjenesten kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i hjelpen.
Returnerer streng som inneholder tegn fra en fil som er åpnet i inndatamodus eller binærmodus .
Syntaks
Input(number; [# ] filenumber)
Syntaksen for funksjonen Inndata har disse argumentene:
| Argumenter | Beskrivelse |
|---|---|
| tall | Obligatorisk. Et gyldig numerisk uttrykk som angir antallet tegn som skal returneres. |
| filnummer | Obligatorisk. Et hvilket som helst gyldig filnummer. |
Merknader
Data som leses med Inndata-funksjonen , skrives vanligvis til en fil med Skriv ut # eller Put. Bruk denne funksjonen bare med filer som åpnes i inndatamodus eller binært modus.
I motsetning til Input # -setningen returnerer Input-funksjonen alle tegnene den leser, inkludert komma, returtegn, linjeskift, anførselstegn og innledende mellomrom.
Når filer åpnes for binær tilgang, genereres en feil hvis du prøver å lese gjennom filen ved hjelp av inndatafunksjonen til EOF returnerer Sant . Bruk LOF - og Loc-funksjonene i stedet for EOF når du leser binære filer med Input, eller bruk GET når du bruker EOF-funksjonen .
Obs!
Bruk InputB-funksjonen for byte-data som finnes i tekstfiler. Med InndataB angir tall antall byte som skal returneres, i stedet for antall tegn som skal returneres.
Eksempel
Obs!
I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker Inndata-funksjonen til å lese ett tegn om gangen fra en fil og skrive det ut til øyeblikksvinduet . Dette eksemplet antar at det TESTFILE er en tekstfil med noen 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.