正则表达式之庖丁解牛： 如何去掉VBA代码中的注释

xd3210

学习分析问题、解决问题的方法

ggmmlol

zpy2 发表于 2020-6-28 07:38
这种用正则replace非常巧妙，我在想直接match不用replace是否可以。
在没有 Rem语句的情况下，我用
(?:"[ ...

可以用正则的Execute方法，获取MatchCollection集合，从其中摒弃非目标字符，就得到精准的目标字符。

如动图所示，正是用Execute方法，获取到每段目标字符的起止边界，然后才可以利Range.Characters(Start, lenght).Font属性，设置相应字符段字体的颜色、加粗、字号大小等各项属性。

但是，Execute方法和Replace方法，它们适合出场的场合不同：前者适合于不允许改变源字符串本身字符内容的场合，后者则适应于必须改变源字符串本身字符内容的场合。

所以，论坛里各种关于特定字符提取、替换或清除的求助问题，都是要求改变源字符串本身的字符内容的问题，基本上都以Replace方法解决为宜，只有一些特例，比如商品批量涨价（上涨固定值或按百分比或其它规则涨价），需要先提取商品价格数据、再通过二次加工后代回去的，这种情况仅以Replace方法是不好解决的，才考虑用Execute方法解决。

xlsber

针对如下形式的VBA代码如何清除注释

Sub Test()
    s = "ssss, 'xxxxxxx ',ff" & CStr(i) & _
        "ff" & "Test " _
         & " cccc "" cccc "" xx "  'xxxxxxx' ' ' ' 'bbbbb _
                                    xxxxxxxffffff
                              
    'adfadfadfadfad _
    adfadfadfadfadfadf _
    adfadfasdfad'"" '''' """"fadfadfa
   
    Rem test
    Rem test _
             this need to be removed.
End Sub

xlsber

xlsber 发表于 2020-7-1 14:55
针对如下形式的VBA代码如何清除注释

Sub Test()

我之前想的是先将带换行的代码全部变成一行之后再用你的正则清除，可行，但是有一点就是会改变非注释中的换行代码变为一行，我不想改变原来代码的格式，试了很多次都没成功。

ggmmlol

xlsber 发表于 2020-7-1 14:59
我之前想的是先将带换行的代码全部变成一行之后再用你的正则清除，可行，但是有一点就是会改变非注释中的 ...

原来的字面形式：
(?:'|(?:^|:) *Rem\b).*|(".*?")
改为：
(?:'|(?:^|:) *Rem\b)(?:.*? _\n)*.*|(".*?")

表示：批注内容，从它的引导符到它结尾之间，允许加入任意连续多行以下划线结尾的内容。

正则表达式去除VBA代码中的注释2.rar (21.85 KB, 下载次数: 20)

2020-7-1 16:53 上传

点击文件名下载附件

xlsber

ggmmlol 发表于 2020-7-1 16:53
原来的字面形式：
(?:'|(?:^|:) *Rem\b).*|(".*?")
改为：

厉害

xlsber

大侠，根据你的庖丁解牛思路，针对获取SQL语句中涉及到的 表 以及连接关系（即表TableA，TableB，TableC 以及语句中可能出现的LEFT，RIGHT，INNER，CROSS连接关键字），这两个分别写出了正则，但是不知道怎么把它们汇总在一起，你帮我看下吧，谢谢

要查的字符串：
SELECT * FROM TableA;
SELECT a.ID, b .Name FROM TableA a, TableB b WHERE a.ID = b.ID;
SELECT a.ID, b.Name FROM TableA a LEFT JOIN TableB b ON a.ID = b.ID;
SELECT * FROM TableA a INNER JOIN TableB b ON a.ID = b.ID WHERE a.ID > 1000;
SELECT * FROM TableA a LEFT JOIN TableB b ON a.ID = b.ID LEFT JOIN TableC c ON c.Name = b.Name;


我写的正则：
1. 获取表名称
\s*(?<=from|join|from\b.*,)\s+(\w+)

2.获取连接关键字（即join前面的单词）
(\w+(?=\s+\bjoin\b\s+))

f8b1987

收藏一下，说不定用得上

tender888

有点复杂， 看不懂