VB6.0使用正则表达式.doc

如何使用正则表达式最近在用 VB6 解决一个网页解析的应用,涉及到了正则。如何在 VB6 中使用正则表达式,这个在 MS网站上有介绍,不过介绍的不是很全面。下面结合 MS网站的内容和搜索到的东西,自己汇总一下。引用了 Microsoft VBScript Regular Expressions 后就可以声明正则相关对象了。主要有三个对象: 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./kb/818802/ 。MS上没有介绍的几个属性和方法的使用,见下面的几个简单示例: 1. RegExp 的 Test 方法: 1. RegExp 的 Test 方法: Function bTest(ByVal sAsString ,ByVal pAsString )AsBoolean Dim reAsRegExp Set re=New RegExp =False '设置是否匹配大小写 =pbTest =(s) End Function Private mand1_Click() Dim sAsString Dim pAsString s="我的邮箱:test@ 。欢迎致电! " '测试字符串中是否包含数字: p="\d+" MsgBox bTest(s, p) '测试字符串中是否全是由数字组