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
原文地址:https://www.jb51.cc/vb/256413.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。