Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service 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 Hjelp.
Returnerer streng som inneholder tegn fra en fil som er åpnet i inndata- eller binærmodus .
Syntaks
Input( number, [# ] filenumber)
Syntaksen for inndatafunksjonen har følgende argumenter:
|
Argument |
Beskrivelse |
|
tall |
Obligatorisk. Alle gyldige numerisk uttrykk som angir antall tegn som skal returneres. |
|
imtall |
Obligatorisk. Alle gyldige filnummer. |
Kommentarer
Data som leses med Inndata-funksjonen , skrives vanligvis til en fil med Skriv ut # eller Plasser. Bruk denne funksjonen bare med filer som er åpnet i inndata- eller binærmodus .
I motsetning til Inndata # -setningen returnerer Inndata-funksjonen alle tegnene den leser, inkludert komma, returtegn, linjefeeder, anførselstegn og innledende mellomrom.
Når filer åpnes for binær tilgang, genereres en feil ved å prøve å lese gjennom filen ved hjelp av inndatafunksjonen til EOF returnerer Sann . Bruk LOF - og Loc-funksjonene i stedet for EOF når du leser binære filer med Inndata, eller bruk Hent når du bruker EOF-funksjonen .
Obs!: Bruk InputB-funksjonen for bytedata 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 den ut til Øyeblikk-vinduet . Dette eksemplet forutsetter at TESTFILE er en tekstfil med noen få linjer med eksempeldata.
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.
