正则匹配两个字符之间的字符串VBA之正则表达式（1）--基础篇
正则表达式（Regular Expression），常被用来检验、替换符合某个模式(规则)的字符串，在代码中常缩写为regexp。
VBA中并没有直接提供正文表达式对象，需要借助VBScript的正则对象。如果使用前期绑定，那么就需要在VBE中引用如下扩展库:
也可以使用后期绑定的方式创建正则对象，代码如下。
Set objRegEx = CreateObject('p')
正则对象有四个属性和三个方法。
假设待处理的文本如下，现需要提取其中的姓名汉字和电话数字。
Name:张三丰,Phone:138****0000
示例代码如下。
Sub RegExpDemoSyntax()
Dim objRegEx As Object
Set objRegEx = CreateObject('p')
objRegEx.Pattern = 'Name:(.*?),Phone:(\d+)'
objRegEx.Global = True
myString = 'Name:张三丰,Phone:138****0000'
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
代码在立即窗口输出结果如下：
张三丰 138****0000
由示例可以看到正则对象的属性和方法并不复杂，也可以说too simple。但是想用好正则就不是那么简单的事情，其核心在于如何编写正确高效的正则匹配模式，即设置Pattern参数。
在接下来的几篇推文中将介绍一些Excel中正则应用实例
当当、天猫、京东各大商城均有出售

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。