'=================================================='正则表达式'===================================================
'常用正则表达式模式const z_Pat1="^/w+$" '匹配有字母，数字，下滑线组成的字符串const z_PatSW="^[/x00-/xff]+$" '匹配所有单字节长度的字符组成的字符串const z_PatDW="^[^/x00-/xff]+$" '匹配所有双字节长度的字符组成的字符串const z_PatDW2="[^/x00-/xff]+" '字符串是否含有双字节字const z_PatFileName1="^((/w+)(/.{1})(/w+))$" '验证一个文件名，他是由字母，数字，下滑线组成const z_PatDate1="^19/d{2}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1])))$" '匹配日期(1900-1999)const z_PatDate2="^20/d{2}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1])))$" '匹配日期(2000-2999)const z_PatternDateTime="^(1|2/d{3}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1]))))( (/d{2}):(/d{2}):(/d{2}))?$" '匹配日期时间
const z_PatInt="^/d+$" '验证整数数字const z_PatNum="^/d+(/.{1}/d+)?$" '数字
'验证指定的字符串是否符合指定的模式'利用正则表达式 function CheckPattern(str,pat) set r=new regexp r.Pattern=pat r.IgnoreCase=false r.Global=false if r.Test(str) then CheckPattern=true else CheckPattern=false end if end function
