'/*================================================
'/*函数作用:判断字符串是否包含有数字
'/*函数参数:Str=要检测的字符串
'/*返回值:True=包含有数字 False=没有包含有数字
'/*说明:使用正则表达式的"/d"来测试有没有数字
'/*================================================
Function HasNumber(Str)
Dim Reg,Matches
Set Reg=New RegExp
Reg.IgnoreCase=True
Reg.Global=True
Reg.Pattern="/d"
Set Matches=Reg.Execute(Str)
If Matches.Count>0 Then
HasNumber=True
Else
HasNumber=False
End If
Set Matches=Nothing
Set Reg=Nothing
End Function
'/*函数作用:判断字符串是否包含有数字
'/*函数参数:Str=要检测的字符串
'/*返回值:True=包含有数字 False=没有包含有数字
'/*说明:使用正则表达式的"/d"来测试有没有数字
'/*================================================
Function HasNumber(Str)
Dim Reg,Matches
Set Reg=New RegExp
Reg.IgnoreCase=True
Reg.Global=True
Reg.Pattern="/d"
Set Matches=Reg.Execute(Str)
If Matches.Count>0 Then
HasNumber=True
Else
HasNumber=False
End If
Set Matches=Nothing
Set Reg=Nothing
End Function