VB6 Remplacer toute les espace par un caractèreRésolu

Question

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

ucfoutu · Accepted Answer

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

Genildf · Answer

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

cs_JeffC1977 · Answer

à 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....

Genildf · Answer

tu as plus d'un espace? a certains endroits?

Genildf · Answer

µA tien connaissait pas le Replace XD 

Merci pour l'info

cs_JeffC1977 · Answer

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

VB6 Remplacer toute les espace par un caractère

6 réponses

Votre réponse

Discussions similaires