正则表达式 求助

Question

<a href="/wuxiao-5.html"  id="mn">无效连接</a>  //地址不含指定字符串
<a href="/free-5.html" hidefocus="true" id="mn">有效网站</a> //取
<a href="/oct.php?f=114"  title="申请">地</a>  //连接文本短，不取
<a href="/free-8.html" hidefocus="true" id="mn">网站</a>  //取
<a title="申请" href="/oct.php?f=16">地址</a>  //取
怎么用一个表单式，取出地址和连接文本，并且连接地址必须含有 “free”或 "oct" 字符串，而且连接文本>=2

Answer 1

'This code was generated by "RegTestTool v1.1.30", please call the sub TestReg.
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object    strData = "<a href=""/wuxiao-5.html"" id=""mn"">无效连接</a> //地址不含指定字符串"  &  vbCrLf  & _
              "<a href=""/free-5.html"" hidefocus=""true"" id=""mn"">有效网站</a> //取"  &  vbCrLf  & _
              "<a href=""/oct.php?f=114"" title=""申请"">地</a> //连接文本短，不取"  &  vbCrLf  & _
              "<a href=""/free-8.html"" hidefocus=""true"" id=""mn"">网站</a> //取"  &  vbCrLf  & _
              "<a title=""申请"" href=""/oct.php?f=16"">地址</a> //取"    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "<a.*?href=""(.*?(?:free|oct).*?)"".*?>(.*?)</a>"
    Set matchs = reg.Execute(strData)
    For Each match In matchs
        Debug.Print match.SubMatches(0) & vbtab & match.SubMatches(1)
    Next
End Sub