RegExp对象的用法：
RegExpTest(patrn,strng)
DimregEx,Match,Matches'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分字符大小写。
regEx.Global=True'设置全局可用性。
SetMatches=regEx.Execute(strng)'执行搜索。
ForEachMatchinMatches'遍历匹配集合。
RetStr=RetStr&"Matchfoundatposition"
RetStr=RetStr&Match.FirstIndex&".Matchis'"
RetStr=RetStr&Match.&"'."&vbCRLF
Next
RegExpTest=RetStr
End

MsgBox(RegExpTest("is.","IS1is2IS3is4"))

　　RegExp对象的属性

　　◎Global属性

　　Global属性设置或返回一个Boolean值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。
　　语法
object.Global[=True|False]
　　object参数总是RegExp对象。如果搜索应用于整个字符串，Global属性的值为True，否则其值为False。默认的设置为True。

　　Global属性的用法（改变赋予Global属性的值并观察其效果）：
RegExpTest(patrn,strng)
DimregEx'建立变量。
SetregEx=NewRegExp'建立规范表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分字母的大小写。
regEx.Global=True'设置全程性质。
RegExpTest=regEx.Execute(strng)'执行搜索。
End

MsgBox(RegExpTest("is.","IS1is2IS3is4"))

　　◎IgnoreCase属性

　　IgnoreCase属性设置或返回一个Boolean值，指明模式搜索是否区分大小写。
　　语法
object.IgnoreCase[=True|False]
　　object参数总是一个RegExp对象。如果搜索是区分大小写的，则IgnoreCase属性为False；否则为True。缺省值为True。

　　IgnoreCase属性的用法（改变赋予IgnoreCase属性的值以观察其效果)：
RegExpTest(patrn,strng)
DimregEx'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分大小写。
RegExpTest=regEx.Execute(strng)'执行搜索。
End

MsgBox(RegExpTest("is.","IS1is2IS3is4"))

　　◎Pattern属性

　　Pattern属性设置或返回被搜索的正则表达式模式。
　　语法
object.Pattern[="searchstring"]
Pattern属性的语法包含以下几个部分：

　　语法说明：
object必需的。总是一个RegExp对象变量。
searchstring可选的。被搜索的正则字符串表达式。它可能包含设置部分表格中的各种正则表达式字符。

　　设置
　　在书写正则表达式的模式时使用了特殊的字符和序列。下面描述了可以使用的字符和序列，并给出了实例。
　\将下一个字符标记为特殊字符或字面值。例如"n"与字符"n"匹配。"\n"与换行符匹配。序列"\\"与"\"匹配对面，"\("与"("匹配。
　^匹配输入的开始位置。
　$匹配输入的结尾。
　*匹配前一个字符零次或几次。例如，"zo*"可以匹配"z"、"zoo"。
　+匹配前一个字符一次或多次。例如，"zo+"可以匹配"zoo",但不匹配"z"。
　?匹配前一个字符零次或一次。例如，"a?ve?"可以匹配"never"中的"ve"。
　.匹配换行符以外的任何字符。
　(pattern)与模式匹配并记住匹配。匹配的子字符串可以从作为结果的Matches集合中使用Item[0]...[n]取得。如果要匹配括号字符(和)，可使用"\("或"\)"。
　x|y匹配x或y。例如"z|food"可匹配"z"或"food"。"(z|f)ood"匹配"zoo"或"food"。
　{n}n为非负的整数。匹配恰好n次。例如，"o{2}"不能与"Bob中的"o"匹配，但是可以与"foooood"中的前两个o匹配。
　{n,}n为非负的整数。匹配至少n次。例如，"o{2,}"不匹配"Bob"中的"o"，但是匹配"foooood"中所有的o。"o{1,}"等价于"o+"。"o{0,}"等价于"o*"。
　{n,m}m和n为非负的整数。匹配至少n次，至多m次。例如，"o{1,3}"匹配"fooooood"中前三个o。"o{0,1}"等价于"o?"。
　[xyz]一个字符集。与括号中字符的其中之一匹配。例如，"[abc]"匹配"plain"中的"a"。
　[^xyz]一个否定的字符集。匹配不在此括号中的任何字符。例如，"[^abc]"可以匹配"plain"中的"p".
　[a-z]表示某个范围内的字符。与指定区间内的任何字符匹配。例如，"[a-z]"匹配"a"与"z"之间的任何一个小写字母字符。
　[^m-z]否定的字符区间。与不在指定区间内的字符匹配。例如，"[m-z]"与不在"m"到"z"之间的任何字符匹配。
　\b与单词的边界匹配，即单词与空格之间的位置。例如，"er\b"与"never"中的"er"匹配，但是不匹配"verb"中的"er"。
　\B与非单词边界匹配。"ea*r\B"与"neverearly"中的"ear"匹配。
　\d与一个数字字符匹配。等价于[0-9]。
　\D与非数字的字符匹配。等价于[^0-9]。
　\f与分页符匹配。
　\n与换行符字符匹配。
　\r与回车字符匹配。
　\s与任何白字符匹配，包括空格、制表符、分页符等。等价于"[\f\n\r\t\v]"。
　\S与任何非空白的字符匹配。等价于"[^\f\n\r\t\v]"。
　\t与制表符匹配。
　\v与垂直制表符匹配。
　\w与任何单词字符匹配，包括下划线。等价于"[A-Za-z0-9_]"。
　\W与任何非单词字符匹配。等价于"[^A-Za-z0-9_]"。
　\num匹配num个，其中num为一个正整数。引用回到记住的匹配。例如，"(.)\1"匹配两个连续的相同的字符。
　\n匹配n，其中n是一个八进制换码值。八进制换码值必须是1,2或3个数字长。例如，"\11"和"\011"都与一个制表符匹配。"\0011"等价于"\001"与"1"。八进制换码值不得超过256。否则，只有前两个字符被视为表达式的一部分。允许在正则表达式中使用ASCII码。
　\xn匹配n，其中n是一个十六进制的换码值。十六进制换码值必须恰好为两个数字长。例如，"\x41"匹配"A"。"\x041"等价于"\x04"和"1"。允许在正则表达式中使用ASCII码。

　　Pattern属性的用法：
RegExpTest(patrn,strng)
DimregEx'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分大小写。
RegExpTest=regEx.Execute(strng)'执行搜索。
End

MsgBox(RegExpTest("is.","IS1is2IS3is4"))

　　RegExp对象的方法

　　◎Execute方法

　　Execute方法对指定的字符串执行正则表达式搜索。
　　语法
object.Execute(string)
　　语法部分描述
object必需的。总是一个RegExp对象的名称。
string必需的。要在其上执行正则表达式的文本字符串。

　　说明
　　正则表达式搜索的设计模式是通过RegExp对象的Pattern来设置的。
　　Execute方法返回一个Matches集合，其中包含了在string中找到的每一个匹配的Match对象。如果未找到匹配，Execute将返回空的Matches集合。

　　Execute方法的用法：
RegExpTest(patrn,strng)
DimregEx'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=False'设置区分大小写。
regEx.Global=True'搜索全部匹配。
RegExpTest=regEx.Execute(strng)'执行搜索。
End

MsgBox(RegExpTest("is.","IS1is2IS3is4"))

　　◎Replace方法

　　Replace方法替换在正则表达式查找中找到的文本。
　　语法
object.Replace(string1,string2)
　　语法部分描述
object必需的。总是一个RegExp对象的名称。
string1必需的。string1是将要进行文本替换的字符串。
string2必需的。string2是替换文本字符串。

　　说明
　　被替换的文本的实际模式是通过RegExp对象的Pattern属性设置的。
　　Replace方法返回string1的副本，其中的RegExp.Pattern文本已经被替换为string2。如果没有找到匹配的文本，将返回原来的string1的副本。

　　eplace方法的用法：
ReplaceTest(patrn,replStr)
DimregEx,str1'建立变量。
str1="Thequickbrownfoxjumpedoverthelazydog."
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=True'设置是否区分大小写。
ReplaceTest=regEx.Replace(str1,replStr)'作替换。
End

MsgBox(ReplaceTest("fox","cat"))
'将'fox'替换为'cat'。

；另外，Replace方法在模式中替换subexpressions。下面对以前示例中函数的调用，替换了原字符串中的所有字对：
MsgBox(ReplaceText("(\S+)(\s+)(\S+)","$3$2$1"))'Swappairsofwords.

　　◎Test方法

　　Test方法对指定的字符串执行一个正则表达式搜索，并返回一个Boolean值指示是否找到匹配的模式。
　　语法
object.Test(string)
　　语法部分描述
object必需的。总是一个RegExp对象的名称。
string必需的。要执行正则表达式搜索的文本字符串。

说明
　　正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。
　　如果找到了匹配的模式，Test方法返回True；否则返回False。

　　Test方法的用法：
RegExpTest(patrn,strng)
DimregEx,retVal'建立变量。
SetregEx=NewRegExp'建立正则表达式。
regEx.Pattern=patrn'设置模式。
regEx.IgnoreCase=False'设置是否区分大小写。
retVal=regEx.Test(strng)'执行搜索测试。
IfretValThen
RegExpTest="找到一个或多个匹配。"
Else
RegExpTest="未找到匹配。"
EndIf
End

MsgBox(RegExpTest("is.","IS1is2IS3is4"))

00000