VB/VBA 正则表达式的使用方法
发布时间:2020-12-16 22:19:22 所属栏目:大数据 来源:网络整理
导读:VBA正则表达式使用 Sub RegularTest() Dim s As String s = "12asd34" Dim myRegExp As Object Dim mMatches As Object Dim mMatch As Object sumValueInText = 0 Set mRegExp = CreateObject("Vbscript.Regexp") With mRegExp .Global = True .IgnoreCase =
VBA正则表达式使用 Sub RegularTest() Dim s As String s = "12asd34" Dim myRegExp As Object Dim mMatches As Object Dim mMatch As Object sumValueInText = 0 Set mRegExp = CreateObject("Vbscript.Regexp") With mRegExp .Global = True .IgnoreCase = True .Pattern = "([0-9])?[.]([0-9])+|([0-9])+" Set mMatches = .Execute(s) For Each mMatch In mMatches sumValueInText = sumValueInText + CDbl(mMatch.Value) Next End With MsgBox sumValueInText Set mRegExp = Nothing Set mMatches = Nothing End Sub 正则表达式规则VBA http://www.51vba.com/show.aspx?page=1&id=4106&cid=0 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |