[转载]VB6.0如何使用正则表达式

引用了MicrosoftVBScriptRegularExpressions5.5后就可以声明正则相关对象了。主要有三个对象：RegExp、MatchCollection、Match。

1.RegExp这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给RegExp实例的字符串的模式。其提供的方法以确定字符串是否与正则表达式的特定模式相匹配。

属性：
Pattern：一个字符串，用来定义正则表达式。
IgnoreCase：一个布尔值属性，指示是否必须对一个字符串中的所有可能的匹配进行正则表达式测试。这是MS的解释，有点费解，实际使用中的实例是，如果True，则忽略英文字母大小的匹配，False对大小写进行匹配。
Global：设置一个布尔值或返回一个布尔值，该布尔值指示一个模式是必须匹配整个搜索字符串中的所有搜索项还是只匹配第一个搜索项。
MultiLine：这个MS没有介绍。查了一下资料，设置一个布尔值或返回一个布尔值，是否在串的多行中搜索。如果允许匹配多行文本，则multiline为true，如果搜索必须在换行时停止，则为false。

方法：
Execute：返回一个MatchCollection对象，该对象包含每个成功匹配的Match对象。
Replace：MS没有介绍，这是返回一个将匹配字符替换为指定字符的字符串。
Test：返回一个布尔值，该值指示正则表达式是否与字符串成功匹配。

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

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

3.Match是成功匹配的对象。

属性：
FirstIndex：匹配对象所匹配字符串的起始位置。
Length：匹配对象所匹配字符串的字符长度。
SubMatches：匹配对象所匹配结果的子项。
Value：匹配对象所匹配的值。

相关示例参照MS的网站：http://support.microsoft.com/kb/818802/zh-cn。MS上没有介绍的几个属性和方法的使用，见下面的几个简单示例：1.RegExp的Test方法：

1.RegExp的Test方法：

FunctionbTest(ByValsAsString,ByValpAsString)AsBoolean
DimreAsRegExp
Setre=NewRegExp
re.IgnoreCase=False'设置是否匹配大小写
re.Pattern=p
bTest=re.Test(s)
EndFunction

PrivateSubCommand1_Click()

DimsAsString
DimpAsString

s="我的邮箱:test@163.com。欢迎致电！"

'测试字符串中是否包含数字：
p="d+"
MsgBoxbTest(s,p)

'测试字符串中是否全是由数字组成：
p="^d+$"
MsgBoxbTest(s,p)

'测试字符串中是否有大写字母：
p="[A-Z]+"
MsgBoxbTest(s,p)

EndSub

2.RegExp的Replace方法：

FunctionStrReplace(sAsString,pAsString,rAsString)AsString

DimreAsRegExp
Setre=NewRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern=p
StrReplace=re.Replace(s,r)

EndFunction

PrivateSubCommand2_Click()

DimsAsString'字符串
DimpAsString'正则表达式
DimrAsString'要替换的字符串

'以下代码是替换邮箱地址

s="我的E-mail:Test@163.com。欢迎致电!"
p="w+@w+.w+"
r="E_Mail@sohu.net"
s=StrReplace(s,p,r)
Debug.Prints
'结果：我的E-mail:E_Mail@sohu.net。欢迎致电!

EndSub
3.Match的SubMatches属性：

PrivateSubCommand3_Click()

DimreAsRegExp
DimmhAsMatch
DimmhsAsMatchCollection
DiminpStrAsString

inpStr="我的E-mail:lucky@163.com。欢迎致电!"
Setre=NewRegExp
re.Pattern="(w+)@(w+).(w+)"'同样是匹配地址，注意和上例的不同
Setmhs=re.Execute(inpStr)
Setmh=mhs(0)'只有一个匹配

Debug.Print"电子邮件地址是："&mh.Value'这里是匹配的内容
Debug.Print"用户名是："&mh.SubMatches(0)'第一个括号中的内容
Debug.Print"邮箱是："&mh.SubMatches(1)'第二个括号中的内容
Debug.Print"域名是："&mh.SubMatches(2)'第三个括号中的内容

EndSub