（原创）检测字符串是否包含有数字

作者：xiaoxiao
发表时间：2020-12-23 11:00
来源：未知

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