正则怎么匹配前面没有某些字符的内容？

killq

ggmmlol 发表于 2019-9-29 19:54
优先排除掉前面有math.的字母，捕获余下的字母就是了。
所以，正则是：
math\.[a-zA-Z]+|([a-zA-Z]+)|.

因为不清楚他的具体需求，感觉你这样直接写不一定适合他，哈哈

ggmmlol

10楼的正则表达式，是按我的正则表达式万能公式的“唯我独尊”版写的。

如果按正则表达式万能公式的“众星捧月”版，就是：
(?:math\.[a-zA-Z]+|.*?)*([a-zA-Z]+)|.+

ggmmlol

killq 发表于 2019-9-29 20:00
因为不清楚他的具体需求，感觉你这样直接写不一定适合他，哈哈

我给的正则表达式，既可以用于Execute方法，也可以用于replace方法。
而且，用于Execute方法，也无需事先Test，得到Matches集合之后，只要判断成员的submatches(0)的长度非0，就可以确定了。

下面给出用replace提取到的内容。我个人比较喜欢Replace方法，可以直接得到目标部分，不需要循环。

1. Sub Test1()
   
2.     Dim reg, s$
   
3.     s = "1cm+2*math.sin(0)+3cm+5kg"
   
4.     Set reg = CreateObject("VBScript.RegExp")
   
5.     With reg
   
6.         .Pattern = "(?:math\.[a-zA-Z]+|.*?)*([a-zA-Z]+)|.+"
   
7.         .Global = True
   
8.         MsgBox .Replace(s, "$1" & vbCrLf)
   
9.     End With
   
10. End Sub

复制代码

mzbao

ggmmlol 发表于 2019-9-29 20:03
10楼的正则表达式，是按我的正则表达式万能公式的“唯我独尊”版写的。

如果按正则表达式万能公式的“众 ...

非常感觉，我研究研究。
你两个表达式，开始在网上在线(http://tool.oschina.net/regex/)试的时候，结果竟然不对。可我在VBA里试，竟然全部都是对的。害得我差点以为错了呢，不知道这网上什么情况。

mzbao

ggmmlol 发表于 2019-9-29 20:14
我给的正则表达式，既可以用于Execute方法，也可以用于replace方法。
而且，用于Execute方法，也无需事 ...

非常感谢，我研究研究。

killq

ggmmlol 发表于 2019-9-29 20:14
我给的正则表达式，既可以用于Execute方法，也可以用于replace方法。
而且，用于Execute方法，也无需事 ...

我主要是觉得他是初学，这些方法他不一定能掌握，可能会用不起来
然后就是：如果用execute的话，不用test也有可能会出错吧，比如s只是一个数字的情况，那么sub就是空值了，会不会报错我没试，嘿嘿

ggmmlol

killq 发表于 2019-9-29 20:31
我主要是觉得他是初学，这些方法他不一定能掌握，可能会用不起来
然后就是：如果用execute的话，不用tes ...

这种情况下，我给的正则仍不会报错，因为有最后的"|.+"负责殿后，只要前面的表示“吃”不下了，殿后的就负责“打包带走”，而这次匹配的结果就是殿后者之前的表达式部分所匹配到的成员的.submatches(0)得到的值是一个空字符串(0长度的字符串)。

killq

ggmmlol 发表于 2019-9-29 20:41
这种情况下，我给的正则仍不会报错，因为有最后的"|.+"负责殿后，只要前面的表示“吃”不下了，殿后的就 ...

唔，也是哦，厉害

powerremain

ggmmlol 发表于 2019-9-29 20:14
我给的正则表达式，既可以用于Execute方法，也可以用于replace方法。
而且，用于Execute方法，也无需事 ...

佩服！正则可以因为你改规则了

tspliu

Sub aaa()
    s = "1cm+2*math.sin(0)+3cm+5555kg+sin+cd"
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .Pattern = "(math.[a-z]+|[^a-z]+)"
        .Global = True
       Debug.Print .Replace(s, " ")
    End With
End Sub