复制代码代码如下:
'replacespatternwithhighlightedreplacement (ใช้ Style) และ PRESERVESCASE
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) 'setTheSearchPatternstring
setOmatches = oregexp.execute (strext) '// performthesearch
foreachmatchinomatches
'buildthecodetobeusedtohighlightresults
strhighlight = "<spanclass =" "ไฮไลต์" ">" & match.value & "</span>"
ต่อไป
'ReplacematchesFromTheSearchWithTheBoveCode
strtext = oregexp.replace (strtext, strhighlight)
ต่อไป
ไฮไลต์ = strtext
setObjregexp = ไม่มีอะไร
endfunction