'==========================================================
'函數名: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