ListBox vers fich.Text

Signaler
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
-
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
-
bonjour!
mon probleme est d'enlever l'espace entre le X ,Y Z(letrre) et le chiffre qui suis
je crois que l'espace est reservé au signe(-)
plusieur ligne dans la LisBox
que je Sauve dans un fichier .Txt
et la il y les espace
ex: X 1 Y-2 Z 3

merci

5 réponses

Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
tu peut tous simplement remplacer l'espace par du vide


text="X 1 Y-2 Z 3"
textSansEspace=replace(text," ","")

Hassen TUNISIE
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

est-que je peu le faire dans une listBox
plusieur lignes
en faisant une boucle
puis le sauver dans mon fich.Txt
merci
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
oui bien sur



For i = 0 To List1.ListCount - 1
List1.List(i) = Replace(List1.List(i), " ", "")
Next i

Hassen TUNISIE
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

ok Merci Hassen
une autre question
comment faire pour enlever des doublons
voici ma listBox
X-40 Y-100 Z-10 je garde
X-40 Y 100 Z-10 je garde
X-40 Y 100 Z-10.08 celle la
X-40 Y-100 Z-10.08 celle la
X-40 Y-100 Z-10.16 celle la
X-40 Y-100 Z-10.56 je garde
X-39.99 Y-100 Z-10.64 celle la
X-39.99 Y 100 Z-10.64 celle la
X-39.99 Y 100 Z-10.72 celle la
X-39.99 Y-100 Z-10.72 celle la
X-39.99 Y-100 Z-10.8 celle la
X-39.99 Y 100 Z-10.8 celle la
X-39.99 Y 100 Z-10.88 je garde
Etc....
merci
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
c'est simple:

Dim S As String
For i = 0 To List1.ListCount - 1
If InStr(1, S, List1.List(i)) = 0 Then
S = S & "#" & List1.List(i)
List1.List(i) = Replace(List1.List(i), " ", "")
Else
List1.RemoveItem (i)
End If

Next i

Hassen TUNISIE