Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Retourne une chaîne contenant des caractères d’un fichier ouvert en mode Entrée ou Binaire .
Syntaxe
Input( number, [# ] filenumber)
La syntaxe de la fonction Input contient les arguments suivants :
|
Argument |
Description |
|
nombre |
Obligatoire. Toute expression numérique valide spécifiant le nombre de caractères à retourner. |
|
filenumber |
Obligatoire. Tout numéro de fichier valide. |
Remarques
Les données lues avec la fonction Input sont généralement écrites dans un fichier avec Print # ou Put. Utilisez cette fonction uniquement avec les fichiers ouverts en mode Entrée ou Binaire .
Contrairement à l’instruction Input # , la fonction Input retourne tous les caractères qu’elle lit, y compris les virgules, les retours chariot, les sauts de ligne, les guillemets et les espaces de début.
Avec les fichiers ouverts pour l’accès binaire , une tentative de lecture du fichier à l’aide de la fonction Input jusqu’à ce que EOF retourne True génère une erreur. Utilisez les fonctions LOF et Loc au lieu d’EOF lors de la lecture de fichiers binaires avec Input, ou utilisez Get lorsque vous utilisez la fonction EOF.
Remarque : Utilisez la fonction InputB pour les données d’octet contenues dans les fichiers texte. Avec InputB, number spécifie le nombre d’octets à retourner plutôt que le nombre de caractères à renvoyer.
Exemple
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Input pour lire un caractère à la fois à partir d’un fichier et l’imprimer dans la fenêtre Exécution . Cet exemple suppose que TESTFILE est un fichier texte contenant quelques lignes d’exemples de données.
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.
