VBA 正则表达式
'正则
Function RegExp(text As String, reg As String) As String
Dim mRegExp As Object '正则表达式对象
Dim mMatches As Object '匹配字符串集合对象
Dim mMatch As Object '匹配字符串
RegExp = ""
Set mRegExp = CreateObject("Vbscript.Regexp")
With mRegExp
.Global = True 'True表示匹配所有, False表示仅匹配第一个符合项
.IgnoreCase = True 'True表示不区分大小写, False表示区分大小写
.Pattern = reg '匹配字符模式 ".*[款].*[号][\d]+[、](.*)"
Set mMatches = .Execute(text) '执行正则查找,返回所有匹配结果的集合,若未找到,则为空
For Each mMatch In mMatches
If (Not mMatch.SubMatches(0) = "") Then
RegExp = Trim(mMatch.SubMatches(0))
End If
Next
End With
Set mRegExp = Nothing
Set mMatches = Nothing
End Function
相关文章
- 全面解读php-正则表达式
- MVC的验证(模型注解和非侵入式脚本的结合使用) .Net中初探Redis .net通过代码发送邮件 Log4net (Log for .net) 使用GDI技术创建ASP.NET验证码 Razor模板引擎 (RazorEngine) .Net程序员应该掌握的正则表达式
- 正则表达式零宽断言详解(?=,?<=,?!,?<!)
- 正则表达式
- 正则表达式入门(八)环视
- CSDN日报190801:如何高效学习正则表达式
- js 正则表达式 exec 和 match的使用
- Oracle 正则表达式
- Java经典实例:在正则表达式中控制大小写
- Java正则表达式入门
- Excel VBA教程之如何在功能区中显示 Excel 开发人员选项卡,启用vba(教程含源码)
- Java之正则表达式
- Java 正则表达式
- 正则表达式快速掌握包括贪婪与懒惰匹配
- VBA 正则表达式