高亮字符串中的关键字

'==========================================================
'函数名：Highlight
'作 
用：标记高亮关键字，不区分大小写
'参 
数：strContent 
-----字符串
' 
 
keyword 
-----关键字
'返回值：高亮字符串中的关键字
'==========================================================
Function Highlight(strContent,keyword)
 
Dim RegEx
 
Set RegEx=new RegExp
 
RegEx.IgnoreCase =True '不区分大小写
 
RegEx.Global=True
 
Dim ArrayKeyword,i
 
ArrayKeyword = Split(keyword,"
"
)'用空格隔开的多关键字
 
For i=0 To Ubound(ArrayKeyword)
 
 
RegEx.Pattern="
("
&
ArrayKeyword(i)&
"
)"

 
 
strContent=RegEx.Replace(strContent,"
<
font color=red>
$1<
/font>
"
)
 
Next
 
Set RegEx=Nothing
 
Highlight=strContent
End Function