ไฮไลต์รูปแบบภายในสตริง

复制代码代码如下:

'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