前端之家收集整理的这篇文章主要介绍了
VB/VBA 正则表达式的使用方法,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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