Discussion :

[Charly910]

Bonjour,

avec beaucoup d'essais infructueux, vu mes faibles connaissances en expressions régulières, voici quelque chose qui semble fonctionner avec les lignes dans Memo1 et les résultats de la recherche dans Memo2

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
{=======================================================================}
procedure TForm1.Btn_ExpRegClick(Sender: TObject);
var
  Expr         : TPerlRegex ;
  i            : integer ;
  Trouve       : Boolean ;
  MaLigne      : String  ;
  Mes13Chiffres: string  ;
  RegEx        : String  ;
begin
  memo2.Clear;
  // Chargement des lignes de memo1
   Memo1.Clear ;
   Memo1.lines.add('0 - Ta12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('1 - Ta12gadaTsoinTsoin5710364579451005TrucMu795che' );
   Memo1.lines.add('2 - a12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('3 - Ta12gadaTsoinTsoin5710364579TrucMu795che' );
   Memo1.lines.add('4 - a12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('5 - Ta12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('61234567891234gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('7123456789123gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('8 - a1234567891234' );
   Memo1.lines.add('9 - a12345678912345678914579451TrucMu795che' );
   Memo1.lines.add('10 - aerte61234567891234' );
   Memo1.lines.add('11 - retey7123456789123' );
   Memo1.lines.add('12234567891234' );
   Memo1.lines.add('1323456789123' );
 
   // Recherche des codebars avec PerlRegEx
   RegEx := '^\d{13}(\D)|(^\d{13}$)|(\D\d{13})$|\D\d{13}\D' ;
 
   For i := 0 To Memo1.Lines.Count -1 Do
      Begin
        Expr := TPerlRegex.Create;
        Expr.Subject := utf8string(Memo1.Lines[i]) ;
        Expr.RegEx := RegEx ;
        Trouve := expr.Match ;
        If Trouve Then
           Begin
              Mes13Chiffres := Expr.MatchedText ;
              memo2.Lines.Add('Ligne '+ IntToStr(i)+ ' - ' + Mes13Chiffres );
           End ;              
        Expr.Free;
      End ;
end;
{=======================================================================}

Il reste à épurer le résultat lorsqu'il comporte une lettre au début ou à la fin quand il y a 14 caractères.

Peut être faudrait il sortir le Create et le Free de la boucle ?

A+
Charly

[Charly910]

Voilà avec la chaine épurée et le create fait une seule fois :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
{=======================================================================}
procedure TForm1.Btn_ExpRegClick(Sender: TObject);
{ ------------------------------------------- }
Function  IsNumeric(Caractere : Char) : Boolean ;
Var  OrdChar : Integer ;
Begin
   OrdChar := ord(Caractere);
   Result := (OrdChar >= 48) And (OrdChar <= 57) ;
End ;
{ ------------------------------------------- }
var
  Expr         : TPerlRegex ;
  i            : integer ;
  Trouve       : Boolean ;
  MaLigne      : String  ;
  Mes13Chiffres: string  ;
  RegEx        : String  ;
begin
  memo2.Clear;
  // Chargement des lignes de memo1
   Memo1.Clear ;
   Memo1.lines.add('0 - Ta12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('1 - Ta12gadaTsoinTsoin5710364579451005TrucMu795che' );
   Memo1.lines.add('2 - a12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('3 - Ta12gadaTsoinTsoin5710364579TrucMu795che' );
   Memo1.lines.add('4 - a12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('5 - Ta12gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('61234567891234gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('7123456789123gadaTsoinTsoin5710364579451TrucMu795che' );
   Memo1.lines.add('8 - a1234567891234' );
   Memo1.lines.add('9 - a12345678912345678914579451TrucMu795che' );
   Memo1.lines.add('10 - aerte61234567891234' );
   Memo1.lines.add('11 - retey7123456789123' );
   Memo1.lines.add('12234567891234' );
   Memo1.lines.add('1323456789123' );
 
   // Recherche des codes bar avec PerlRegEx
   RegEx := '^\d{13}(\D)|(^\d{13}$)|(\D\d{13})$|\D\d{13}\D' ;
   Expr := TPerlRegex.Create;
   For i := 0 To Memo1.Lines.Count -1 Do
      Begin
        Expr.Subject := utf8string(Memo1.Lines[i]) ;
        Expr.RegEx := RegEx ;
        Trouve := expr.Match ;
        If Trouve Then
           Begin
              Mes13Chiffres := Expr.MatchedText ;
              If (not IsNumeric(Mes13Chiffres[1])) Then Delete(Mes13Chiffres, 1 , 1) ; 
              If (not IsNumeric(Mes13Chiffres[Length(Mes13Chiffres)])) Then
                    Delete(Mes13Chiffres, Length(Mes13Chiffres), 1) ;
              memo2.Lines.Add('Ligne '+ IntToStr(i)+ ' - ' + Mes13Chiffres );
           End ;
      End ;
   Expr.Free ;
End;
{=======================================================================}

A+
Charly

[gbegreg]

Bonsoir,

Alors voilà une modification du code que j'avais fourni avec les expressions régulières qui fonctionnent avec les lignes exemples de Charly910

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
var
  expr: TRegEx;
  collection: TMatchCollection;
  i : integer;
begin
   // On efface le contenu du mémo des résultats
  memo2.Clear;
 
  // Expression régulière à rechercher : (un caractère début de ligne ou nouvelle ligne ou non numérique) suivi de (13 caractères numériques) suivi (d'un caractère non numérique ou de la fin de ligne)
  // on crée 3 "blocs" avec les parenthèses car le premier ("bloc 1") et le dernier ("bloc 3") caractères ne devront pas faire partie du résultat final
  expr.Create('(^|\n|\D)(\d{13})(\D|$)');
 
  // Lancement de la recherche qui impacte tout le contenu de memo1
  collection := expr.Matches(Memo1.Lines.Text);
 
  // On parcourt la collection, et on met dans memo2 le "bloc 2" des valeurs qui ont "matché" avec l'expression régulière
  for i := 0 to collection.Count - 1 do
      memo2.Lines.Add(expr.Replace(collection[i].Value, '\2'));
 
end;

[SergioMaster]

Bonjour,

merci gbegreg ,

Code :

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

(^|\n|\D)(\d{13})(\D|$)

Apprendre une nouvelle chose dès le début de la journée est une bonne journée, je ne connaissais pas cette possibilité de syntaxe c'est certes plus joli que ce que j'avais tenté

[Charly910]

Oui, l'expression fournie par gbegreg fonctionne bien avec PerlRegEx
A+
Charly