Common replacement Functions
Copy codeThe Code is as follows: public function HighLight (S, F)
Dim tL, tM, tR, k
TL = ""
TM = ""
TR = S
K = instr (1, tR, F, 1)
Do while k> 0
TL = tL & left (tR, k-1)
TM = mid (tR, k, len (F ))
TL = tL & "<span style = 'color: red'>" & tM & "</span>"
TR = right (tR, Len (tR)-len (F)-k + 1)
K = instr (1, tR, F, 1)
Loop
HighLight = tL & tR
End function
TS = "abcabcabcabcabcabcabca"
TF = "bc"
Response. Write (tS)
Response. Write ("<br/> ")
Response. Write (HighLight (tS, tF ))
Regular Expression
Copy codeThe Code is as follows: Function HighLight (S, F)
Dim regEx
Set regEx = New RegExp
RegEx. IgnoreCase = True
RegEx. Global = True
RegEx. Pattern = "(" & F &")"
HighLight = regEx. Replace (S, "<span style = 'color: red'> $1 </span> ")
End Function
Response. write HighLight ("abcaBcabCaBCabcaBCa", "bc ")
