*******************************************************************
'函数说明:正则表达式判断某字符串是否匹配
'参数1,Exist_String:需要判断的字符串
'参数2,Reg_Pattern:正则表达式字符串
'返回值:匹配正则表达式字符串则返回"true",否则返回false
'*******************************************************************
Function Exist_Reg(Exist_String,Reg_Pattern)
Dim re
Set re = New RegExp
re.Pattern = Reg_Pattern
Exist_Reg=re.test(Exist_String)
end Function