VBA之正则表达式(1)– 基础篇

正则表达式(Regular Expression),常被用来检验、替换符合某个模式(规则)的字符串,在代码中常缩写为regexp。

VBA中并没有直接提供正文表达式对象,需要借助VBScript的正则对象。如果使用前期绑定,那么就需要在VBE中引用如下扩展库:

VBA之正则表达式(1)-- 基础篇

也可以使用后期绑定的方式创建正则对象,代码如下。

Set objRegEx = CreateObject(“vbscript.regexp”)

正则对象有四个属性和三个方法。

VBA之正则表达式(1)-- 基础篇
假设待处理的文本如下,现需要提取其中的姓名汉字和电话数字。

Name:张三丰,Phone:13801380000

示例代码如下。

Sub RegExpDemoSyntax()
Dim objRegEx As Object
Set objRegEx = CreateObject(“vbscript.regexp”)
objRegEx.Pattern = “Name:(.*?),Phone:(d+)”
objRegEx.Global = True
myString = “Name:张三丰,Phone:13801380000”
Set objMH = objRegEx.Execute(myString)
If objMH.Count > 0 Then
With objMH(j)
Debug.Print .submatches(0), .submatches(1)
End With
End If
Set objRegEx = Nothing
End Sub

代码在立即窗口输出结果如下:

张三丰 13801380000

由示例可以看到正则对象的属性和方法并不复杂,也可以说too simple。但是想用好正则就不是那么简单的事情,其核心在于如何编写正确高效的正则匹配模式,即设置Pattern参数。

未经允许不得转载:飞鹰图表 » VBA之正则表达式(1)– 基础篇
分享到:

评论抢沙发

评论前必须登录!