Discussion :

[Nicolas Coolman]

Hello,

Je souhaiterais manipuler des lignes d'un RichEdit comportant des attributs.

Mon objectif est de remplacer un mot par un autre dans une ou plusieurs lignes...mais sans perdre les attributs de ces ligne.


Avec ce petit bout de code, le remplacement fonctionne bien dans l'ensemble du RichEdit mais les attributs (couleur, gras,...) sont effacés... ce qui est probablement lié à l'utilisation d'une variable string.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//======================================================
procedure TFormAnalyse.BitBtn1Click(Sender: TObject);
//=======================================================
//Traitement de lignes avec attributs
var
   i : integer;
   sLigne : string;
begin
 
  With RichEdit do Begin
     for i:= 0 to Lines.Count-1 do begin
         sLigne := Lines[i];
         sLigne := AnsiReplaceText(sLigne,'Bonjour','Au revoir');
         Lines[i]  := sLigne;
     end;
  end;
 
end;

Si vous avez une idée sur la façon de procéder pour le choix de la variable, je vous en remercie par avance.

Bonne journée

[Yurck]

E n utilisant

tu trouveras surement une réponse avec les mots clés "SelStart SelText"

l'idée étant de simuler le copier/coller

a+

[Gilbert Geyer]

Salut,

C'est effectivement le remplacement de Lines[i] par sLigne qui remplace toute la ligne en évacuant les attributs attachés à certains mots de cette ligne.

En fait pour conserver les attributs d'un mot à remplacer par un autre la démarche est la suivante:
1 - chercher la position du mot à remplacer dans RichEdit.Text; (utiliser pos)
2 - faire RichEdit.SelStart:=position;
3 - faire RichEdit.SelLength=length(mot);
4 - faire RichEdit.SelText:=autreMot; pour remplacer le mot,
5 - achever en refermant la sélection avec RichEdit.SelLength:=0;

A+

EDIT : grillé par le speed Yurck.

[Nicolas Coolman]

Hello,

Effectivement, je commencais aussi à regarder du côté de de la fonction Pos.

Yurck, Gilbert Geyer, je vais mettre en pratique votre solution.

Merci pour vos réponse

A bientôt...

[Nicolas Coolman]

Hello,

Gilbert Geyer, j'ai mis en pratique ta procédure et cela fonctionne parfaitement. Je classe en résolu.

A bientôt