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

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

update : 2006/12/15
感謝"循獻"訂正!