Function CheckExp(patrn)
PRIVATE cStr
cStr=patrn
regEx = CreateObject("VBScript.RegExp") &&建立正则表达式对象
*!* regEx.Pattern = "^(?=.*\d)(?=.*[a-z])[a-zA-Z\d]{6,20}$" &&设置模式由数字或字母组成
regEx.Pattern="^(?!0(\d|\.0+$|$))\d+(\.\d{1,2})?$"
*!* regEx.Pattern="^[A-Za-z0-9]+$" &&设置模式只能由数字或字母组成
regEx.IgnoreCase = .T. &&设置是否区分字符大小写
regEx.Global = .T. &&设置全局可用性
*!* Return regEx.Test(strng) &&执行搜索
RETURN regEx.Test(cStr)
ENDFUNC
