RegularSubExpression (rtl)

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

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:

{{#if:Développement DSM|

{{#if:Développement DSM|— Développement DSM |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}