remplacer le contenu d'un texte

Question

j'écris dans un box text une phrase avec des retour à la ligne et je souhaiterais au final remplacer tous mes retour chariot par autre chose ...

Bref j'ai commencé à rechercher mon premier retour chariot 

mais je ne sais pas comment trouver les suivants ???

Makabey · Answer

Si tu as VB6, utilise Replace sinon il te suffit avec
InStr de parcourir ta chaine avec un code semblable à ceci:

Dim iPos as integer
Dim iLastPos as integer
Dim Chaine as String
Dim ChaineFinale as string 
Dim RemplacementEnter as String

RemplacementEnter = "(cr)"
iLastPos=1
iPos = InStr(iLastPos, Chaine, Chr$(13))
Do While iPos <> 0
  ChaineFinale =ChaineFinale & Mid$(Chaine, iLastPos, iPos - iLastPos) & RemplacementEnter
  iLastPos = iPos + 1
  iPos = InStr(iLastPos, Chaine, Chr$(13))
Loop

If iPos < len(chaine) then
  chainefinale = chainefinale & right$(chaine, len(chaine) - ilastpos
end if

Remplacer le contenu d'un texte

1 réponse

Discussions similaires