ListBox: enlever des espacesRésolu

Question

Bonsoir!
VB6 sur XP
Voila j' ai une LisBox avec plusieur  ligne
sous la forme de
X-1 Y 1 Z 2
X 1 Y-.2 Z-2
X .2 Y-.2 Z 10
etc.
Mon Probleme C'est d'enlever les espaces entre
X et le chiffre Y et le chiffre Z et le chiffre
l' espace se cr&#233;e quand le chiffre est positif
puisque il le reserve pour le signe -
j' aimerai la retrouver sous cette forme
X-1 Y1 Z2
X1 Y-.2 Z-2
X.2 Y-.2 Z10

Merci Bien

Ps: je le fait dans manuellement un fichier Texte par (Remplacer)

cs_hassen · Accepted Answer

for i=0 to Lisbox.listcount-1
      Listbox.list(i)=replace( Listbox.list(i)," " ,"")
next i

Hassen TUNISIE

papounez · Answer

Ok Merci
Donc je fais 3 fois la boucles
une pour le X puis Y et le Z

ou , il y a  plus simple ?
Merci encore une fois!

cs_hassen · Answer

mais non tu le fait une seul fois. parce que replace( Listbox.list(i)," " ,"") remplace tous les espaces de Listbox.list(i) par du vide

Hassen TUNISIE

papounez · Answer

Ok mais
je veus garder un espace entre les coordonn&#233;e X Y Z:


X1 et Y2 et Z2

For I = 0 To O_Fenetre.ListCount - 1
      O_Fenetre.List(I) = Replace(O_Fenetre.List(I), "X ", "X")
      O_Fenetre.List(I) = Replace(O_Fenetre.List(I), "Y ", "Y")
      O_Fenetre.List(I) = Replace(O_Fenetre.List(I), "Z ", "Z")

Next I

Merci

samrom · Answer

Ou cstr(variable)

ex:

a= 10
print a
 10 
print cstr(a)
10

ListBox: enlever des espaces

5 réponses

Discussions similaires