Netoyer une chaine de carractéresRésolu

Question

Bonsoir,

J'ai un petit soucis.
J'ai un objet TextBox ou je peux saisir du texte sur plusieurs lignes.
Le problème est que je dois enlever absolument les retours chariots, retours lignes ext...Laisser que le texte.
Comment faire ? Avez-vous une fonction qui réalise la chose ? ou alors comment avec la fonction "replace"
enlever les carractéres en question que je ne vois pas d'ailleurs.

Merci de votre aide.

tolt

cs_Jack · Accepted Answer

Salut
Les retours chariot peuvent être (ou)
   vbCrLf   = Ascii 13 + 10
   vbCr      = Ascii 13
   vbLf       = Ascii 10
Exemple de Replace pour remplacer un retour chariot standard vbCrLf par un point et un espace :
Do While Instr(monTexte, vbCrLf) > 0
   monTexte = Replace(monTexte, vbCrLf, ". ")
   DoEvents
Loop

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_tolt · Answer

Super ça marche en effet.
Merci beaucoup de votre réponse et bonne soirée.

Ce site est vraiment une mine d'or...

tolt

cs_Jack · Answer

Non, ce sont les membres qui sont des pépites !

cs_tolt · Answer

J'inclus bien sur les membres de ce site dans mon message.
Très Amicalement

tolt

Netoyer une chaine de carractéres

4 réponses

Votre réponse

Discussions similaires