转自放飞梦想

和JK Zhang 的专栏

引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了。主要有三个对象：RegExp、MatchCollection、Match。

VBA 中使用正则表达式

Dim objRegExp As Object Set objRegExp = CreateObject("vbscript.regexp") objRegExp.Pattern = "H...o" '正则表达式 objRegExp.IgnoreCase = True '忽略大小写 objRegExp.Test("Hello") '要匹配的字符

RegExp

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

属性

Pattern：一个字符串，用来定义正则表达式。

IgnoreCase：一个布尔值属性，指示是否必须对一个字符串中的所有可能的匹配进行正则表达式测试。这是MS的解释，有点费解，实际使用中的实例是，如果True，则忽略英文字母大小的匹配，False对大小写进行匹配。

Global：设置一个布尔值或返回一个布尔值，该布尔值指示一个模式是必须匹配整个搜索字符串中的所有搜索项还是只匹配第一个搜索项。

MultiLine：这个MS没有介绍。查了一下资料，设置一个布尔值或返回一个布尔值，是否在串的多行中搜索。如果允许匹配多行文本，则multiline为true，如果搜索必须在换行时停止，则为false 。

方法

Execute：返回一个 MatchCollection 对象，该对象包含每个成功匹配的 Match 对象。

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

RegExp的Test方法

Function bTest(ByVal s As String,ByVal p As String) As Boolean Dim re As RegExp Set re = New RegExp re.IgnoreCase = False　'设置是否匹配大小写 re.Pattern = p bTest = re.Test(s) End Function Private Sub Command1_Click() Dim s As String Dim p As String s = "我的邮箱: test@163.com 。欢迎致电！" '测试字符串中是否包含数字： p = "/d+" MsgBox bTest(s,p) '测试字符串中是否全是由数字组成： p = "^/d+$" MsgBox bTest(s,p) '测试字符串中是否有大写字母： p = "[A-Z]+" MsgBox bTest(s,p) End Sub

RegExp的Replace方法

Function StrReplace(s As String,p As String,r As String) As String Dim re As RegExp Set re = New RegExp re.IgnoreCase = True re.Global = True re.Pattern = p StrReplace = re.Replace(s,r) End Function Private Sub Command2_Click() Dim s As String '字符串 Dim p As String '正则表达式 Dim r As String '要替换的字符串 　　'以下代码是替换邮箱地址 s = "我的E-mail: Test@163.com 。欢迎致电!" p = "w+@w+.w+" r = "E_Mail@sohu.net" s = StrReplace(s,p,r) Debug.Print s '结果：我的E-mail: E_Mail@sohu.net 。欢迎致电! End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!