RegularSubExpression (rtl)
De Wiki1000
Version du 20 septembre 2018 à 18:23 par Tdymon (discuter | contributions)
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: