'驗證手機號碼
function IsValidMobileNo(MobileNo)
dim regEx
set regEx = New RegExp
regEx.Pattern = "^(130|131|132|133|134|135|136|137|138|139|159)/d{8}$"
IsValidMobileNo=regEx.test(MobileNo)
end function
'正則表表達式驗證函數 patrn-正則表達式 strng-需要驗證的字符串
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立變量。
Set regEx = New RegExp ' 建立正則表達式。
regEx.Pattern = patrn ' 設置模式。
regEx.IgnoreCase = False ' 設置是否區分大小寫。
retVal = regEx.Test(strng) ' 執行搜索測試。
RegExpTest = retVal '返回不爾值,不符合就返回false,符合爲true
End Function