Buscador: palabra resaltada en los resultados

[potenkin]

hola, esta pregunta tiene relación con otra que he hecho esta mañana sobre la muestra de resultados en un buscador (Vscript, asp).

Estpy montando un buscador interno para mis webs. y he visto en algunos webs que cuando nos muestra el resultado de una busqueda interna, la palabra concreta que hemos puesto para la busqueda aparece resaltada con un fondo de otro color.

Alguien sabe como se hace?

salut

[JuanRAPerez]

proba asi

texto_split = split(StringTEXTO," ")
for I = 0 to ubound(texto_split)
StringTEXTOs = replace(StringTEXTO, texto_split(I), "<strong><font color=#185ec7>" & texto_split(I) & "</font></strong>")
next
response.Write(StringTEXTOs)

suerte

[potenkin]

para mostrar el texto pongo lo siguiente:

<%=LEFT(Recordset1.Fields.Item("texto").Value,150) %>

en el código que me envias, tengo que sustituir TEXTO por el Recordset?

[JuanRAPerez]

proba asi

StringTEXTO = LEFT(Recordset1.Fields.Item("texto").Value,150)
texto_split = split(StringTEXTO," ")
for I = 0 to ubound(texto_split)
StringTEXTOs = replace(StringTEXTO, texto_split(I), "<strong><font color=#185ec7>" & texto_split(I) & "</font></strong>")
next
response.Write(StringTEXTOs)

suerte

[Shiryu_Libra]

que interesante esta ese pequeño codigo, en mi caso utilizo un similar a eso

buscar=request.Form("searchFor")
reemplazo="<strong><em>"&buscar&"</em></strong>"

realizo la busqueda y al escribir

texto=lcase(RS("titulo").value)
texto=replace(texto,lcase(buscar),lcase(reemplazo) )

aunque fijandome un poco en el mio, desperdicio tiempo en la busqueda.... ya que uso 3 variables.... lo bueno que es para intranet y no importa mucho... pero si vale mas la pena implementarlo bien

[potenkin]

gracias JuanRAPerez,

al incluir el codigo no consigo el resultado correcto, se resaltan algunas palabras aleatorialmente, pero n o las de la busqueda. El valor que paso en la caja de busqueda es "clave". te pongo el codigo completo:

1. busqueda:
<form method="Post" action="recerca.asp">
<input type="text" name="clave"style="width:110px; height:16px;">
<input type="submit" value="Buscar" name="boton1">
</form>

2. sql para recoger la palabra a buscar y buscarla en la DB:

<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conexion_STRING
Recordset1_cmd.CommandText = "SELECT id, nombre, texto, fecha, foto, clase FROM ficha WHERE nombre & texto LIKE ? ORDER BY id DESC"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 100, "%" + Recordset1__MMColParam + "%") ' adVarChar

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>

3. Mueestra de resultados:

<%=LEFT(Recordset1.Fields.Item("texto").Value,150) %>

donde esta el error?

[JuanRAPerez]

va perame voy a rectificar es que cambie para poder darte un ejemplo pero la regue :P

bueno espero hoy si te sirva

Código PHP:

  <%
claverecuperada = request("clave")
 
StringTEXTOs = LEFT(Recordset1.Fields.Item("texto").Value,150)
texto_split = split(claverecuperada," ")
for I = 0 to ubound(texto_split)
    StringTEXTOs = replace(StringTEXTOs, texto_split(I), "<strong><font color=#185ec7>" & texto_split(I) & "</font></strong>")
next
response.Write(StringTEXTOs)
%> 
   

suerte

[potenkin]

gracias JuanRAPerez, funciona perfecto!! pero...

siempre hay un pero, no respeta mayuasculas y minusculas, sabrias como hacerlo?

salut

[JuanRAPerez]

me alegra te sirviera

no respeta mayusculas y minusculas??? <- no entendi esta parte

a ver explicame

[potenkin]

si realizo la busqueda con la palabra caracol, me aparecen resaltadas todas las referencias que contienen "caracol", pero no las que contienen "Caracol", con mayuscula.

salut