RegularExpression (rtl) - Historique des versions

Tdymon le 20 septembre 2018 à 16:25

2018-09-20T16:25:16Z

Tdymon le 20 septembre 2018 à 16:24

2018-09-20T16:24:41Z

Tdymon le 20 septembre 2018 à 16:23

2018-09-20T16:23:47Z

Tdymon le 20 septembre 2018 à 16:21

2018-09-20T16:21:31Z

Syfre le 11 août 2009 à 14:01

2009-08-11T14:01:21Z

Syfre le 11 août 2009 à 12:57

2009-08-11T12:57:00Z

Syfre le 11 août 2009 à 12:10

2009-08-11T12:10:45Z

Nouvelle page

<source lang='delphi'>Function RegularExpression(const aSource:string; const aExpression:string; aResultat:TStrings):integer;</source>

Cette fonction parse une chaine suivant une expression régulière et retourne les différents tokens identifiés dans une stringlist.

{|class="wikitable"
|-
|Result
|Nombre de token identifiés.
|-
|aSource
|Chaine de caractère à parser.
|-
|aExpression
|Expression régulière.
|-
|aResultat
|String list recevant les tokens.
|}

Exemple

<source lang='delphi'>
begin
end;
</source>

Voir aussi:

{{Footer|Développement DSM}}
[[category:RTL Chaîne]]

@@ Ligne 33 : / Ligne 33 : @@
     result := vStrList.Strings[0]
   else
-    raise ERule.Create(Format(_TP('Exception RegExpDonneeBaliseFormat , donnée lue : "%s", expression : "%s", retourne plusieurs réponses'),[varDonneeLue, aExprReg]));
+    raise ERule.Create(Format(_TP('Exception RegExpDonneeBaliseFormat , donnée lue : "%s", expression : "%s", retourne %d réponses'),[varDonneeLue, aExprReg, vCount]));
 end;
 </source>

@@ Ligne 30 : / Ligne 30 : @@
   if (vCount=0) then
     Result := ''
-  else if (vStrList.count=1) then
+  else if (vCount=1) then
     result := vStrList.Strings[0]
   else

@@ Ligne 25 : / Ligne 25 : @@
      Count    : Integer;
 begin
   vStrList := TStringList.Create;
-−
   vCount := RegularExpression(aStr, aExprReg, vStrList);

@@ Ligne 1 : / Ligne 1 : @@
 <source lang='delphi'>Function RegularExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;</source>
-Cette fonction parse une chaine suivant une expression régulière et retourne les différents tokens identifiés dans une liste de chaîne.
+Cette fonction parse une chaine suivant une expression régulière et retourne les différents tokens identifiés dans une liste de chaîne excluant les sous-expressions.
 {|class="wikitable"
@@ Ligne 22 : / Ligne 22 : @@
 <source lang='delphi'>
 //Function RegExpDonneeBaliseFormat(aStr:string; aExprReg:string):string;
-var vStrList:TStringList;
+var vStrList : TStringList;
 begin
   vStrList := TStringList.Create;
   RegularExpression( aStr ,aExprReg ,vStrList);
-  if (vStrList.count=0) then
+  if (vCount=0) then
-    exit;
+    Result := ''
+  else if (vStrList.count=1) then
   if (vStrList.count=1) then
     result := vStrList.Strings[0]
   else
-    raise ERule.Create(Format(_TP('Exception RegExpDonneeBaliseFormat , donnée lue : "%s", expression : "%s", retourne plusieurs réponses'),[varDonneeLue,aExprReg]));
+    raise ERule.Create(Format(_TP('Exception RegExpDonneeBaliseFormat , donnée lue : "%s", expression : "%s", retourne plusieurs réponses'),[varDonneeLue, aExprReg]));
 end;
 </source>

@@ Ligne 1 : / Ligne 1 : @@
-<source lang='delphi'>Function RegularExpression(const aSource:string; const aExpression:string; aResultat:TStrings):integer;</source>
+<source lang='delphi'>Function RegularExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;</source>
 Cette fonction parse une chaine suivant une expression régulière et retourne les différents tokens identifiés dans une stringlist.
@@ Ligne 14 : / Ligne 14 : @@
 |Expression régulière.
 |-
-|aResultat
+|aResult
 |String list recevant les tokens.
 |}
@@ Ligne 29 : / Ligne 29 : @@
 {{Footer|Développement DSM}}
 [[category:RTL Chaîne]]