Encontré este problema hoy. Simplemente usar la función de reemplazo no funcionará. Cambiará el caso de la cadena original. Busque el código relevante en Internet y haga una copia de seguridad.
Función de reemplazo ordinaria
Copie el código de código de la siguiente manera:
función pública Resaltar(S,F)
tenue tL,tM,tR,k
tL=""
tM=""
tR=S
k=instr(1,tR,F,1)
hacer mientras k>0
tL=tL & izquierda(tR,k-1)
tM=medio(tR,k,len(F))
tL=tL & "<span>" & tM & "</span>"
tR=derecha(tR,Len(tR)-len(F)-k+1)
k=instr(1,tR,F,1)
bucle
Resaltado=tL y tR
función final
tS="abcaBcabCaBCabcaBCa"
tF="bc"
respuesta.Escribir(tS)
respuesta.Escribir("<br/>")
respuesta.Escribir(Resaltar(tS,tF))
expresión regular
Copie el código de código de la siguiente manera:
Función resaltada (S,F)
expresión regular tenue
Establecer expresión regular = nueva expresión regular
regEx.IgnoreCase = Verdadero
regEx.Global = Verdadero
regEx.Patrón = "(" & F & ")"
Resaltado = regEx.Replace(S,"<span>$1</span>")
Función final
Respuesta.escribir resaltado("abcaBcabCaBCabcaBCa","bc")