VB6.0如何使用正则表达式-收藏

最近在用VB6解决一个网页解析的应用，涉及到了正则。如何在VB6中使用正则表达式，这个在MS网站上有介绍，不过介绍的不是很全面。下面结合MS网站的内容和搜索到的东西，自己汇总一下。引用了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的网站：。MS上没有介绍的几个属性和方法的使用，见下面的几个简单示例：1.RegExp的Test方法：FunctionbTest(ByValsAsString,ByValpAsString)AsBooleanDimreAsRegExpSetre=NewRegExpre.IgnoreCase=False'设置是否匹配大小写re.Pattern=pbTest=re.Test(s)EndFunctionPrivateSubCommand1_Click()DimsAsStringDimpAsStrings=我的邮箱:[e-mail]。欢迎致电！'测试字符串中是否包含数字：p=\d+MsgBoxbTest(s,p)'测试字符串中是否全是由数字组成：p=^\d+$MsgBoxbTest(s,p)'测试字符串中是否有大写字母：p=[A-Z]+MsgBoxbTest(s,p)EndSub2.RegExp的Replace方法：FunctionStrReplace(sAsString,pAsString,rAsString)AsStringDimreAsRegExpSetre=NewRegExpre.IgnoreCase=True'区分大小写re.Global=Truere.Pattern=pStrReplace=re.Replace(s,r)EndFunctionPrivateSubCommand2_Click()DimsAsString'字符串DimpAsString'正则表达式DimrAsString'要替换的字符串'以下代码是替换邮箱地址s=我的E-mail:[e-mail]。欢迎致电!p=\w+@\w+.\w+r=[e-mail]=StrReplace(s,p,r)Debug.Prints'结果：我的E-mail:[e-mail]。欢迎致电!EndSub3.Match的SubMatches属性：PrivateSubCommand3_Click()DimreAsRegExpDimmhAsMatchDimmhsAsMatchCollectionDiminpStrAsStringinpStr=我的E-mail:[e-mail]。欢迎致电!Setre=NewRegExpre.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本文来自CSDN博客，转载请标明出处：正则表达式中全部符号解释5.全部符号解释字符描述\将下一个字符标记为一个特殊字符、或一个原义字符、或一个向后引用、或一个八进制转义符。例如，'n'匹配字符n。'\n'匹配一个换行符。序列'\\'匹配\而\(则匹配(。^匹配输入字符串的开始位置。如果设置了RegExp对象的Multiline属性，^也匹配'\n'或'\r'之后的位置。$匹配输入字符串的结束位置。如果设置了RegExp对象的Multiline属性，$也匹配'\n'或'\r'之前的位置。*匹配前面的子表达式零次或多次。例如，zo*能匹配z以及zoo。*等价于{0,}。+匹配前面的子表达式一次或多次。例如，'zo+'能匹配zo以及zoo，但不能匹配z。+等价于{1,}。?匹配前面的子表达式零次或一次。例如，do(es)?可以匹配do或does中的do。?等价于{0,1}。{n}n是一个非负整数。匹配确定的n次。例如，'o{2}'不能匹配Bob中的'o'，但是能匹配food中的两个o。{n,}n是一个非负整数。至少匹配n次。例如，'o{2,}'不能匹配Bob中的'o'，但能匹配foooood中的所有o。'o{1,}'等价于'o+'。'o{0,}'则等价于'o*'。{n,m}m和n均为非负整数，其中n=m。最少匹配n次且最多匹配m次。例如，o{1,3}将匹配fooooood中的前三个o。'o{0,1}'等价于'o?'。请注意在逗号和两个数之间不能有空格。?当该字符紧跟在任何一个其他限制符(*,+,?,{n},{n,},{n,m})后面时，匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串，而默认的贪婪模式则尽可能多的匹配所搜索的字符串。例如，对于字符串oooo，'o+?'将匹配单个o，而'o+'将匹配所有'o'。.匹配除\n之外的任何单个字符。要匹配包括'\n'在内的任何字符，请使用象'[.\n]'的模式。(pattern)匹配pattern并获取这一匹配。所获取的匹配可以从产生的Matches集合得到，在VBScript中使用SubMatches集合，在JScript中则使用$0…$9属性。要匹配圆括号字符，请使用'\('或'\)'。(?:pattern)匹配pattern但不获取匹配结果，也就是说这是一个非获取匹配，不进行存储供以后使用。这在使用或字符(|)来组合一个模式的各个部分是很有用。例如，'industr(?:y|ies)就是一个比'industry|industries'更简略的表达式。(?=pattern)正向预查，在任何匹配pattern的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如，'Windows(?=95|98|NT|2000)'能匹配Windows2000中的Windows，但不能匹配Windows3.1中的Windows。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始。(?!pattern)负向预查，在任何不匹配pattern的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如'Windows(?!95|98|NT|2000)'能匹配Windows3.1中的Windows，但不能匹配Windows2000中的Windows。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始x|y匹配x或y。例如，'z|food'能匹配z或food。'(z|f)ood'则匹配zood或food。[xyz]字符集合。匹配所包含的任意一个字符。例如，'[abc]'可以匹配plain中的'a'。[^xyz]负值字符集合。匹配未包含的任意字符。例如，'[^abc]'可以匹配plain中的'p'。[a-z]字符范围。匹配指定范围内的任意字符。例如，'[a-z]'可以匹配'a'到'z'范围内的任意小写字母字符。[^a-z]负值字符范围。匹配任何不在指定范围内的任意字符。例如，'[^a-z]'可以匹配任何不在'a'到'z'范围内的任意字符。\b匹配一个单词边界，也就是指单词和空格间的位置。例如，'er\b'可以匹配never中的'er'，但不能匹配verb中的'er'。\B匹配非单词边界。'er\B'能匹配verb中的'er'，但不能匹配never中的'er'。\cx匹配由x指明的控制字符。例如，\cM匹配一个Control-M或回车符。x的值必须为A-Z或a-z之一。否则，将c视为一个原义的'c'字符。\d匹配一个数字字符。等价于[0-9]。\D匹配一个非数字字符。等价于[^0-9]。\f匹配一个换页符。等价于\x0c和\cL。\n匹配一个换行符。等价于\x0a和\cJ。\r匹配一个回车符。等价于\x0d和\cM。\s匹配任何空白字符，包括空格、制表符、换页符等等。等价于[\f\n\r\t\v]。\S匹配任何非空白字符。等价于[^\f\n\r\t\v]。\t匹配一个制表符。等价于\x09和\cI。\v匹配一个垂直制表符。等价于\x0b和\cK。\w匹配包括下划线的任何单词字符。等价于'[A-Za-z0-9_]'。\W匹配任何非单词字符。等价于'[^A-Za-z0-9_]'。\xn匹配n，其中n为十六进制转义值。十六进制转义值必须为确定的两个数字长。例如，'\x41'匹配A。'\x041'则等价于'\x04'&1。正则表达式中可以使用ASCII编码。.\num匹配num，其中num是一个正整数。对所获取的匹配的引用。例如，'(.)\1'匹配两个连续的相同字符。\n标识一个八进制转义值或一个向后引用。如果\n之前至少n个获取的子表达式，则n为向后引用。否则，如果n为八进制数字(0-7)，则n为一个八进制转义值。\nm标识一个八进制转义值或一个向后引用。如果\nm之前至少有nm个获得子表达式，则nm为向后引用。如果\nm之前至少有n个获取，则n为一个后跟文字m的向后引用。如果前面的条件都不满足，若n和m均为八进制数字(0-7)，则\nm将匹配八进制转义值nm。\nml如果n为八进制数字(0-3)，且m和l均为八进制数字(0-7)，则匹配八进制转义值nml。\un匹配n，其中n是一个用四个十六进制数字表示的Unicode字符。例如，\u00A9匹配版权符号(?)。