Discussion :

[Invité]

Bonjour,

J'ai un problème avec une regex, dans une appli que j'ai en Delphi 7. J'utilise la librairie TPerlRegEx.
Ce n'est pas vraiment un problème lié à delphi, mais plus à l'utilisation d'expression régulière.
Je ne sais pas si je poste au bon endroit.

Voici mon problème.

j'ai des chaines de caractère du style : ADFBH:CF+KLJHD34-kjh\+ASGFD\+DFGD:SDFSDF-ZER.

Je souhaiterais découper ces chaines sur la combinaison \+. Je dois donc récupérer les chaines suivantes :

• ADFBH:CF+KLJHD34-kjh
• ASGFD
• DFGD:SDFSDF-ZER

J'utilise la fonction suivante :

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
procedure TForm1.btn5Click(Sender: TObject);
var regx: TPerlRegEx;
begin
  lst1.Clear;
 
  regx := TPerlRegEx.Create;
  regx.Subject := edt2.Text;
//  regx.RegEx := '([^\?]+[^\+])([\?][\+])?';
//  regx.RegEx := '([^\+]*)(?:[\+])?';
  regx.RegEx := '([^\+]*)(?:[\+]?)';
//  regx.RegEx := '([^\?][^\+])(?:\\\+)?';
 
  if (regx.Match) then
    repeat
      lst1.Items.Add(regx.MatchedText);
    until not regx.MatchAgain;
 
  FreeAndNil(regx);
end;

Je pensais utiliser la regex suivante ([^\+]*)(?:[\+]?).
Mais, cela ne fonctionne pas correctement, j'obtiens:

• ADFBH:CF+
• KLJHD34-kjh\+
• ASGFD\+
• DFGD:SDFSDF-ZER

Savez-vous comment corriger mon traitement ?

[ALWEBER]

Voici un exemple: J'ai remplacé CODE par CADE parce que code est une balise ici

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
 
procedure TForm1.FormActivate(Sender: TObject);
var
 st1 : string ;
 sl1,sl2 : TSTringList ;
begin
  st1 := '[CADE]ADFBH:CF+KLJHD34-kjh\+ASGFD\+DFGD:SDFSDF-ZER[\CADE]' ;
  st1 := StringReplace(st1,'[CADE]','',[]) ;
  st1 := StringReplace(st1,'[\CADE]','',[])  ;
  st1 := StringReplace(st1,'\+',#255,[rfReplaceAll]) ;
  sl1 := TSTringList.Create ;
  sl1.Delimiter := #255 ;
  sl1.DelimitedText := st1 ;
  ListBox1.Items.Text := sl1.Text ;
  sl1.Free ;
end;

[Papy214]

(.*)\x5C\x2B(.*)\x5C\x2B(.*)?

[SergioMaster]

Bonjour,

(.*)\x5C\x2B(.*)\x5C\x2B(.*)?

merci Expresso
il manque peut-être les marquages de début et fin de chaine, ce qui m'inquiète plus est qu'il s'agisse de la librairie TPerlRegEx
il y aura peut être un problème de syntaxe d'expression à vérifier !

[Papy214]

https://regex101.com/ semble donner le même résultat

[Roland Chastain]

Bonjour ! Une solution qui fonctionne.

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
28
29
30
{ http://lists.freepascal.org/fpc-pascal/2007-November/015779.html }
 
uses
  pcre;
 
{$ASSERTIONS ON}
 
var
  aiguille, foin: ansistring;
  re: IRegex;
  mt: IMatch;
  i: longint;
begin
  aiguille := '\\\+';
  foin := 'ADFBH:CF+KLJHD34-kjh\+ASGFD\+DFGD:SDFSDF-ZER';
  re := RegexCreate(aiguille);
  i := 0;
  mt := re.Match(foin, i);
  if mt.Success then
  begin
    repeat
      Assert(mt.Value = '\+');
      WriteLn(Copy(foin, Succ(i), mt.Groups[0].Index - i));
      i := mt.Groups[0].Index + mt.Groups[0].Length;
      mt := re.Match(foin, i);
    until not mt.Success;
    if i < Length(foin) then
      WriteLn(Copy(foin, Succ(i)));
  end;
end.

P.-S. Zut, je m'aperçois que je n'ai pas utilisé la bonne bibliothèque.

Voilà, c'est mieux comme ça.

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
uses
  SysUtils,
{$if compilerversion >= 22.0}
  RegularExpressionsCore;
{$else}
  PerlRegEx; (* http://www.regular-expressions.info/download/TPerlRegEx.zip *)
{$ifend}
 
var
  re: TPerlRegEx;
  i: integer;
begin
  re := TPerlRegEx.Create;
  re.Subject := 'ADFBH:CF+KLJHD34-kjh\+ASGFD\+DFGD:SDFSDF-ZER';
  re.RegEx := '\\\+';
  i := 1;
  if re.Match then
  begin
    repeat
      WriteLn(Copy(re.Subject, i, re.MatchedOffset - i));
      i := re.MatchedOffset + re.MatchedLength;
    until not re.MatchAgain;
    if i <= Length(re.Subject) then
      WriteLn(Copy(re.Subject, i));
  end;
  re.Free;
end.

[Roland Chastain]

(.*)\x5C\x2B(.*)\x5C\x2B(.*)

Oui, si on suppose qu'il y a toujours deux séparateurs. J'ai raisonné comme si le nombre de séparateurs était variable.

Effectivement ça fonctionne.

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
uses
  SysUtils,
{$if compilerversion >= 22.0}
  System.RegularExpressionsConsts,
  System.RegularExpressionsCore;
{$else}
  PerlRegEx;
{$ifend}
 
var
  pre: TPerlRegEx;
  i: integer;
 
begin
  pre := TPerlRegEx.Create;
  pre.RegEx := '(.+)\\\+(.+)\\\+(.+)';
  pre.Subject := 'ADFBH:CF+KLJHD34-kjh\+ASGFD\+DFGD:SDFSDF-ZER';
 
  if pre.Match then
    for i := 0 to pre.GroupCount do
      WriteLn('  (', i, ') ', pre.Groups[i]);
 
  pre.Free;
end.

Code X :

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

1
2
3
4
  (0) ADFBH:CF+KLJHD34-kjh\+ASGFD\+DFGD:SDFSDF-ZER
  (1) ADFBH:CF+KLJHD34-kjh
  (2) ASGFD
  (3) DFGD:SDFSDF-ZER

[Roland Chastain]

Une variante, avec la méthode Split.

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
var
  re: TPerlRegex;
  sl: TStrings;
 
begin
  re := TPerlRegex.Create;
  re.Subject := 'ADFBH:CF+KLJHD34-kjh\+ASGFD\+DFGD:SDFSDF-ZER';
  re.RegEx := '\\\+';
  sl := TStringList.Create;
  re.Split(sl, 0);  // Le deuxième paramètre est le nombre maximum d'éléments. Zéro veut dire pas de limite.
  re.Free;
  WriteLn(sl.Text);
  sl.Free;
  ReadLn;
end.

[Invité]

Merci beaucoup de vos réponses.
En fait, le nombre de séparateurs est variable. Je ne l'avais pas précisé.

Je me suis passé des regex pour résoudre ce problème.
Je cherchais pas contre comment le faire avec une expression régulière.

[Papy214]

Merci beaucoup de vos réponses.
En fait, le nombre de séparateurs est variable. Je ne l'avais pas précisé.

Je me suis passé des regex pour résoudre ce problème.
Je cherchais pas contre comment le faire avec une expression régulière.

Alors la méthode Split indiquée juste au-dessus conviendra très bien

[Invité]

Comme je l'ai dit, le problème n'est plus de résoudre ce problème avec Delphi, c'est comment faire avec simplement une expression régulière.
Je n'ai peut être pas placé mon message dans la bonne rubrique.

[Papy214]

Ahhh .... mais pourtant la méthode Split utilisée est bien une méthode de TPerlRegex

[Roland Chastain]

Comme je l'ai dit, le problème n'est plus de résoudre ce problème avec Delphi, c'est comment faire avec simplement une expression régulière.

Moi je dirais qu'on ne peut pas le faire, comme vous voulez le faire, c'est-à-dire (si j'ai bien compris) en capturant un à un tous les groupes avec la même expression.

En cherchant bien, on arriverait sûrement à trouver une expression compliquée et incompréhensible, qui reviendrait de toute façon à utiliser la méthode Split. En effet, tout ce qu'on sait, en l'occurrence, des groupes à extraire, c'est qu'ils ne contiennent pas de séparateur.

[Invité]

Ahhh .... mais pourtant la méthode Split utilisée est bien une méthode de TPerlRegex

ok, désolé, je n'avait pas compris. c'est donc surement ce qu'il me fallait. je vais vérifié, je ne connaissais pas.