复制代码代码如下::
'ErsetztesspatternwithHighlightedreplacement (usedyle) und Preservescase
PublicFunctionHighlight (Strtext, Strfind)
Dimobjregexp, ich, strhoighlight
'SplitSearchtermSintoanArray
Dimarrfind
arrfind = split (strfind, "")
'InitializeTheregularexpressionObjecttoperFomTheSearch
Dimomatches, Smatch
SetoreExp = newRegExp
oregexp.global = true'returnsAllMatchestothsearchterm
oregexp.ignorecase = true'caseInemsitiv
'LoophroughThearrayofSearchtermstofMatches
Fori = 0Toubund (arrfind)
oreGexp.Pattern = arrfind (i) 'setsTheSearchPatternString
SetOMatches = oregexp.execute (strText) '// führe die Studie aus
foreachMatchinomatches
'BuildtheCodetoBousedtoHighlightresults
Strhighlight = "<spancklass =" "Highlight" ">" & match.value & "</span>"
nächste
'ErsatzEmpates von der Suche mit demTheaboveCode
Strtext = Oregexp.Replace (Strtext, Strhoighlight)
Nächste
Highlight = Strtext
SetObjregexp = nichts
Endfunktion