用正则删除vb代码中所有注释的方法

'此代码由“正则测试工具v1.1.35”自动生成，请直接调用TestReg过程
Private Sub TestReg()
    Dim s As String
    Dim reg As Object

    s = "s = ""ssss,'xxxxxxx',ffff"" 'xxxxxxx'''''bbbbb _" & vbCrLf & _
              "                           xxxxxxxffffff" & vbCrLf & _
              "'adfadfadfadfad _" & vbCrLf & _
              "adfadfadfadfadfadf _" & vbCrLf & _
              "adfadfasdfadfadfadfa" & vbCrLf

    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True

    reg.Pattern = "'([^""\r\n]+?_\r\n)+"
    s = reg.Replace(s, "'")
    reg.Pattern = "'[^""\r\n]+(\r\n)"
    s = reg.Replace(s, "
 
 
'此代码由“正则测试工具v1.1.35”自动生成，请直接调用TestReg过程
Private Sub TestReg()
    Dim s As String
    Dim reg As Object

    s = "s = ""ssss,'xxxxxxx',ffff"" 'xxxxxxx'''''bbbbb _" & vbCrLf & _
              "                           xxxxxxxffffff" & vbCrLf & _
              "'adfadfadfadfad _" & vbCrLf & _
              "adfadfadfadfadfadf _" & vbCrLf & _
              "adfadfasdfadfadfadfa" & vbCrLf

    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True

    reg.Pattern = "'([^""\r\n]+?_\r\n)+"
    s = reg.Replace(s, "'")
    reg.Pattern = "'[^""\r\n]+(\r\n)"
    s = reg.Replace(s, "$1")
    Debug.Print s
End Sub
 
 
 
  
  

")
    Debug.Print s
End Sub'此代码由“正则测试工具v1.1.35”自动生成，请直接调用TestReg过程
Private