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

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

博客分类： VB程序设计
正则表达式VBVBScript 
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