RegularSubExpression (rtl)

Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;

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

//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;

Voir aussi:

— Développement DSM — Développement DSM —