Resaltar palabras buscadas

knarfy · #1 (**permalink**) 29/04/2005, 04:41

Hola a todos. Había ya un post con este tema pero no me ha solucionado nada, a ver si ahora se me puede solucionar.

Tengo un buscador en asp y quiero que cuando se muestren los resultados de la búsqueda se muestren las palabras buscadas en otro color o en negrita. Peor no hay manera de conguirlo. Además, está el problema de las mayusculas minusculas, que no sé como hacer para que cuando escriban "Pepe" o "pepe" sean la misma palabra.

A ver si me podeis echar una mano por favor.

Gracias.

Myakire · #2 (**permalink**) 29/04/2005, 07:14

Lo de resaltar palabras pues se implementa una rutina con funciones de cadena que busque (InStr), y si quieres que remplace (Replace("pepe", "pepe")). Y por lo de distinguir entra mayúsculas o minúsculas, pues usas Ucase o LCase al momento de hacer las búsquedas.

knarfy · #3 (**permalink**) 29/04/2005, 08:16

A ver si me entero:
Yo lo que hago es recoger la palabra a buscar de un formulario y lo llamo por ejemplo cadena.

criterio=request.form("criterio")

Luego hago un SQL:
SQL="Select * from mensajes where mensaje like '%"&criterio&"%'"

Vale, y como hago ahora para implementar esa función y para que respete si la palabra en el mensaje empieza por mayúscula o minúscula? No se si me explico, a ver:

La palabra a buscar es pedro y en el mensaje original la palabra es Pedro. ¿Cómo puedo hacer para colorear Pedro independientemente de que en la búsqueda se haya puesto pedro?

Si me lo podeis explicar con código sería muy de agradecer. Gracias.

knarfy · #4 (**permalink**) 30/04/2005, 10:57

Por favor, una ayudita a un payo!!! jejeje

knarfy · #5 (**permalink**) 30/04/2005, 12:21

Ya he conseguido resaltar la palabra de búsqueda independientemente de si se busca en mayusculas o minúsculas.
Pongo todo loque he hecho para a ver si le sirve al alguien:

criterio=request.form("criterio") 'El criterio de búsqueda
SQL="Select * from mensajes where mensaje like '%"&criterio&"%'"
set rs=conn.execute(SQL)

'Busco dentro del campo mensaje la palabra buscada para saber la posición que ocupa en el mensaje
var1=instr(UCase(rs.fields("mensaje")),Ucase(crite rio))

'Le calculo la longitud
longi=len(criterio)

'Y ahora saco la palabra tal y como está en el mensaje original
var2=mid(rs.fields("Mensaje"),var1,longi)

'La mostramos por pantalla reemplazándola por la misma palabra en negrita y con color rojo
response.write replace(rs.fields("Mensaje"),var2,""&var2&"")

¿Qué os parece?

mariano_donati · #6 (**permalink**) 01/05/2005, 00:45

Knarfy, te comento que la funcion InStr viene con un metodo para hacer que distinga o no entre palabras minusculas o mayusculas. Debes poner InStr(1, Cadena, Cadena_a_buscar, metodo)

En donde 1 es la posicion en donde quieres que comienze la busqueda; Cadena, es el texto en donde quieres que busque; Cadena_a_buscar, es la palabra que quieres que encuentre; método posee dos, el vbBinaryCompare (por defecto, distingue entre minusculas y mayusculas) y vbTextCompare, que no distingue entre minusculas y mayusculas. Debes poner las constantes 0 y 1 respectivamente para que te funcione correctamente.
Esepro que te haya servido de algo, por más que ya lo hayas solucionado, siempre es bueno saber otra forma de hacerlo.
SAludos.

knarfy · #7 (**permalink**) 03/05/2005, 13:11

Tengo otro problema, ahora cuando quiero buscar varias palabras, solo me resalta la última palabra que se ha introducido en el formulario.

Lo que hago es separar las palabras con split, y luego con un bucle for each recorro la matriz resultante del split.

¿Cómo hago ahora para que me resalte cada palabra buscada usando lo que hice antes?

Saruman · #8 (**permalink**) 03/05/2005, 13:31

de lo que entiendo de tu mensaje es que estas callendole encima del texto a las palabras que estás resaltando y por eso te queda siempre la ultima.

dentro de ese for each marcar la palabra en la posición en que se encuentra el array del split y formatearlo con lo que tienes y guardar eso en una variable asi:

Código:

mytexto = ""
for i = 0 to ubound(palabras_split)
    mytexto = mytexto & "lo que sea"
next

response.write(mytexto)

knarfy · #9 (**permalink**) 03/05/2005, 13:43

A ver, lo que me has puesto me dice que no coinciden los tipos: "ubound"
Pongo el código de lo que yo tengo a ver si os sirve mejor:

<%
resalte=request.form("criterio")
texto=split(resalte)

for each elemento in texto
var1=instr(UCase(rs2.fields("mensaje")),Ucase(elem ento))
longi=len(elemento)

if var1<>0 then
var2=mid(rs2.fields("Mensaje"),var1,longi)
end if
next
response.write replace(rs2.fields("Mensaje"),var2,""&var2&"")

%>

El campo "Mensaje" es de tipo MEMO, que almacena el mensaje del foro.

Para buscar una palabra funciona. Me resalta en rojo todas las palabras buscadas que hay en el mensaje, pero cuando pongo dos o más, me resalta solo la última.

¿Cómo lo soluciono? Si necesitais que ponga más código decirmelo.

Gracias.

Saruman · #10 (**permalink**) 03/05/2005, 13:52

que te parece asi??
asi yo lo hice para mi site y me funciona perfectamente....

saludos

Código:

resalte=request.form("criterio")
texto=split(resalte, " ")

mensaje = rs2.fields("Mensaje")

for I = 0 to ubound(texto)
	mensaje = replace(mensaje, texto(I), "<strong><font color=#ff0000>" & texto(I) & "</font></strong>")
next

response.write(mensaje)

knarfy · #11 (**permalink**) 04/05/2005, 02:33

Saruman de esa manera no me resalta la palabra. Ni buscando una sola ni dos o más palabras. A ver si me podeis seguir ayudando maestros.

trasgukabi · #12 (**permalink**) 04/05/2005, 05:45

Cita:

Iniciado por Saruman

que te parece asi??
asi yo lo hice para mi site y me funciona perfectamente....
[/CODE]

si a él le funciona, piensa que algo habrás hecho mal, como no cambiar los nombres de las variables o del request.form o algo así

Saruman · #13 (**permalink**) 04/05/2005, 07:14

knarfy... cópialo igualito y ejecutalo como test.asp.
es el mismo código que te puse anteriormente.... como te decia, me funciona perfectamente, lo único es que la cadena a buscar debe ser igual, quiero decir, que influye si tiene mayusuculas o ambas... pero eso lo puedes arreglar...

saludos

Código HTML:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>búsqueda</title>
</head>

<body style="font-family:Verdana, Arial, Helvetica, sans-serif; font-size:11px;">

<%
	mensaje = "Knarfy, te comento que la funcion InStr viene con un metodo para hacer que distinga o no entre palabras minusculas o mayusculas. Debes poner "_
	& "InStr(1, Cadena, Cadena_a_buscar, metodo) En donde 1 es la posicion en donde quieres que comienze la busqueda; Cadena, es el texto en donde quieres que busque; " _
	& "Cadena_a_buscar, es la palabra que quieres que encuentre; método posee dos, el vbBinaryCompare (por defecto, distingue entre minusculas y mayusculas) y " _
	& "vbTextCompare, que no distingue entre minusculas y mayusculas. Debes poner las constantes 0 y 1 respectivamente para que te funcione correctamente." _
	& " Esepro que te haya servido de algo, por más que ya lo hayas solucionado, siempre es bueno saber otra forma de hacerlo.SAludos."
	
	texto = request.Form("texto")
	texto_split = split(texto, " ")
	
	for I = 0 to ubound(texto_split)
		mensaje = replace(mensaje, texto_split(I), "<strong><font color=#ff0000>" & texto_split(I) & "</font></strong>")
	next
	
	response.Write(mensaje)
%>

<form name="form1" method="post" action="test.asp">
  <input type="text" name="texto">
  <input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>

knarfy · #14 (**permalink**) 04/05/2005, 07:37

He combinado el método de Saruman con lo que hice yo para distinguir mayúsculas y minúsculas pero sigue resaltándome solamente la última palabra que hay en el campo criterio.
Aquí pongo el código para ver si se os puede ocurrir alguna idea, que esto me está matando:

Código:

texto=split(resalte," ")

for i=0 to ubound(texto)
var1=Instr(UCase(rs2.fields("mensaje")),Ucase(texto(i)))
longi=len(texto(i))
texto(i)=mid(rs2.fields("Mensaje"),var1,longi)
mensaje=replace(rs2.fields("Mensaje"),texto(i),"<strong><font color=#ff0000>"&texto(i)&"</font></strong>")
next

response.write mensaje

Saruman · #15 (**permalink**) 04/05/2005, 07:40

Cita:

Iniciado por knarfy

He combinado el método de Saruman con lo que hice yo para distinguir mayúsculas y minúsculas pero sigue resaltándome solamente la última palabra que hay en el campo criterio.

man, probaste el ultimo que mande... eso lo puse hace como 10 minutos, lo probe y funciono super cool..... para mi el problema va a ser la parte de convertir a mayusculas....

knarfy · #16 (**permalink**) 04/05/2005, 09:22

Perdona Saruman, no lo había visto, lo pruebo y te digo que tal me fue.

knarfy · #17 (**permalink**) 07/05/2005, 11:08

Perdon por el retraso. Mirad, creo que el problema es al rescatar el mensaje de la base de datos. Si uso el método de Saruman y le asigno a la variable "mensaje" el texto, o sea así:

Código:

mensaje = "Knarfy, te comento que la funcion InStr viene con un metodo para hacer que distinga o no entre palabras minusculas o mayusculas. Debes poner "_
& "InStr(1, Cadena, Cadena_a_buscar, metodo) En donde 1 es la posicion en donde quieres que comienze la busqueda; Cadena, es el texto en donde quieres que busque; " _
& "Cadena_a_buscar, es la palabra que quieres que encuentre; método posee dos, el vbBinaryCompare (por defecto, distingue entre minusculas y mayusculas) y " _
& "vbTextCompare, que no distingue entre minusculas y mayusculas. Debes poner las constantes 0 y 1 respectivamente para que te funcione correctamente." _
& " Esepro que te haya servido de algo, por más que ya lo hayas solucionado, siempre es bueno saber otra forma de hacerlo.SAludos."

aí funciona. Pero cuando asigno a la variable "mensaje" el valor del recordset del campo "mensaje" de la base de datos, solamente me busca la última palabra.

¿Cómo podría solucionarlo?

Gracias.

knarfy · #18 (**permalink**) 08/05/2005, 04:27

Por favor, echarme una manita plis, que no encuentro la manera de acabar este curro.
Gracias.

knarfy · #19 (**permalink**) 09/05/2005, 10:06

¿Nadie ha hecho un buscador basado en una base de datos que resalta las palabras buscadas tal y como se hace en este foro? ¿Nadie tiene una idea?

knarfy · #20 (**permalink**) 21/05/2005, 18:52

Hola, han pasado 13 días y nadie me ha podido ayudar, por favor, necesito ayuda urgente que se me acaba el plazo para entregar la web y no consigo (y creedme que he buscado y he probado de todo) y no funciona. Por favor, ayuda a un hombre desesperado por favor.

Moises22 · #21 (**permalink**) 21/05/2005, 18:58

No estoy seguro pero creo que en www.asptutor.com vi algo parecido a lo que buscas, espero que te sirva ;)

knarfy · #22 (**permalink**) 22/05/2005, 18:57

Gracias Moises22 por responderme, ninguno de esos buscadores me sirve, ninguno resalta palabras.

¿Alguna ayuda más, por favor?

sjam7 · #23 (**permalink**) 24/02/2006, 12:21

Se que hace mucho de este post pero pues andaba buscando y creo que encontre la solucion, seria asi:

Código:

texto=replace(texto,request("busca"),"<strong>"&request("busca")&"</strong>",1,-1,1)

Lo unico es que si por ejemplo se busca golf y en el texto viene Golf y golf ambas las marca como golf

Myakire · #24 (**permalink**) 24/02/2006, 17:41

Cita:

Lo unico es que si por ejemplo se busca golf y en el texto viene Golf y golf ambas las marca como golf

aaaahhh no,

ahora lo pones que funcione bien o editas tu mensaje sjam7

, knarfy a lo mejor sigue buscando como hacer ese replace y se lo pasas incompleto,

sjam7 · #25 (**permalink**) 24/02/2006, 19:09

bueno, por lo menos ya falta menos

Lo que se podria hacer es que como parte del resalte pues que ponga tambien la palabra en mayusculas, con lo que quedaria asi:

Código:

texto=replace(texto,request("busca"),"<strong>"&ucase(request("busca"))&"</strong>",1,-1,1)