Set re = New RegExp
re.Pattern ="\d{1,2}"
Set reUtil=re.Execute(vString) 'vstring就是输入的字符串
If reUtil.Count=0 Then
msgbox "查找的字符串("&vString&")没有任何内容能够匹配规则:\d{1,2}"
End If
HentString=reUtil.item(0)
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |