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

liucqa

ggmmlol 发表于 2020-6-27 08:21

太慢了。读到byte数组里面处理，瞬间完成

ggmmlol

用正则表达式，对VBA代码中可执行语句中的字符串常量作出标记：

ggmmlol

【批量字体设置】加载宏：

用正则表达式，对VBA代码中的注释内容作出标记：

ggmmlol

【批量字体设置】加载宏：

用正则表达式，对VBA代码中的注释内容中的“常量字符串”作出标记：

ggmmlol

【批量字体设置】加载宏：

用正则表达式，对VBA代码中可执行语句的字符串作出标记：

ggmmlol

3楼的讲述中，提到了VBA代码的注释内容还有第3种不大常见的样式，就是以冒号分隔在可执行代码后面的Rem语句。

如果要把这种情况也考虑进去，按照解“牛”的思想，先要把它用正则表示出来，即如下所示：
: *Rem\b.*

然后分析它和前面已经解得的基本项的关系，显然，可以把它与前两种注释形式做合并。

所以，清除VBA代码中全部注释内容，最完整最准确的终极正则表达式就是：

(?:'|(?:^|:) *Rem\b).*|(".*?")

你可以测试一下，这个表达式，对可执行代码后面以冒号分隔的Rem注释语句也是否有效。

如果有效，那你觉得这种字符串的拆分方法，是不是很好掌握的呢？

xlsber

感谢 ggmmlol 的系统讲解，很详细了，收藏，之前做了就是没考虑有用vba代码中包含空格加单引号的情况出现了问题，尝试了很多但还是顾此失彼，主要还是对正则基本用法没有掌握透彻，所以才在这里发帖寻求帮助，难得ggmmlol还就此开专题，受教了
泡泡大龙王 的方法也很简洁哈，八错，都是大牛

xlsber

liucqa 发表于 2020-6-27 09:41
太慢了。读到byte数组里面处理，瞬间完成

这个怎么玩？

zpy2

这种用正则replace非常巧妙，我在想直接match不用replace是否可以。
在没有 Rem语句的情况下，我用
(?:"[^"]*"|[^'])+
可以用match匹配出 可执行的语句。
但是，加上 Rem 这种注释语句，是不是也可以不要replace直接match匹配呢？

ggmmlol

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

当然可以。
请看12楼到15楼，我演示了分别用某种字体颜色来突出标识字符串中特定内容的四个动图。
显然，它是要求仅标识目标字符，而不允许去掉其中的任何字符（包括非目标字符），所以，它必须直接得到匹配项的集合MatchCollection，而不可以利用Replace方法那种通过去除非目标字符而间接到目标字符的方法来实现。

这四个动图演示了，仅使用不同的正则表达式，就可以Match到你能描述出特征的任何内容。

而且。在第15楼中，还可以发现，我得到了VBA代码中“可执行语句”部分的除字符串常量之外的内容。这里做了两层取舍，第一层，取可执行语句部分，舍注释内容部分；第二层，舍字符串常量部分，取其余部分。它的正则表达式，就在A1单元格的最后一行：

1. (?:^\s*Rem\b|').*|(?:"[^"\n]*")+|([^'"\n]+)   '捕获"可执行代码中除字符串常量以外的字符"

复制代码