Tdymon le 20 septembre 2018 à 16:23

2018-09-20T16:23:03Z

Tdymon : Page créée avec « Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer; Cette fonction parse une chaine su... »

2018-09-20T16:22:03Z

Page créée avec « <source lang='delphi'>Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;</source> Cette fonction parse une chaine su... »

Nouvelle page

<source lang='delphi'>Function RegularSubExpression(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 uniques identifiés dans une liste de chaîne en incluant les sous expressions.

La 1ère chaîne retournée étant le motif.

{|class="wikitable"
|-
|Result
|Nombre de tokens identifiés.
|-
|aSource
|Chaine de caractère à parser.
|-
|aExpression
|Expression régulière.
|-
|aResult
|Liste de chaîne recevant les tokens.
|}

Exemple

<source lang='delphi'>
//Function RegExpDonneeBaliseFormatEx(aStr:string; aExprReg:string; aIndex:Integer):string;
var vStrList : TStringList;
vCount : Integer;
begin
vStrList := TStringList.Create;

vCount := RegularSubExpression(aStr, aExprReg, vStrList);
if (aIndex > 0) and (aIndex <= vCount) then
Result := vStrList.Strings[aIndex-1]
else
Result := '';
end;
</source>

Voir aussi:

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

@@ Ligne 28 : / Ligne 28 : @@
 begin
   vStrList := TStringList.Create;
   vCount := RegularSubExpression(aStr, aExprReg, vStrList);
   if (aIndex > 0) and (aIndex <= vCount) then

RegularSubExpression (rtl) - Historique des versions

Tdymon le 20 septembre 2018 à 16:23

Tdymon : Page créée avec « Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer; Cette fonction parse une chaine su... »