VBScript中使用正則表達式(RegExp)

'檢查字串是否為英文與數字所組成的
function IsEngNum(strChk)

dim objRe
set objRe = New RegExp
'設定正則式
objRe.Pattern = "^[A-Za-z0-9]$"
'如果符合就傳回true , 不符合就傳回false
IsEngNum = objRe.Test(strChk)
set objRE = nothing

end function