正则表达式匹配函数

关键词:正则表达式匹配函数,如何使用正则表达式



Function isMatchString(str,reg)

dim matches,objregEx

set objregEx = new RegExp

objregEx.IgnoreCase = true

objregEx.Global = true

objregEx.Pattern = reg

set matches = objregEx.execute(str)

IF matches.count>0 Then

isMatchString = True

Else

isMatchString = False

End IF

End Function