用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

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

减小字体 增大字体 作者:LinHaibo  来源:新兴网络  发布时间:2011-01-24 19:53:14
NewXing.RegExp 正则组件.rar (更新2015-1-11)

本组件用的是DEELX 正则引擎封装的com组件。
特点:
    1、完全兼容VBScript.RegExp 正则组件的各种属性与方法
    2、支持与 Perl 兼容的正则表达式语法。 
    3、支持 Ignorecase, Singleline, Multiline… 等常见匹配模式。 
    4、支持命名分组,条件表达式,递归表达式,零宽断言…等多种高级特性。
    详细语法与编程帮助请下载《NewXing.RegExp帮助文档》。
    一、NewXing.RegExp 对象
属性 描述
Global 是否全局匹配,默认值False,即只会匹配一次,如要匹配所有需将它的值设置为True
IgnoreCase 匹配时是否忽略大小写,默认是区分大小的。值:(True/False)
Pattern 用于设置正则表达式。值:字符串

Multiline

多行模式。

使 ^ 符号除了能够匹配字符串开始位置外,还能匹配换行符(\n)之后的位置;使 $ 符号除了能够匹配字符串结束位置外,还能匹配换行符之前的位置。

默认情况下, ^ 符号只能匹配字符串开始位置, $ 符号只能匹配字符串结束位置。

SINGLELINE 和 MULTILINE 虽然听起来相互矛盾,但却是作用在不同的地方。因此它们是可以组合使用的。

在指定了 MULTILINE 之后,如果需要仅匹配字符串开始和结束位置,可以使用 \A 和 \Z。

Singleline *

单行模式。

使小数点 "." 可以匹配包含换行符(\n)在内的任意字符。默认情况下,小数点只匹配换行符以外的任意字符,不匹配换行符。

RightToLeft * 从右向左的进行匹配。从被匹配字符串的结束位置向前进行查找匹配,同时,在表达式中也是右侧的表达式先进行匹配。
Extended *

忽略表达式中的空白字符,并且把从 # 开始到该行行末的内容视为注释。默认情况下,正则表达式中的空格,换行等字符将可以匹配相应的字符。

指定了 EXTENDED 模式后,如果要在正则表达式中表示空白字符比如空格符号(space)时,应该用 \x20 表示,如果要在表达式中表示 # 符号,应该用 \# 表示。

不管是否指定了 EXTENDED 模式,括号内以 ?# 号开始时,比如(?# xxx ),那么这一对括号以及包含的内容都始终作为注释而被忽略。

提示:IgnoreCase、Singleline、Global、Multiline、RightToLeft、Extended 这几个属性可用flags参数来设置(后面会讲到),也可以说这几个属性是多余的,只是为了兼容VBScript.RegExp 正则的语法而增加了。

方法 描述
Execute 该方法用来查找字符串,找到的字符串将通过MatchCollection集合返回。
Replace 这个方法用于替换在正则表达式搜索中找到的文本。
Test Test方法对字符串执行正则表达式搜索,并返回一个布尔值说明匹配是否成功。

Split *

按照指定的表达式字符串对目标字符串进行分割并返回一维数组。

PS: * 星号表示新增的属性/方法。即VBScript.RegExp 没有的功能。

二、NewXing.MatchCollection 对象

MatchCollection 是集合对象,包含有关匹配字符串的信息,该对象包含每个成功匹配的 Match 对象。

属性 描述
Count 匹配对象的总数。
Item 匹配对象的索引。

三、NewXing.Match 对象

Match 是成功匹配的对象。

属性 描述
FirstIndex 匹配对象所匹配字符串的起始位置。
Length 匹配对象所匹配字符串的字符长度。
SubMatches 匹配对象所匹配结果的子项,返回SubMatches集合。通过该集合可以获取匹配到的各个命名分组结果。
Value 匹配对象所匹配的值。
Named * 通过命名分组的名字来获取匹配到的结果。

四、NewXing.SubMatches 对象

SubMatches 得到当次匹配到的所有“分组”结果集合。

属性 描述
Count 分组总数
Item 匹配到的结果索引。

五、最后说一下NewXing.RegExp 对象的4个方法的相关参数与作用。
语法:

1、Execute

Execute (sourceString As String, [pattern As String], [flags As String], [start As Long] = -1) As MatchCollection

2、Replace

Replace (sourceString As String, replaceVar As String, [pattern As String], [flags As String], [start As Long] = -1, [times As Long] = -1) As String

3、Test

Test (sourceString As String, [pattern As String], [flags As String], [start As Long] = -1) As Boolean

4、Split

Split (sourceString As String, [pattern As String], [flags As String], [start As Long] = -1, [times As Long] = -1) As Object

参数说明:

参数 描述
sourceString 必填参数,用来匹配的文本。
replaceVar 必填参数,是用来替代的字符串。Replace 方法中才用到该参数。
pattern * 可选参数,设置正则表达式。如果RegExp.pattern 属性中已设置那么这个参数可忽略,如果两者同时设置,将会选用本参数的表达式进行匹配。
flags *

可选参数,表达式匹配模式。值为:i、s、g、m、r、x

以上字母分别代表:IgnoreCase、Singleline、Global、Multiline、RightToLeft、Extended

i、s、g、m、r、x 可随意组合。

例如:

RegExp.IgnoreCase = True
RegExp.Global = True

可直接用该参数 ig 来代替。当您设置了该参数的值后 IgnoreCase、Singleline、Global、Multiline、RightToLeft、Extended这

6个属性的设置就不起作用了。

start *

可选参数,开始查找匹配的位置。
times *

可选参数,replace方法中用于指定进行替换的次数。默认(-1)表示替换所有匹配。 split 方法中用于指定可拆分为多少个数组,默认拆分所有。

示例:

VBScript code复制代码
Private Sub Form_Load()
    Dim Regex As Object
    Set Regex = CreateObject("NewXing.RegExp")
    Regex.IgnoreCase = True
    Regex.Global = True
    Regex.Pattern = "(\d+)"
    MsgBox Regex.Replace("aa 11 bb 22 33", "[$1]")
    '输出结果:aa [11] bb [22] [33]
End Sub

以上的代码也可以简化为以下这样。

VBScript code复制代码
Private Sub Form_Load()
    Dim Regex As Object
    Set Regex = CreateObject("NewXing.RegExp")
    MsgBox Regex.Replace("aa 11 bb 22 33", "[$1]", "(\d+)", "ig")
End Sub
  • 好的评价 如果您觉得此文章好,就请您
      99%(294)
  • 差的评价 如果您觉得此文章差,就请您
      1%(3)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 9 条,得分 786 分,平均 87 分) 查看完整评论
[回复] 9游客   打分:100 分  发表时间:2015-09-27
· 在C#中引用时,单独设置Pattern属性无效,只能Replace时设置Pattern参数才能替换。
[回复] 8游客   打分:100 分  发表时间:2014-10-04
· Dim Re As Object
    Set Re = CreateObject(&q
[回复] 7游客   打分:100 分  发表时间:2014-10-04
· Execute (sourceString As String, [pattern As String], [flags 
[回复] 6游客   打分:100 分  发表时间:2014-04-28
· 知道了,是rar
[回复] 5游客   打分:85 分  发表时间:2014-04-28
· NewXing.RegExp帮助文档下载后没有扩展名,用什么打开?试过chm,html均无效
[回复] 4游客   打分:100 分  发表时间:2014-02-19
· 回复 3 楼(游客): 可能服务器忙多刷新一下就可以下载了,或者过几分钟再重试,如果一直不能下载请换一个网络环境试试。