-------------------正则表达式的所有内容-----------------------------
RegExp属性
Global
IgnoreCase
Pattern
RegExp方法
Execute --对指定的字符串执行正则表达式搜索。
Replace --替换正则表达式搜索到的字符。
Test
RegExp对象
Match
Match属性
FirstIndex
Length
Value
RegExp集合
Matches
SubMatches
说明:
正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。
Execute 方法返回一个 Matches 集合,其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配,Execute 将返回空的 Matches 集合。
举例:
Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ‘建立变量 Set regEx = New RegExp ‘建立正则表达式 regEx.Pattern = patrn ‘设置搜索方法 regEx.IgnoreCase = True ‘设置是否区分大小写 regEx.Global = True ‘设置全程可用性 Set Matches = regEx.Execute(strng) ‘根据正则表达式规则执行搜索字符串 For Each Match in Matches ‘遍历Matches集合 RetStr = RetStr & Match.Value & "," ‘显示符合正则表达式规则的字符,此句也可写为: RetStr = RetStr & Match Next RegExpTest = RetStr End Function str = RegExpTest("\d+", "xxafaf12dfasf3433432xx你好") msgbox str 显示:12,3433432
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
Function RegExpTest(patrn, strng) Dim regEx, Match, Matches Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(strng) For Each Match in Matches RetStr = RetStr & Match.value Next RegExpTest = RetStr End Function msgbox RegExpTest("\d+","sdfsdfsd234")
在这个示例中我们可以看到方法Execute和对象Match是使用在集合Matches中的,Match和Matches是作为变量来使用的,为了我们很容易得看懂它,我们没有必要将他们换名字。关于对象Match的属性,我在上面的示例中都做了注释了。
RegExp的Replace方法介绍:
Replace--替换在正则表达式搜索到的文本。
object.Replace(string1, string2)
参数:
object
Required. Always the name of a RegExp object.
string1
Required. String1 is the text string in which the text replacement is to occur.
string2
Required. String2 is the replacement text string.
说明:
被替换的文本的实际模式是通过 RegExp 对象的 Pattern 属性设置的。
Replace 方法返回 string1 的副本,其中的 RegExp.Pattern 文本已经被替换为 string2。如果没有找到匹配的文本,将返回原来的 string1 的副本。
下面的例子说明了Replace方法的用法。
Function ReplaceTest(patrn,replStr) Dim regEx,str1 str1 = “the quick browm fox jumps over the lazy dog.” ‘create regular expression Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True ‘make replacement. ReplaceTest = regEx.Replace(str1,replStr) End Function Msgbox (ReplaceTest(“fox”,”cat”)) ‘replace ‘fox’ with ‘cat’.
RegExp的Test方法介绍:
Test 方法
对指定的字符串执行一个正则表达式搜索,并返回一个 Boolean 值指示是否找到匹配的模式。
object.Test(string)
参数
object
必选项。总是一个 RegExp 对象的名称。
string
必选项。要执行正则表达式搜索的文本字符串。
说明
正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。
如果找到了匹配的模式,Test方法返回True;否则返回False。
下面的代码说明了Test 方法的用法。
Function RegExpTest(patrn, strng) Dim regEx, retVal ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = False ' 设置是否区分大小写。 retVal = regEx.Test(strng) ' 执行搜索测试。 If retVal Then RegExpTest = "找到一个或多个匹配。" Else RegExpTest = "未找到匹配。" End If End Function MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
SubMatches 集合
正则表达式子匹配字符串的集合。
说明
SubMatches 集合包含了单个的子匹配字符串,只能用 RegExp 对象的 Execute 方法创建。SubMatches 集合的属性是只读的。
运行一个正则表达式时,当圆括号中捕捉到子表达式时可以有零个或多个子匹配。SubMatches 集合中的每一项是由正则表达式找到并捕获的的字符串。
下面的代码演示了如何从一个正则表达式获得一个 SubMatches 集合以及如何它的专有成员:
Function SubMatchTest(inpStr) Dim oRe, oMatch, oMatches Set oRe = New RegExp '查找一个电子邮件地址(不是一个理想的 RegExp) oRe.Pattern = "(\w+)@(\w+)\.(\w+)" ‘得到 Matches 集合 Set oMatches = oRe.Execute(inpStr) ‘得到 Matches 集合中的第一项 Set oMatch = oMatches(0) ‘ 创建结果字符串。 Match 对象是完整匹配 — dragon@xyzzy.com retStr = "电子邮件地址是: " & oMatch & vbNewline ‘ 得到地址的子匹配部分。 retStr = retStr & "电子邮件别名是: " & oMatch.SubMatches(0) ' dragon retStr = retStr & vbNewline retStr = retStr & "组织是: " & oMatch. SubMatches(1)' xyzzy SubMatchTest = retStr End Function
MsgBox(SubMatchTest("请写信到 dragon@xyzzy.com 。 谢谢!"))