【转载】VB获取网页下文字的链接地址 »

« VB自动登录百度

代码：

Sub TestRegExp(myPattern As String, myString As String)‘myPattern为正则表达式；myString为字符串

Dim objRegExp As RegExp 'RegExp 对象使用正则表达式匹配模式
Dim objMatch As Match
Dim colMatches As MatchCollection 'MatchCollection 对象，该对象包含每个成功匹配的 Match 对象
Dim RetStr As String

Set objRegExp = New RegExp

objRegExp.Pattern = myPattern 'Pattern：一个字符串，用来定义正则表达式。

objRegExp.IgnoreCase = True 'IgnoreCase：一个布尔值属性，指示是否必须对一个字符串中的所有可能的匹配进行正则表达式测试。

objRegExp.Global = True 'Global：设置一个布尔值或返回一个布尔值，该布尔值指示一个模式是必须匹配整个搜索字符串中的所有搜索项还是只匹配第一个搜索项。

If (objRegExp.Test(myString) = True) Then 'Test：返回一个布尔值，该值指示正则表达式是否与字符串成功匹配。
    Set colMatches = objRegExp.Execute(myString)   'Execute：返回一个 MatchCollection 对象，该对象包含每个成功匹配的 Match 对象。

    For Each objMatch In colMatches   ' Iterate Matches collection.
        List1.AddItem Mid(Trim(objMatch.Value), 4, Len(objMatch.Value) - 4)
    Next
Else
    MsgBox "无法匹配!"
End If
End Sub

 更多参考资料：

MSDN：

HOW TO：在 Microsoft Visual Basic 6.0 中使用正则表达式