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

coby001

加强版VB正则表达式(VBScript.RegExp)组件,兼容Perl正则语法
本组件用的是DEELX正则引擎封装的com组件。
特点：
    1、完全兼容VBScript.RegExp 正则组件的各种属性与方法
    2、支持与 Perl 兼容的正则表达式语法。
    3、支持 Ignorecase, Singleline, Multiline… 等常见匹配模式。
    4、支持命名分组，条件表达式，递归表达式，零宽断言…等多种高级特性。
    详细语法与编程帮助请下载《NewXing.RegExp帮助文档》。



RegExp[1].rar (44.03 KB, 下载次数: 502)

2014-11-18 20:39 上传

点击文件名下载附件
加强版VB正则表达式

deelx_zh_正则语法.zip (77.18 KB, 下载次数: 1677)

2014-11-18 22:45 上传

点击文件名下载附件

NewXing.RegExp 正则组件帮助文档.rar (54.15 KB, 下载次数: 397)

2014-11-19 00:17 上传

点击文件名下载附件

Zamyi

谢谢分享。

hyqzzs

谢谢分享。

wcymiss

比vbs的正则有什么优势吗？

楼主能否举几个例子？

coby001

wcymiss 发表于 2014-11-18 21:33
比vbs的正则有什么优势吗？

楼主能否举几个例子？

正在研究~~~~
--------------------------------------------
1、下载控件
2、解压
3、执行包内的 bat ，注册控件
4、在VBE中引用 NewXing 1.0 Type Library
--------------------------------------------


Sub nxReg_test()
    Dim nxReg As New NewXing.RegExp
    Dim nxMC As NewXing.MatchCollection
    Dim nxMch As NewXing.Match
    Const s = " 123 456 aa gg .99"
    nxReg.Global = True
    nxReg.Pattern = "\d+(?#GetAnyNumber)" ' 可以在行内注释
    Set nxMC = nxReg.Execute(s)
    For Each nxMch In nxMC
        Debug.Print nxMch.Value
    Next

End Sub

as42065300

定下...正则不懂，正好研究下。

coby001

Sub nxReg_test()
    Dim nxReg As New NewXing.RegExp
    Dim nxMC As NewXing.MatchCollection
    Dim nxMch As NewXing.Match
    Const s = " 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

End Sub

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

。

coby001

Sub nxReg_test()
    Dim nxReg As New NewXing.RegExp
    Dim nxMC As NewXing.MatchCollection
    Dim nxMch As NewXing.Match
    Dim nxSubM As NewXing.SubMatches
    Const s = " 123 456 aa gg .99 ExcelHome Excel Excel"
    nxReg.Global = True
    nxReg.Pattern = "(?<E>Excel)(?!Home)" ' 命名分组   
    Debug.Print nxReg.Replace(s, "${E}Home") ' 将后续无“Home” 的 Excel 都加上 Home
End Sub

coby001

Sub nxReg_test()
    Dim nxReg As New NewXing.RegExp
    Dim nxMC As NewXing.MatchCollection
    Dim nxMch As NewXing.Match
    Dim nxSubM As NewXing.SubMatches
    Const s = " 123 456 aa gg .99 ExcelHome Excel Excel"
    nxReg.Global = True
    nxReg.Pattern = "(?<E>Excel)(?!Home)" ' 命名分组   
    Set nxMC = nxReg.Execute(s)
    Debug.Print nxMC(0).Named("E") ' 取得 命名分组 所捕获的内容
End Sub

coby001

Sub nxReg_test()
    Dim nxReg As New NewXing.RegExp
    Dim nxMC As NewXing.MatchCollection

    Const s = "(a+b)*3"
    nxReg.Global = True

    nxReg.Pattern = "\Q(a+b)*3\E" ' 批量转义 \Q...\E   
    Set nxMC = nxReg.Execute(s)
    Debug.Print nxMC(0).Value  
   
    '------------------------------
    '如果不使用 \Q...\E 进行转义，则对每个特殊符号进行转义。
    nxReg.Pattern = "\(a\+b\)\*3" '
    Set nxMC = nxReg.Execute(s)
    Debug.Print nxMC(0).Value

End Sub