VBA正则能使用平衡组么?

红色金刚石

如题,想在VBA中使用平衡组来判断成对出现的括号等,能否给一个小示例学习,谢谢

1. Sub opent()
   
2. Dim exp$, str$
   
3. exp = "a+(b*(c+d))\/e+f-(g\/(h-i))*j "
   
4. 'exp = "正则ABC"
   
5. str = "\(((?(Open)\()|(?(-Open)\))|[^()]+)*(?(Open)(?!))\)"
   
6. 'str = "((?<Open>\()|(?<?Open>((?<Open>\()|(?<?Open>)|[^()])*(?(Open)(?!))\)"
   
7. 'str = "((?<Open>\()|(?<?Open>((?<Open>\()|(?<?Open>)|[^()])*(?(Open)(?!))\)"
   
8. With CreateObject("VBScript.RegExp")
   
9.     .Pattern = str
   
10.     Set mh = .Execute(exp)
    
11. End With
    
12. For Each k In mh
    
13.     Debug.Print k ' "正则"
    
14. Next
    
15. end sub

复制代码

这是网上的其他平台的示例,在VBA中好像不行

fxl447098457

vba里我都没见过这种骚操作。应该不行的。你可以使用其他语言制作一个正则组件扩展下vba或者找找第三方能被vb语言调用的正则增强的扩展

红色金刚石

fxl447098457 发表于 2019-7-12 17:33
vba里我都没见过这种骚操作。应该不行的。你可以使用其他语言制作一个正则组件扩展下vba或者找找第三方能被 ...

谢谢,其他语言就简单了,因为是Excel中用,所以头痛,VBA零宽断言只有一半,平衡组没有,正则的强大的功能都体现不出来啊

duquancai

红色金刚石 发表于 2019-7-12 17:40
谢谢,其他语言就简单了,因为是Excel中用,所以头痛,VBA零宽断言只有一半,平衡组没有,正则的强大的功能都体 ...

期待你去底层扩展vbs的正则类，使其具有你说的功能，我们十分期待。

红色金刚石

duquancai 发表于 2019-7-12 19:51
期待你去底层扩展vbs的正则类，使其具有你说的功能，我们十分期待。

哈哈,扩展就不用了,已经有人做了插件,但我做这个表格给别人用,要能移植,总不能也给别人也安装插件吧,呵呵
看来只能用函数解决了