VB用正则表达式提取网页中的链接

VBScript code

Function getUrl(MatchStr As String ) As String Dim myReg As RegExp Dim Matches As MatchCollection Dim myMatch As Match Dim strtmp As String Dim strimg As String Set myReg = New RegExp With myReg .IgnoreCase = True .Global = True .Pattern = " http://.+?\s " ' 取出里面的地址 Set Matches = .Execute(MatchStr) End With For Each myMatch In Matches If Right (myMatch.Value, 2 ) = " "" " Then strtmp = strtmp & Left (myMatch.Value, Len (myMatch.Value) - 2 ) & vbCrLf Else strtmp = strtmp & Left (myMatch.Value, Len (myMatch.Value) - 1 ) & vbCrLf End If Next getUrl = strtmp End Function

VBScript code

Sub GetURL(ByVal s As String ) Dim re As RegExp Dim mh As Match Dim mhs As MatchCollection Set re = New RegExp re.Global = True re.Pattern = " href= ""(http(s)?://[\s\S]+?)"" " If re.Test(s) = False Then Exit Sub Set mhs = re.Execute(s) For Each mh In mhs Debug.Print mh.SubMatches( 0 ) Next End Sub

用正则的方法就是这样，正则的Pattern写法我也初学，如何写更加精确，可以上网搜索。
上面的代码根据你的示例可以测试通过