Dim Matches,Match,re
Set re=new RegExp 'creates a new regexp object
s="you are 33 a ee7"
re.Global = True '完全匹配
re.pattern="/d+"
set Matches=re.execute(s)
For each Match in Matches
msgbox "value is"& Match.value
Next
Dim Matches,Match,re
Set re=new RegExp 'creates a new regexp object
s="you are 33 a ee7"
re.Global = True '完全匹配
re.pattern="/d+"
set Matches=re.execute(s)
For each Match in Matches
msgbox "value is"& Match.value
Next