Regex avec TPerlRegEx

Version imprimable

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:

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 ?

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

Code:

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;

02/11/2018, 10h50
Papy214

1 pièce(s) jointe(s)

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

Pièce jointe 424102
02/11/2018, 11h34
SergioMaster

Bonjour,

Citation:

Envoyé par Papy214

(.*)\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 !
02/11/2018, 12h38
Papy214

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

Bonjour ! Une solution qui fonctionne.

Code:

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. :oops:

Voilà, c'est mieux comme ça. ;)

Code:

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.

Citation:

Envoyé par Papy214

(.*)\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:

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:

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

Une variante, avec la méthode Split.

Code:

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.

05/11/2018, 15h32
Invité

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

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.
05/11/2018, 15h53
Papy214

Citation:

Envoyé par benoit1024

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

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
06/11/2018, 14h13
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.
06/11/2018, 14h15
Papy214

Ahhh .... mais pourtant la méthode Split utilisée est bien une méthode de TPerlRegex
06/11/2018, 18h31
Roland Chastain

Citation:

Envoyé par benoit1024

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. ;)
07/11/2018, 14h09
Invité

Citation:

Envoyé par Papy214

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

:oops: 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.