用正则表达式突出显示字符串中查询到的单词的函数

圧(windows script 5.丵谋謃郕輚?

function boldword(strcontent,word)

dim objregexp

set objregexp=new regexp

objregexp.ignorecase =true

objregexp.global=true

objregexp.pattern="(" & word & ")"

strcontent=objregexp.replace(strcontent,"<font color=""#ff0000"">$1</font>" )

set objregexp=nothing

boldword=strcontent

end function