RegularSubExpression (rtl)

De Wiki1000
Version du 20 septembre 2018 à 18:23 par Tdymon (discuter | contributions)
(diff) ← Version précédente | Voir la version courante (diff) | Version suivante → (diff)
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

Outils personnels