VB6 Remplacer toute les espace par un caractère [Résolu]

Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Bonjour à tous

J'ai une chaîne de caractère avec plein d'espaces

" 12,5636 12.36 m 1125.36 3568.23"


Est-il possible de remplacer toutes les espaces afin de mettre un seul carcatères qui séparerra les informations pour donner un truc du genre:

"12,5636-12.36m-1125.36-3568.23"


merci de votre aide

6 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
229
Bonjour,
si espaces en nombre irréguliers ===>> on sort le bazooka :

toto = " 12,5636   12.36 m     1125.36  3568.23  "
Do While toto Like "*  *"
  toto = Replace(Trim(toto), "  ", " ")
Loop
toto = Replace(toto, " ", "-")
MsgBox toto

reste le coup du m, que je n'ai pas compris (précisions nécessaires sur ce point !)

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Messages postés
273
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
30 décembre 2015
1
Facile

dim splitter() as string
dim nvchaine as string
splitter = split("ta chaine"," ")
nvchaine = ""
for i = 0 to ubound(splitter)
nvchaine = nvchaine & "-" & splitter(i)
next


Cherche un peu quoi
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
3
à moins que je ne comprenne pas mais ici j'arrive à un truc du genre

"--12,5636---12.36-m--1125.36--3568.23"


et j'aimerais arriver à un truc du genre

"12,5636-12.36m-1125.36-3568.23"


J'ai essayer quelque truc mais je n'y arrive pas....
Messages postés
273
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
30 décembre 2015
1
tu as plus d'un espace? a certains endroits?
Messages postés
273
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
30 décembre 2015
1
µA tien connaissait pas le Replace XD

Merci pour l'info
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
3
c'est parfait j'avais trouvé un autre facon de faire mais la tienne est bien mieux.


pour le "m" ca sera un minime problème à régler..


merci beaucoup à vous deux