复制代码代码如下:
'ReemplazarpaternwithhighlightDedReplacation (usandostyle) y preservescase
PublicFunctionHighlight (strText, strfind)
Dimobjregexp, i, strhighlight
'SplitTheSearchtermsInToanArray
Dimarrfind
arrfind = split (strfind, "")
'InitializeSeGULEAREXPressionObjectToperfOmTheSearch
Dimomatches, Smatch
Setoregexp = newegexp
OREGEXP.GLOBAL = True'ReturnSallMatchStotheSearch Term
OREGEXP.IGNORECASE = True'CaseInsensitive
'LoopthroughThearRayOfSearchterStofIndMatches
Fori = 0toUbound (arrfind)
Oregexp.pattern = arrfind (i) 'setStheSearchPatternString
Setomatches = OreGexp.Execute (strText) '// PerformSthesearch
foreachmatchinomatches
'BuildThecodetObeSeuseuseToHighLightresults
strhighlight = "<spanclass =" "resaltar" ">" & match.value & "</span>"
próximo
'ReplacEMatchesFromTheSearchWithTheBoVecode
strtext = Oregexp.replace (strtext, strhighlight)
Próximo
destacado = strtext
Setobjregexp = nada
Función final