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

正则表达式(Regular Expression),常被用来检验、替换符合某个模式(规则)的字符串,在代码中常缩写为regexp。
VBA中并没有直接提供正文表达式对象,需要借助VBScript的正则对象。如果使用前期绑定,那么就需要在VBE中引用如下扩展库。
VBA之正则表达式(1)-- 基础篇_第1张图片
也可以使用后期绑定的方式创建正则对象,代码如下。

Set objRegEx = CreateObject("vbscript.regexp")

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

属性 说明 方法 说明
Global Boolean值,指明单次匹配或者全部匹配 Execute 将正则模式应用于字符串,并返回Matchs集合
IgnoreCase Boolean值,指明匹配模式是否大小写敏感 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中正则应用实例。


相关博文链接:
VBA之正则表达式(1)-- 基础篇
VBA之正则表达式(2)-- 批量修改公式
VBA之正则表达式(3)-- 特殊公式计算
VBA之正则表达式(4)-- 提取日期和金额
VBA之正则表达式(5)-- 中文字符
VBA之正则表达式(6)-- 设置音标格式
VBA之正则表达式(7)-- 乾坤大挪移(数据整理)
VBA之正则表达式(8)-- 重复字符分组
VBA之正则表达式(9)-- 添加千分位(1/3)
VBA之正则表达式(10)-- 添加千分位(2/3)
VBA之正则表达式(11)-- 添加千分位(3/3)

你可能感兴趣的:(VBA,Excel,正则)