这个是我以前写的一个加亮函数,里面只要没有html代码还是有效的:
function hightlight(str,key)
arrstr=split(lcase(str),lcase(key))
hstr=""
for i=0 to ubound(arrstr)-1
hstr=hstr&left(str,len(arrstr(i)))
str=mid(str,len(arrstr(i))+1)
hstr=hstr&"<b><font color=red>"&left(str,len(key))&"</font></b>"
str=mid(str,len(key)+1)
next
hstr=hstr&str
hightlight=hstr
end function
其中str是要加亮的串,key是关键字,支持大小写的模糊查找既找Aa,也可以把AA,aa,aA都加亮。