RegularSubExpression (rtl)

De Wiki1000
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 DSMDéveloppement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels