Discussion :

[Droïde Système7]

Bonjour

Cela est-il possible sans tartiner un code "usine à gaz" de permettre de remplacer un ou des mots en Rich Text dans un RichEdit ; mais le problème est qu'il faut respecter le formatage des mots situés à côté de ce ou ces remplacements.

Par exemple ici lors du remplacement, hé bien le formatage est uniformisé et donc non respecté :

Code :

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

1
2
3
4
 
...
RichEdit1.Text := StringReplace(RichEdit1.Text, 'toto', 'albert', [rfReplaceAll]);
...

J'ai recherché et pas trouvé grand-chose sur ce sujet ; mais peut-être pas avec de bons mots-clés.

Merci de vos idées.

[tourlourou]

regarde en réglant PlainText, mais cela ne marche pê pas une fois le texte chargé (accepte comme texte brut ou enrichi, je crois)

[Droïde Système7]

regarde en réglant PlainText, mais cela ne marche pê pas une fois le texte chargé (accepte comme texte brut ou enrichi, je crois)

En fait j'ai testé en plaçant (une fois lancé le programme) un morceau de texte riche dans un RichEdit.

Au dessous j'ai un bouton qui "false" le PlainText et un autre qui le "True", avec toutes les combinaisons avant/après, mais ça ne change rien.

mais cela ne marche pê pas une fois le texte chargé

En effet.

J'avais aussi testé en ayant chargé le .RTF via une TStringList, mais pas possible de respecter le formatage (les lettres faisaient 2 cm de haut), en plus aucun saut de ligne, alors des tas de pages pour quelques ligne. Pour cette raison que je me suis rabattu en testant directo dans le RichEdit

[birdyz]

Voila une adaptation d'une procédure que j'utilisais pour faire du surlignage de certains mots. Ca semble fonctionner, mais j'ai pas tous testé non plus.

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
19
20
21
22
23
24
25
 
procedure RTFStringReplace(RichEdit : TRichEdit; sOldValue, sNewValue : string);
var
  i : integer;
  iSelStart, iSelLength : integer;
begin
  iSelStart := RichEdit.SelStart;
  iSelLength := RichEdit.SelLength;
  RichEdit.SelStart := 0;
  i := 0;
  while i <= length(RichEdit.Text) - length(sOldValue) do
  begin
    RichEdit.SelStart := i;
    RichEdit.SelLength := length(sOldValue);
    if SameText(sOldValue, RichEdit.SelText) then
    begin
      RichEdit.SelText := sNewValue;
      if iSelStart < i then
        iSelStart := iSelStart + (length(sNewValue) - length(sOldValue));
    end;
    Inc(i);
  end;
  RichEdit.SelStart := iSelStart;
  RichEdit.SelLength := iSelLength;
end;

Birdyz

[Droïde Système7]

Voila une adaptation d'une procédure que j'utilisais pour faire du surlignage de certains mots. Ca semble fonctionner, mais j'ai pas tous testé non plus.

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
19
20
21
22
23
24
25
 
procedure RTFStringReplace(RichEdit : TRichEdit; sOldValue, sNewValue : string);
var
  i : integer;
  iSelStart, iSelLength : integer;
begin
  iSelStart := RichEdit.SelStart;
  iSelLength := RichEdit.SelLength;
  RichEdit.SelStart := 0;
  i := 0;
  while i <= length(RichEdit.Text) - length(sOldValue) do
  begin
    RichEdit.SelStart := i;
    RichEdit.SelLength := length(sOldValue);
    if SameText(sOldValue, RichEdit.SelText) then
    begin
      RichEdit.SelText := sNewValue;
      if iSelStart < i then
        iSelStart := iSelStart + (length(sNewValue) - length(sOldValue));
    end;
    Inc(i);
  end;
  RichEdit.SelStart := iSelStart;
  RichEdit.SelLength := iSelLength;
end;

Birdyz

Bonjour,

Tu sais quoi ?

Wahouuuuuuuuuuhhhhhh !

J'en ai pourtant fait des pages et des pages de recherches + bidouilles perso.

Ça marche impec de chez impec, bravo et merci encore !
Jean-Pierre

[birdyz]

Bonjour,

Tu sais quoi ?

Wahouuuuuuuuuuhhhhhh !

J'en ai pourtant fait des pages et des pages de recherches + bidouilles perso.

Ça marche impec de chez impec, bravo et merci encore !
Jean-Pierre

De rien, c'est avec plaisir.

D'ailleur, voila une version corrigé car sinon tu peux bouclé dans le cas ou la chaine de remplacement contient le contenue de la chaine a remplacé (essaye de remplacer E par EE par exemple et tu comprendra )

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
19
20
21
22
23
24
25
26
27
 
procedure RTFStringReplace(RichEdit : TRichEdit; sOldValue, sNewValue : string);
var
  i : integer;
  iSelStart, iSelLength : integer;
begin
  iSelStart := RichEdit.SelStart;
  iSelLength := RichEdit.SelLength;
  RichEdit.SelStart := 0;
  i := 0;
  while i <= length(RichEdit.Text) - length(sOldValue) do
  begin
    RichEdit.SelStart := i;
    RichEdit.SelLength := length(sOldValue);
    if SameText(sOldValue, RichEdit.SelText) then
    begin
      RichEdit.SelText := sNewValue;
      if iSelStart < i then
        iSelStart := iSelStart + (length(sNewValue) - length(sOldValue));
      i := i + length(sNewValue);
    end
    else
      Inc(i);
  end;
  RichEdit.SelStart := iSelStart;
  RichEdit.SelLength := iSelLength;
end;

Birdyz

[Droïde Système7]

Re birdyz

C'est remplacé