« RegularSubExpression (rtl) » : différence entre les versions
(Page créée avec « <source lang='delphi'>Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;</source> Cette fonction parse une chaine su... ») |
mAucun résumé des modifications |
||
| Ligne 28 : | Ligne 28 : | ||
begin | begin | ||
vStrList := TStringList.Create; | vStrList := TStringList.Create; | ||
vCount := RegularSubExpression(aStr, aExprReg, vStrList); | vCount := RegularSubExpression(aStr, aExprReg, vStrList); | ||
if (aIndex > 0) and (aIndex <= vCount) then | if (aIndex > 0) and (aIndex <= vCount) then | ||
Dernière version du 20 septembre 2018 à 16:23
<source lang='delphi'>Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;</source>
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
<source lang='delphi'> //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; </source>
Voir aussi:
{{#if:Développement DSM|
{{#if:Développement DSM|— Développement DSM |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}