复制代码 代码如下:
'Replacespatternwithhighlightedreplacement(usingstyle)andpreservescase
PublicFunctionhighlight(strText,strFind)
DimobjRegExp,i,strHighlight

'Splitthesearchtermsintoanarray
DimarrFind
arrFind=Split(strFind,"")

'Initializetheregularexpressionobjecttoperfomthesearch
DimoMatches,sMatch
SetoregExp=NewRegExp

oregExp.Global=True'Returnsallmatchestothesearchterm
oregExp.IgnoreCase=True'Caseinsensitive

'Loopthroughthearrayofsearchtermstofindmatches
Fori=0toUBound(arrFind)
oregExp.Pattern=arrFind(i)'Setsthesearchpatternstring
SetoMatches=oregExp.Execute(strText)'//performsthesearch
foreachmatchinoMatches
'Buildthecodetobeusedtohighlightresults
strHighlight="<spanclass=""highlight"">"&match.value&"</span>"
next
'Replacematchesfromthesearchwiththeabovecode
strText=oregExp.Replace(strText,strHighlight)
Next

highlight=strText

SetobjRegExp=Nothing
EndFunction