RegularExpression (rtl)

Function RegularExpression(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 identifiés dans une liste de chaîne.

Result	Nombre de token identifiés.
aSource	Chaine de caractère à parser.
aExpression	Expression régulière.
aResult	Liste de chaîne recevant les tokens.

Exemple

//Function RegExpDonneeBaliseFormat(aStr:string; aExprReg:string):string;
var vStrList:TStringList;
begin
 Result := '';
 vStrList := TStringList.Create;
 RegularExpression( aStr ,aExprReg ,vStrList);
 
 if (vStrList.count=0) then
   exit;
 
 if (vStrList.count=1) then
   result := vStrList.Strings[0]
 else
   raise ERule.Create(Format(_TP('Exception RegExpDonneeBaliseFormat , donnée lue : "%s", expression : "%s", retourne plusieurs réponses'),[varDonneeLue,aExprReg]));
end;

Voir aussi:

— Développement DSM — Développement DSM —