RichTextBox et fonction Replace()

Question

Bonjour à tous, 
voila mon probleme:

j'essais d'analyser le contenu d'un RTB afin d'une part d'en retrouver les retour à la ligne et d'autre part, d'extraire les couleurs du text.
POur une raison que je ne connais pas, un "retour chariot" sur un RTB s'écrit CHR(13) suivit d'un CHR(10) (il me semblait qu'un retour chariot dans un text box était seulement un CHR(13) !) or, comme j'analyse mon texte caractère par caractère, afin de pouvoir détecter mes retours chariot, juste avant ma boucle d'analyse, je remplace tous les CHR(13) & CHR(10) par juste un CHR(13) (ce qui visuelement ne change rien) ensuite il ne me reste qu'a tester à chaque caractère si je ne suis pas sur un CHR(13). Ca ca fonctionne très bien, le soucis, c'est que lorsque j'ajoute ma ligne de remplacement, pour une raison que je ne connais pas, toutes les couleurs de mon RTB sont effacées et tout est remit en noir. Visiblement, la fonction Replace(), scanne aussi caractère par caractères pour retrouver la chaine entrée en paramètres, et "oublie" de remetre la bonne couleur après son passage.....
savez vous comment contourner ce problème svp ??

merci par avance,



coding as well

cs_Jack · Answer

Salut
Les retours &#224; la ligne sont en effet des vbCrLf = 13+10
Pour les couleurs, tout d&#233;pend comment tu t'y prend.
Si tu fais RTB.Text = Replace(RTB.Text, "a", "b"), tu traites le contenu du RTB comme un texte brut : normal que tous les attributs disparaissent.
Il faut utiliser les attributs du RTB :
RTB.SelStart, RTB.SelLength, RTB.SelText et RTB.RTFText
Exemple : Pour r&#233;cup&#233;rer la couleur d'un caract&#232;re :
RTB.SelStart = laPositionDuCaract&#232;reDansLeTexte
RTB.SelLength = 1
Couleur = RTB.SelColor
Rappel : les caract&#232;res dans un RTB sont num&#233;rot&#233;s &#224; partir de 0, pas de 1

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

Zlub · Answer

Salut,

Et boil&#224;, jack a encore tout dit ... Pff pas dr&#244;le ce gringo



T'as eu tes r&#233;ponses, donc bon dev

++

Zlub

cs_nihaoma · Answer

salut,
tout d'abord merci de ta réponse, mais je penses que je me suis mal exprimer:
j'utilise effectivement
RTB.SelStart = laPositionDuCaractèreDansLeTexte
RTB.SelLength = 1
Couleur = RTB.SelColor
pour récupérer la couleur d'un caractère et ca marche...

je sais que un retour chariot sur un RTB s'écrit CHR 13 + 10

mon problème était le suivant:
afin de pouvoir détecter les retour chariot durant le scan caractère par caractère de mon RTB, je faisait un
replace(RTB.text, CHR(13) & CHR(10), CHR(13)
avant ma boucle de scan afin de pouvoir détecter mes retour chariot avec un seul caractère, mais, comme tule décrit, la fonction replace() fonctionnant en text brut, cette dernière retirait tous les attributs de couleur, et donc ma boucle venant seulement après, je n'avais plus de couleur. 

Mais entre temps, j'ai trouver une solution de remplacement (tellement simple que j'en ai eu honte d'avoir poster sur le forum ! lol)

en fait, maintenant, plutot que d'utiliser la fonction Replace() avant ma boucle, je fais directement mon scan caractère par caractères (ce qui concerve mes attribut de couleur) et lorsque je tombe sur un CHR(13), je teste si le caractère suivant est un CHR(10), si c le cas, je suis sur un retour chariot, et je continue....

c con, mais je n'y avait pas penser...désolé pour le dérangement, et merci

RichTextBox et fonction Replace()

3 réponses

Discussions similaires