function regexptest(patrn, strng) dim regex, matches set regex = new regexp regex.pattern = patrn regex.ignorecase = true ‘为真则忽略大小写,否则严格匹配大小写 regex.global = true set matches = regex.execute(strng) regexptest = matches.count end function msgbox(regexptest("is.", "is1 is2 is3 is4"))