ListBox vers fich.Text

papounez Messages postés 119 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 18 novembre 2008 - 1 août 2005 à 15:29
cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Dernière intervention 4 novembre 2008 - 1 août 2005 à 16:54
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

cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Dernière intervention 4 novembre 2008
1 août 2005 à 15:57
tu peut tous simplement remplacer l'espace par du vide


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

Hassen TUNISIE
0
papounez Messages postés 119 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 18 novembre 2008
1 août 2005 à 16:19
est-que je peu le faire dans une listBox
plusieur lignes
en faisant une boucle
puis le sauver dans mon fich.Txt
merci
0
cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Dernière intervention 4 novembre 2008
1 août 2005 à 16:27
oui bien sur



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

Hassen TUNISIE
0
papounez Messages postés 119 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 18 novembre 2008
1 août 2005 à 16:48
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Dernière intervention 4 novembre 2008
1 août 2005 à 16:54
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
0