正则表达式验证电话号码，邮箱，IP地址等，包含大量的实例

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

实验报告