1.写好正则表达式,在数据截取处理中是十分有优势的,以下举几个例子来学习一下正则表达式的用法
Option Explicit
Public Function getnum2(str As String)
With CreateObject("VBScript.RegExp")
.Global = False '全局匹配
.Pattern = "\d+" '正则表达式,匹配数字
If .Test(str) Then '先进行测试,匹配的话就执行,不匹配的话就返回空值
getnum2 = .Execute(str)(0)
Else
getnum2 = ""
End If
End With
End Function
Public Function getnum3(str As String)
With CreateObject("VBScript.RegExp")
.Global = False '全局匹配
.Pattern = "[a-zA-Z]+" '正则表达式,匹配字母
If .Test(str) Then '先进行测试,匹配的话就执行,不匹配的话就返回空值
getnum3 = .Execute(str)(0)
Else
getnum3 = ""
End If
End With
End Function
Public Function getnum4(str As String)
With CreateObject("VBScript.RegExp")
.Global = False '全局匹配
.Pattern = "[\u4e00-\u9fa5]+" '正则表达式,匹配汉字
If .Test(str) Then '先进行测试,匹配的话就执行,不匹配的话就返回空值
getnum4 = .Execute(str)(0) '正则表达式
Else
getnum4 = ""
End If
End With
End Function
Public Function getnum4(str As String)
With CreateObject("VBScript.RegExp")
.Global = False '全局匹配
.Pattern = "\w+@[a-zA-Z]+\.[a-zA-Z]{2,3}" '正则表达式,匹配邮箱
If .Test(str) Then '先进行测试,匹配的话就执行,不匹配的话就返回空值
getnum4 = .Execute(str)(0) '正则表达式
Else
getnum4 = ""
End If
End With
End Function
2.我们来测试一下上面的函数,在Excel表中使用该函数即可,其效果如下面所示