http://wiki.sage.fr/index.php?action=history&feed=atom&title=RegularSubExpression_%28rtl%29 2026-05-24T23:22:35Z Historique des versions pour cette page sur le wiki MediaWiki 1.41.1 http://wiki.sage.fr/index.php?title=RegularSubExpression_(rtl)&diff=12255&oldid=prev 2018-09-20T16:23:03Z

<p></p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="fr"> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Version précédente</td> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Version du 20 septembre 2018 à 16:23</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l28">Ligne 28 :</td> <td colspan="2" class="diff-lineno">Ligne 28 :</td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>begin</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>begin</div></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  vStrList := TStringList.Create;</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  vStrList := TStringList.Create;</div></td></tr> <tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del style="font-weight: bold; text-decoration: none;"> </del></div></td><td colspan="2" class="diff-side-added"></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  vCount := RegularSubExpression(aStr, aExprReg, vStrList);</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  vCount := RegularSubExpression(aStr, aExprReg, vStrList);</div></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  if (aIndex &gt; 0) and (aIndex &lt;= vCount) then</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  if (aIndex &gt; 0) and (aIndex &lt;= vCount) then</div></td></tr> </table>

Tdymon http://wiki.sage.fr/index.php?title=RegularSubExpression_(rtl)&diff=12254&oldid=prev 2018-09-20T16:22:03Z

<p>Page créée avec « &lt;source lang=&#039;delphi&#039;&gt;Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;&lt;/source&gt; Cette fonction parse une chaine su... »</p> <p><b>Nouvelle page</b></p><div>&lt;source lang=&#039;delphi&#039;&gt;Function RegularSubExpression(const aSource:string; const aExpression:string; aResult:TStrings):integer;&lt;/source&gt;<br /> <br /> 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.<br /> <br /> La 1ère chaîne retournée étant le motif.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |Result<br /> |Nombre de tokens identifiés.<br /> |-<br /> |aSource<br /> |Chaine de caractère à parser.<br /> |-<br /> |aExpression<br /> |Expression régulière.<br /> |-<br /> |aResult<br /> |Liste de chaîne recevant les tokens.<br /> |}<br /> <br /> Exemple<br /> <br /> &lt;source lang=&#039;delphi&#039;&gt;<br /> //Function RegExpDonneeBaliseFormatEx(aStr:string; aExprReg:string; aIndex:Integer):string;<br /> var vStrList : TStringList;<br /> vCount : Integer; <br /> begin<br /> vStrList := TStringList.Create;<br /> <br /> vCount := RegularSubExpression(aStr, aExprReg, vStrList);<br /> if (aIndex &gt; 0) and (aIndex &lt;= vCount) then<br /> Result := vStrList.Strings[aIndex-1]<br /> else<br /> Result := &#039;&#039;; <br /> end;<br /> &lt;/source&gt;<br /> <br /> Voir aussi:<br /> <br /> {{Footer|Développement DSM}}<br /> [[category:RTL Chaîne]]</div>

Tdymon