Problème de virgule...

gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009 - 9 déc. 2002 à 03:11
gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009 - 9 déc. 2002 à 14:55
Salut,
Voici le code que j'utilise pour
afficher le contenu d'un fichier texte
ligne par ligne dans une ListBox :
########################
Dim Ligne As String, Texte As String
Open MonTexte For Input As #1
Do While Not EOF(1)
Input #1, Ligne
Texte = Ligne
List1.AddItem Texte
Loop
Close #1
########################
Mais voila, s'il y a une virgule
dans le fichier texte la ligne est
coupée par la virgule dans la listebox...
j'ai essaiyé la fonction "replace", sans succès
Que faire ??
Mersi;

3 réponses

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
9 déc. 2002 à 06:28
Au lieu d'utiliser la commande Input qui ne récupère que le contenu d'une variable, utilise un Line Input, tout simplement.

DARK SIDIOUS
0
PatDeLaYaute Messages postés 133 Date d'inscription dimanche 28 avril 2002 Statut Membre Dernière intervention 15 janvier 2009 3
9 déc. 2002 à 14:23
Salut,
c'est juste pour la forme
mais tu n'as pas besoin d'utiliser la variable Texte

Dim Ligne As String
Open MonTexte For Input As #1
Do While Not EOF(1)
Input #1, Ligne
List1.AddItem Texte
Loop
Close #1

Voilà, c'est juste pour ça ;-)

@+
0
gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009
9 déc. 2002 à 14:55
merci pour ces réponses éclaires !
"Line" c'etait bien ca,
a+
0
Rejoignez-nous