Resaltar resultados en buscador.

[choroy]

Hola a todos, estoy tratando de resaltar en los resultados que se me muestran tras hacer una consulta, las palabras buscadas, o sea, las que se han escrito en el buscador.

Lo hago de la siguiente manera:

producto=Replace(producto,palabra,"<b>& quot;&UCase(palabra)&"</b>",1,100,1)

Y me vale, pero ahora tengo curiosidad para saber como hace por ejemplo el buscador "google", que resalta las palabras en su estado original, con sus mayusculas y minusculas en su sitio, he incluso las palabras con acentos.

Si alguien sabe como se puede hacer y me muestra un poco de luz le estaria agradecido.

Un saludo para el foro.

[Juansan]

yo uso esta funcion:

Function resaltar(abuscar,encontrado)
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = encontrado
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(abuscar)
For Each Match in Matches
abuscar = replace(abuscar,Match.Value,"<font color=#0000cc>" & match.value & "</font>")
Next
resaltar = abuscar
End Function

debes definir que es abuscar y encontrado.

abuscar = rs.Fields("localidad")
encontrado = request("calle")

despues aplicas la funcion
Response.Write("<TD align=center>"&resaltar(abuscar,encont rado)&" </TD>")

Espero que te sirva y por favor avisame si funciono.

[choroy]

Muy buenas Juansan, decirte que el código funciona a las mil maravillas. Muchisimas gracias. Aquí te dejo una modificación que le he hecho para que cuando buscas varias palabras, te las resalte todas:

<%
producto=RS("producto")
palabras=Request.Form("palabras")
palabra=split(palabras," ",-1,1)
cantidad_palabras=UBound(palabra)
for c = 0 to cantidad_palabras
abuscar = producto
encontrado = palabra(c)
producto=resaltar(abuscar,encontrado)
next
Response.Write (producto)
%>

Ahora a ver si alguien nos soluciona el tema de los acentos (que yo no hay manera) y se queda todo perfecto.

Otra vez muchas gracias y saludos.