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

coby001

Sub nxReg_test2()
    Dim nxReg As New NewXing.RegExp   
    Const s = "a,b,c,D,ff,       12,333,444,555.00,g,H,i" '   
    nxReg.Global = True
    nxReg.Pattern = ",(?!\d{3}\D)"  ' 按逗号分割字串，但保留 数值中的千分位逗号   
    Dim sArr$(), tmp
    sArr = nxReg.Split(s)
    For Each tmp In sArr
        Debug.Print tmp
    Next

End Sub

coby001

Sub nxReg_test3()
    Dim nxReg As New NewXing.RegExp   
    Const s = "a,b,c,D,ff,       12,333,444,555.00,g,H,i" '   
    Dim sArr$(), tmp
    sArr = nxReg.Split(s, ",(?!\d{3}\D)", "g") ' 实现相同的功能，更加简洁
    For Each tmp In sArr
        Debug.Print tmp
    Next
End Sub

coby001

由于在 正则 里说 正向/反向 ，前/后 ，是比较容易混淆的，所以改成 左/右，这样容易理解。

Sub nxReg_test()
    Dim nxReg As New NewXing.RegExp
    Dim nxMC As NewXing.MatchCollection
    Dim nxMch As NewXing.Match
    Const s = "8 123 456 aa gg .99"
    nxReg.Global = True
    nxReg.Pattern = "(?<=\.)\d+(?#数字左边有小数点)" ' 零宽断言，可以 左预查
    Set nxMC = nxReg.Execute(s)
    For Each nxMch In nxMC
        Debug.Print nxMch.Value ' 只匹配 99
    Next

     ' 零宽断言，可以 左预查
    For Each nxMch In nxReg.Execute(s, "(?<![.\d])\d+(?#数字左边无小数点)","g")
        Debug.Print nxMch.Value ' 匹配 8，123，456 ，不匹配 99
    Next

End Sub

vba的 reg5.5 没有此功能哦~

。

wcymiss

coby001 发表于 2014-11-19 09:50
由于在 正则 里说 正向/反向 ，前/后 ，是比较容易混淆的，所以改成 左/右，这样容易理解。

Sub nxReg_t ...

确实，负向零宽断言是vbs正则的永远的痛。

coby001

wcymiss 发表于 2014-11-19 10:28
确实，负向零宽断言是vbs正则的永远的痛。

有了 左右预查，就可以实现自定义的边界符了，中文也可以找边界了~~
\b  只是针对 半角字母和数字 才有效。

chrispo

谢谢楼主，做个标记，以后备用

wcymiss

coby001 发表于 2014-11-19 10:36
有了 左右预查，就可以实现自定义的边界符了，中文也可以找边界了~~
\b  只是针对 半角字母和数字 才有效 ...

再来个递归的例子啊。

coby001

wcymiss 发表于 2014-11-19 14:03
再来个递归的例子啊。

好的，，=我有空就写一个，，，。。
现在有事要忙~

wcymiss

coby001 发表于 2014-11-19 14:12
好的，，=我有空就写一个，，，。。
现在有事要忙~

如果有这样的功能我就觉得完美了~~~

Sub jsReg_test()
    '把数字部分都减去10
    Const s = "123-*-4567-s-77"
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "javascript"
        Debug.Print .Eval("('" & s & "').replace(/\d+/g,function(e){return e-10})")
        '返回113-*-4557-s-67
    End With
End Sub

对于按规则批量修改数据很有用。。

coby001

wcymiss 发表于 2014-11-19 14:03
再来个递归的例子啊。

递归表达式 (?R)
对另一部分子表达式的引用，而不是对其匹配结果的引用。当被引用的表达式包含自身，则形成递归引用。
说明
相对于 "反向引用" 来说，反向引用是在匹配过程中，对匹配到的字符串内容进行引用，而 "递归匹配" 是对表达式进行引用。


---------例子----------
原字串：(a * (c + 2))

目的：捕获每一对带括号的数学公式，括号要正确配对。

首先，按普通的想法就是先找到括号：
nxReg.Pattern = "\(.*\)"  ' 两边有 括号,并且它的中间有任意内容
这个模式是贪婪的，会把整个原字串都捕获了，不能正确匹配出“(c + 2)”子字串。


改进：找到括号中间没有其他括号的
nxReg.Pattern = "\([^()]*\)"  ' 两边有 括号,并且它的中间没有其他括号
这个模式能正确匹配出“(c + 2)”子字串了。


那外面还有一层括号呢，怎么写，
                          \(([^()])*\)                ' 1层
             \(([^()]|\(([^()])*\))*\)          ' 2层
\(([^()]|\(([^()]|\(([^()])*\))*\))*\)    ' 3层
………………其他的层 依次嵌套


看得出来，每次嵌套都是同一个模式的重复，就是 原模式的自身嵌套
用一个符号来表示这种递归引用自身表达式的方法：(?R)


nxReg.Pattern = "\(([^()]|(?R))*\)"

例子：

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.     Set matches = regex.Execute("(a * (c + 2))")
   
9.    
   
10.     Debug.Print matches(0).Value ' 外层
    
11.     Debug.Print matches(0).SubMatches(0) ' 内层
    
12. End Sub
    

复制代码