Problème de virgule...

Signaler
Messages postés
91
Date d'inscription
mercredi 6 novembre 2002
Statut
Membre
Dernière intervention
20 mars 2009
-
Messages postés
91
Date d'inscription
mercredi 6 novembre 2002
Statut
Membre
Dernière intervention
20 mars 2009
-
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

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
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
Messages postés
133
Date d'inscription
dimanche 28 avril 2002
Statut
Membre
Dernière intervention
15 janvier 2009
3
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
Messages postés
91
Date d'inscription
mercredi 6 novembre 2002
Statut
Membre
Dernière intervention
20 mars 2009

merci pour ces réponses éclaires !
"Line" c'etait bien ca,
a+
0