Input et virgule

Résolu
Vianneyp Messages postés 82 Date d'inscription jeudi 6 juillet 2006 Statut Membre Dernière intervention 6 janvier 2010 - 19 déc. 2007 à 20:09
Vianneyp Messages postés 82 Date d'inscription jeudi 6 juillet 2006 Statut Membre Dernière intervention 6 janvier 2010 - 19 déc. 2007 à 20:30
Bonsoir,
Je souhaiterai ouvrir un fichier texte ligne par ligne,et ajouter chacune de ces lignes dans une listbox,comme ceci :
FF = FreeFile
[...]
Open Fichier For Input As #FF
While Not EOF(FF)
Input #FF, l$
[...]
Form.List.AddItem (l$)
[...]
Wend
Close #FF
Le probléme,c'est que lorsque la ligne en question contient une virgule,il la "coupe" en deux a l'endroit de la virgule.
Or,j'ai besoin de la ligne en entier,virgule inclue.
Auriez vous une solution a me proposer ?
Merci d'avance pour vos éclaircissements :) .

3 réponses

fsltp Messages postés 94 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 16 janvier 2008
19 déc. 2007 à 20:17
Voir ca plutot
Dim TextLine
Open "FICHTEST" For Input As #1 ' Ouvre le fichier.
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, TextLine ' Lit la ligne dans la variable.
Debug.Print TextLine ' Affiche dans la fenêtre Exécution.
Loop
Close #1 ' Ferme le fichier.
3
fsltp Messages postés 94 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 16 janvier 2008
19 déc. 2007 à 20:14
Bonsoir,

Voir inputline ?
je verifie
0
Vianneyp Messages postés 82 Date d'inscription jeudi 6 juillet 2006 Statut Membre Dernière intervention 6 janvier 2010
19 déc. 2007 à 20:30
En effet,cela fonctionne a merveille avec Line Input.
Merci encore fsltp.
0
Rejoignez-nous