Я столкнулся с этой проблемой сегодня. Простое использование функции замены не поможет. Она изменит регистр исходной строки. Найдите соответствующий код в Интернете и создайте его резервную копию.
Обычная функция замены
Скопируйте код кода следующим образом:
публичная функция HighLight(S,F)
дим tL,tM,tR,k
тЛ=""
тМ=""
tR=S
k=инстр(1,tR,F,1)
делать, пока k>0
tL=tL и влево(tR,k-1)
tM=mid(tR,k,len(F))
tL=tL & "<span>" & tM & "</span>"
tR=вправо(tR,Len(tR)-len(F)-k+1)
k=инстр(1,tR,F,1)
петля
HighLight=tL и tR
конечная функция
tS="abcaBcabCaBCabcaBCa"
tF="BC"
ответ.Запись(ТС)
ответ.Write("<br/>")
ответ.Запись(HighLight(tS,tF))
регулярное выражение
Скопируйте код кода следующим образом:
Функция HighLight(S,F)
Тусклое регулярное выражение
Установить регулярное выражение = Новое регулярное выражение
regEx.IgnoreCase = Истина
regEx.Global = Истина
regEx.Pattern = "(" & F & ")"
HighLight = regEx.Replace(S,"<span>$1</span>")
Конечная функция
Response.write HighLight("abcaBcabCaBCabcaBCa","bc")