Discussion :

[exyacc]

delphi 10.1 berlin

bonjour,

dans un Memo j'ai un texte avec des balises genre <J45> , <J60> , et je les remplace par la date du jour+45 ou 60...
donc j'ai dans ma fonction :

Code :

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

1
2
3
 
result := StringReplace(result,'<J45>',FormatDateTime('dd/mm',incday(now,45)),[rfReplaceAll,rfIgnoreCase]);
result := StringReplace(result,'<J60>',FormatDateTime('dd/mm',incday(now,60)),[rfReplaceAll,rfIgnoreCase]);

au moment de devoir ajouter un <J10>, je me demande si avec les regex, y'a pas un moyen assez simple (qui demande pas 100 lignes de code pour en remplacer 5... ) , pour rechercher les balise <Jx> ou x est [0-9]{1,3} et remplacer par inc(now+x)
comme ça , ça marcherai avec <J10> , <J85>, etc....

j'ai vu des exemples pour rechercher avec un regex mais pas pour "récuperer" une partie de la recherche pour faire un remplacer...


merci.

bonne journée

[Invité]

Il est possible de remplacer des chaines de caractères avec TRegExReplace

[exyacc]

cool ! merci beaucoup, ça marche.
je pense que j'aurais du faire un 2eme regex dans ReplaceCC....

le code suivant tranforme
aaa <j0> bbbb <j10> ccc <j8> ddd<j+9> eee (edit1)
en
aaa 12/11 bbbb 22/11 ccc 20/11 ddd21/11 eee (edit2)

<j+x> ou <jx> ajoute x jour à la date du jour

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
 
function TForm1.ReplaceCC(const Match: TMatch): string;
var f : integer;
    chaine : string;
begin
  chaine := '';
  for f := 1 to length(match.Value) do
    if charinset(match.Value[f],['0'..'9']) then
      chaine := chaine + match.Value[f];
   Result := FormatDateTime('dd/mm',incday(Date,strtoint(chaine)));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var regex: TRegEx;
    input: string;
    myEval: TMatchEvaluator;
begin
  i := 0;
  input := Edit1.Text;
  regex.Create('<(j|j\+)[0-9]{1,3}>');
  myEval := ReplaceCC;
  Edit2.Text := regex.Replace(input, myEval);
end;

[SergioMaster]

Bonjour,

je pense que j'aurais du faire un 2eme regex dans ReplaceCC....

je pense que en travaillant un peu l'expression ...
la même avec un groupe

Code :

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

<(j|j\+)(?<AddDays>[0-9]{1,3})>

et en substitution

Code :

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

${Value}

Donnerai

aaa 0 bbbb 10 ccc 8 ddd9 eee

la seule chose que je ne peux vérifier sans faire un programme c'est la valeur de Match.Value