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

最新推荐文章于 2019-05-20 13:46:38 发布

chenyiming2010

最新推荐文章于 2019-05-20 13:46:38 发布

阅读量2.9k

点赞数

文章标签： VB6 正则表达式

本文介绍了在VBA中如何使用正则表达式进行文本匹配与替换操作，包括创建正则表达式对象、设置匹配模式及选项，并通过具体示例展示了如何实现字符串的匹配与替换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

VBA 中使用正则表达式

[vb] view plain copy

print ?

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

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方法

[vb] view plain copy

print ?

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

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方法

[vb] view plain copy

print ?

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

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