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