搜索关键字加粗函数代码

作者:网络 来源:佚名 更新时间:2008-01-17 23:47:41 点击:

一个用正则表达式突出显示字符串中查询到的单词的函数,精简实用!

public function boldword(strcontent,word)
if word="" then
boldword = strcontent
exit function
end if
dim objregexp
set objregexp=new regexp
objregexp.ignorecase =true
objregexp.global=true

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

set objregexp=nothing
boldword=strcontent
end function