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

作品 专栏收录该内容
71 篇文章 0 订阅
'此代码由“正则测试工具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

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:程序猿惹谁了 设计师:我叫白小胖 返回首页

打赏作者

无·法

别打赏了,这C币又不能买咖啡

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值