加强版VB正则表达式(VBScript.RegExp)组件,兼容Perl正则语法

coby001

递归表达式 (?R)

上面的例子只是解析了2层 括号，那么超过2层的多层括号怎么办？

加个循环吧~~ 就像剥洋葱一样。

1. Sub nxReg_test5()
   
2.     Dim regex As New NewXing.RegExp
   
3.     Dim matches As NewXing.MatchCollection
   
4. 
   
5.     regex.Pattern = "\(([^()]|(?R))*\)"
   
6.     regex.Global = True
   
7. 
   
8.     Dim s$, iSubCnt&
   
9.     s = "(a * (b * (c * (d + 2))))" ' 4层
   
10.     Do
    
11.         Set matches = regex.Execute(s)
    
12.         If matches.Count Then
    
13.             With matches(0)
    
14.                 Debug.Print .Value     ' 外层
    
15.                 iSubCnt = .SubMatches.Count
    
16.                 If iSubCnt Then    ' 内层
    
17.                     s = .SubMatches(0)
    
18.                 End If
    
19.             End With
    
20.         End If
    
21.     Loop Until (iSubCnt = 0) Or (matches.Count = 0)
    
22. End Sub
    

复制代码

coby001

再理解 递归表达式 (?R)


Sub nxReg_test6()
    Dim regex As New NewXing.RegExp
    Dim matches As NewXing.MatchCollection

    regex.Pattern = "\((?:[^()]|(?R))*\)" ' 不想捕获内层，?:
    regex.Global = True
    ' 加了几个干扰的无配对括号
    Const s = "(a * (b * (c * (d + 2)c)b)a)))))"
    Set matches = regex.Execute(s)
    If matches.Count Then
        ' 递归，能正确配对，把干扰的括号排除
        Debug.Print matches(0).Value  ' 外层
    End If
End Sub

wcymiss

学习，因为vbs正则不支持，递归正则我从来没用过。

coby001

wcymiss 发表于 2014-11-19 15:09
如果有这样的功能我就觉得完美了~~~

Sub jsReg_test()

js是函数式编程，函数能随时随地定义并执行。表达能力比vba强多了

也许，vb.net 才有此能力吧，不过我没用过。

coby001

按每个字符为一个元素，分割字符串到数组。

1. Sub nxReg_test9()
   
2.     Const s = "1234567890acde小数点", Sep = ","
   
3.     Dim sArr$()
   
4.     With CreateObject("NewXing.RegExp")
   
5.         sArr = .Split(.Replace(s, Sep & "$1", "(.)", "g", 1), Sep)
   
6.     End With
   
7.     Sheet1.Range("A1").Resize(1, Len(s)) = sArr
   
8. End Sub
   

复制代码

century_zhang

高人，望其项背

porlu

WIN8.1安装不了。

zs1294

为什么一运行就闪退啊？

wangnb819

看得我目瞪口呆，高深

a832759436

运行就闪退