NOTES POUR LE PROGRAMMEUR

• On fait ici appel à la puissance des Expressions régulières, qui permettent un code très simple et très puissant.
• La Bibliothèques System.regularexpressions, doit être déclarée dans les clauses USES du programme

procedure TForm1.InsertionExpressionExecute(Sender: TObject);
var
Match: tmatch;
r, s, t: string;
p: integer;
begin

try
Match := tregex.Match(RTF.Text, '\[(\w+)\]');
if Match.Success then
Begin
r := Match.groups[1].Value;
s := '[' + r + ']';

try
Match := tregex.Match(RTF.Text, '\b(.+)\[' + r + '\]');
if Match.Success then
t := Match.groups[1].Value;

if InputQuery('Insérer un texte après ...', t, r) then
Begin
RTF.SetFocus;
p := RTF.Findtext(s, 0, length(RTF.Text), []);
RTF.SelStart := p;
RTF.SelLength := length(s);
RTF.SelText := r;
End;
except
on e: exception do
showmessage('777 : erreur expression régulière' + cr + t +
cr + cr + e.message);

end;
End;
except
on f: exception do
showmessage('785 : erreur expression régulière' + cr + r +
cr + cr + f.message);

end;

end;

• On utilise essentiellement la variable MATCH (de type Tmatch), appelée de cette façon

Tregex.Match ( "texte à scanner", "expression régulière à trouver");

• Si l’expression est trouvée Match.Success retourne VRAI et l’extraction peut commencer.
• La chaîne ciblée par l’expression régulière est placée dans la valeur Match.Value
• Et Il est possible d’isoler la partie intéressante de l’expression en créant des groupes symbolisés par des parenthèses

(.+)\[\?\]

• Signifie “Un ou plusieurs caractères (+) quelconques (.) suivi des 3 lettres [?]” sachant qu’on ne prend que (la série de caractères) et pas le [?]
• On remarque que les caractères [ et ? étant des caractères réservés de signification particulière dans les expressions régulières, doivent être “échappés” par l’antislash (sous peine d’erreur) \[ et pas [ pour garder leur signification “caractère”
• Pour extraire la valeur du groupe entre parenthèses on utilise la propriété GROUPS de l’objet TMatch

Match.Groups[1].Value

• Qui signifie prendre la valeur du 1er groupe entre ()
• On rappelle que Match.Groups[0].Value donne la valeur totale de la chaîne (équivalente à Match.Value)