【软件自动化测试-QTP实战技能 21】== QTP_use RegExp 匹配numbers

 

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