<div dir="ltr"><div>Well, I got it.</div><div>Is possible using  a combination of these : r.MatchPos and  r.MatchLen</div><div><div>for I := 1 to r.SubExprMatchCount do</div><div>begin</div><div>  S := Format('line %d pos:%d len:%d',[I, r.MatchPos[I], r.MatchLen[I]]);</div><div>  Memo1.Append(S);</div><div>end; </div></div><div><br></div><div>I can use StringReplace function to replace these values.</div><div><br></div><div>--</div><div>Marcos Douglas</div><div class="gmail_extra"><br><br><div class="gmail_quote">On Sat, Sep 6, 2014 at 9:37 PM, Marcos Douglas <span dir="ltr"><<a href="mailto:md@delfire.net" target="_blank">md@delfire.net</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr">Hi,<div><br></div><div>I'm using RegExpr to parse some parts, just SOME parts, of a HTML and works perfectly. But, in one case I need identify a "pattern" to reuse using new "values".</div><div><br></div><div>Please, see the example (using Lazarus) bellow:</div><div><br></div><div><div>procedure TForm1.Button1Click(Sender: TObject);</div><div>var</div><div>  InputStr: string;</div><div>  r: TRegExpr;</div><div>begin</div><div>  r:= TRegExpr.Create;</div><div>  try</div><div>    InputStr := '<a href="/3604669/trabalho-28-07-2014-pg-1" title="Página 1, pg 1, 28/07/2014"> 28/07/2014 </a>';</div><div>    r.Expression := '\/([0-9]+)\/.*?pg\-(\d+).*?"';</div><div>    r.Exec(InputStr);</div><div>    ShowMessage(r.Match[0]); // = /3604669/trabalho-28-07-2014-pg-1"</div><div>    ShowMessage(r.Match[1]); // = 3604669</div><div>    ShowMessage(r.Match[2]); // = 1</div><div>  finally</div><div>    r.Free;</div><div>  end;</div><div>end;</div></div><div><br></div><div>The results are OK.</div><div>I need to replace the position #1 and #2 with something like:</div><div>#p1# and  #p2#</div><div><br></div><div>So, in other words, I need a result like this:</div><div>Pattern = /#p1#/trabalho-28-07-2014-pg-#p2#"<br></div><div><br></div><div>I tried to use r.Replace() or r.Substitute() but I think these methods don't do I want.</div><div><br></div><div>Is possible?</div><div><br></div><div>--</div><div>Marcos Douglas</div></div>
</blockquote></div><br></div></div>