版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明。
版权
VBA同时被 3 个专栏收录
158 篇文章14 订阅
订阅专栏
126 篇文章2 订阅
订阅专栏
25 篇文章4 订阅
订阅专栏
正则表达式(Regular Expression),常被用来检验、替换符合某个模式(规则)的字符串,在代码中常缩写为regexp。
VBA中并没有直接提供正文表达式对象,需要借助VBScript的正则对象。如果使用前期绑定,那么就需要在VBE中引用如下扩展库。
也可以使用后期绑定的方式创建正则对象,代码如下。
Set objRegEx = CreateObject("vbscript.regexp")
正则对象有四个属性和三个方法。

属性说明方法说明
GlobalBoolean值,指明单次匹配或者全部匹配Execute将正则模式应用于字符串,并返回Matchs集合
IgnoreCaseBoolean值,指明匹配模式是否大小写敏感Replace替换正则模式匹配的文本
Pattern指定用于搜索的正则模式Test对字符串执行正则匹配,返回Boolean值说明匹配是否成功
Multiline指定的搜索字符串分布在多行

待处理的文本如下,现需要提取其中的姓名汉字和电话数字。
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参数。
在接下来的几篇博客中将介绍一些Excel中正则应用实例。
相关博文链接: