Sub ClearUrl() Dim Str$, oJs As Object Str = "<a href=""http://sdjsaldj.com"" target=""_blank""> " Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript" oJs.eval "function gets(str){return str.replace(/(.+href\="")(\S+)("".+)/,'$1$3')}" Debug.Print oJs.codeobject.gets(Str) End Sub
Dim myReg As RegExp
Dim sHTML As String
sHTML = "<a href=""http://www.csdn.net""></a><a href=""http://www.csdn1.net""></a><a href=""http://www.csdn2.net""></a>"
Set myReg = New RegExp
myReg.IgnoreCase = True
myReg.Global = True
myReg.MultiLine = True
myReg.Pattern = "(<a href="")[^""]+"
MsgBox myReg.Replace(sHTML, "$1")
End Sub
Dim myReg As RegExp
Dim sHTML As String
sHTML = "<a href=""http://www.csdn.net""></a><a href=""http://www.csdn1.net""></a><a href=""http://www.csdn2.net""></a>"
Debug.Print sHTML
Set myReg = New RegExp
myReg.IgnoreCase = True
myReg.Global = True
myReg.MultiLine = True
' myReg.Pattern = "(<a href="")[^""]+"
' MsgBox myReg.Replace(sHTML, "$1")
myReg.Pattern = "http://[^""]*"
MsgBox myReg.Replace(sHTML, "")End Sub
Sub ClearUrl()
Dim Str$, oJs As Object Str = "<a href=""http://sdjsaldj.com"" target=""_blank""> "
Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript"
oJs.eval "function gets(str){return str.replace(/(.+href\="")(\S+)("".+)/,'$1$3')}" Debug.Print oJs.codeobject.gets(Str)
End Sub