Question

vb 正则表达式 提取超链接的文本

Public Function CheckExp(patrn, strng)
Dim regEx, Match ' 建立变量。
Set regEx = CreateObject("VBScript.RegExp") ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng)
For Each Match In Matches ' 遍历匹配集合。
RetStr = Matches(Match)
RetStr = RetStr & vbNewLine & Match.Value
Next
CheckExp = retstr
End Function

变量 str
---------------------------------------------------------
<a href="forumdisplay.php?fid=14">最新通告</a>
<a href="forumdisplay.php?fid=11">网站建议</a>
<a href="forumdisplay.php?fid=12">版主交流</a>
<a href="forumdisplay.php?fid=4">m汉化</a>
<a href="forumdisplay.php?fid=5">m应用</a>
<a href="forumdisplay.php?fid=6">m开发</a>
<a href="forumdisplay.php?fid=21">中文handbook</a>
<a href="forumdisplay.php?fid=16">p研究</a>
<a href="forumdisplay.php?fid=18">F研究</a>
<a href="forumdisplay.php?fid=23">A研究</a>
<a href="forumdisplay.php?fid=22">软·硬路由研究</a>
<a href="forumdisplay.php?fid=17">设备展示</a>
<a href="forumdisplay.php?fid=9">影视·音乐</a>
<a href="forumdisplay.php?fid=8">休闲话题</a>
--------------------------------------------------------------------------

怎么用正则只获取超链接的文本呢.?
MSG.Text = CheckExp("\>(.*?)\<", MsgBoxStr)
这样的话,把 <> 两个括号给留下来了, 怎么匹配,只取括号中的文字呢.

Answer 1

Public Function CheckExp(patrn, strng)
Dim regEx, Match ' 建立变量。
Set regEx = CreateObject("VBScript.RegExp") ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng)
For Each Match In Matches ' 遍历匹配集合。
RetStr = RetStr & vbNewLine & RegEx.replace(Match.Value,"$1")
Next
CheckExp = retstr
End Function