Vianneyp
Messages postés82Date d'inscriptionjeudi 6 juillet 2006StatutMembreDernière intervention 6 janvier 2010
-
19 déc. 2007 à 20:09
Vianneyp
Messages postés82Date d'inscriptionjeudi 6 juillet 2006StatutMembreDerniè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 :) .
fsltp
Messages postés94Date d'inscriptionlundi 26 novembre 2007StatutMembreDernière intervention16 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.