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

最新推荐文章于 2024-09-03 21:26:20 发布

原创最新推荐文章于 2024-09-03 21:26:20 发布 · 3.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #测试工具 #object #string

作品专栏收录该内容

71 篇文章

订阅专栏

本文通过实例展示了如何使用正则表达式在代码中进行字符串替换操作，包括全局匹配、忽略大小写和多行匹配等特性。

'此代码由“正则测试工具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