正则替换问题，<a href="" target="_blank">

Question

<a href="http://sdjsaldj.com" target="_blank"> 结果：<a href="" target="_blank">
<a href="http://sdjsaldj.com">                 结果：<a href=""> 想在VB里写个正则，把连接里面的数据清空，请问，怎么写这个正则呢？

Answer 1

Private Sub Command1_Click()
    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

Answer 2

Private Sub Command1_Click()
    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

Answer 3

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