Opmerking: De functie, methode, object of eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandbox-modus, waardoor de evaluatie van mogelijk onveilige expressies wordt voorkomen. Zoek naar 'sandbox-modus' in de Help voor meer informatie over de sandboxmodus.
Deze functie retourneert een tekenreeks met tekens uit een bestand dat is geopend in de modus Input of Binary.
Syntaxis
Input( getal, [# ] bestandsnummer)
De syntaxis van de functie Input bevat de volgende argumenten:
|
Argument |
Beschrijving |
|
getal |
Vereist. Een geldige numerieke expressie die het aantal tekens aangeeft dat u wilt retourneren. |
|
bestandsnummer |
Vereist. Een geldig bestandsnummer. |
Opmerkingen
Gegevens die worden gelezen met de functie Input worden meestal met Print # of Put weggeschreven naar een bestand. Gebruik deze functie alleen met bestanden die zijn geopend in de modus Input of Binary.
In tegenstelling tot de instructie Input # retourneert de functie Input alle tekens die worden gelezen, dus ook komma's, regelteruglooptekens, regelinvoertekens, aanhalingstekens en voorloopspaties.
Bij bestanden die zijn geopend voor Binary toegang treedt er een fout op als er wordt geprobeerd om het bestand te lezen met de functie Input totdat EOFTrue als resultaat geeft. Gebruik de functies LOF en Loc in plaats van EOF voor het lezen van binaire bestanden met Input, of gebruik Get wanneer u de functie EOF gebruikt.
Opmerking: Gebruik de functie InputB voor bytegegevens in tekstbestanden. Bij InputB bepaalt getal het aantal bytes dat u wilt retourneren, in plaats van het aantal tekens.
Voorbeeld
Opmerking: In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie Input gebruikt om de inhoud van een bestand teken voor teken te lezen en weer te geven in het venster Direct. In dit voorbeeld wordt ervan uitgegaan dat TESTFILE een tekstbestand is met een paar regels met voorbeeldgegevens.
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.
