如何用正则截取字符串

[Mit1208]

<td height="25" bgcolor="#F9F8F5" align="center"> <b>用户名</b> </td>
</tr>
<!--ques-->
<tr>
<td height="25">爱Love1314</a></td>
</tr>

如何使用正则截取"爱Love1314"这个字符串呢?

[worddelphi]

你那是delphi的吗？

[Mit1208]

当然是Delphi了...
想使用TPerlRegEx正则表达式截取"爱Love1314"字符串.
但不知道RegEx怎么写...

[s11ss]

  with TPerlRegEx.Create do
    try
      Options := [preSingleLine];
      Subject := Memo1.Text;
      RegEx := '".*>(.*?)</a>';
      if Match then
        ShowMessage(Groups[1]);
    finally
      Free
    end;

[Mit1208]

[Quote=引用 3 楼 s11ss 的回复:]
Delphi(Pascal) code
with TPerlRegEx.Create do
try
Options := [preSingleLine];
Subject := Memo1.Text;
RegEx := '".*>(.*?)</a>';
if Match then
ShowMessage(Gr……
[/Quote]


谢谢!~让我好好研究研究.嘿~