Destacar parte de un string

[Juansan]

Hola a todos. Luego de obtener el resultado de una consulta, quiero destacar el texto encontrado. Ejemplo: Busco en una base de datos la palabra "TECLA" y el resultado son dos registros, uno de ellos es "TECLA" y el otro "TECLADO". Lo que intento hacer es que el string que coincida con mi busqueda quede resaltado ya sea con un fondo distinto la letra en italica ETC... com se ve aqui...

TECLA
TECLA DO

Espero haberme explicado y si no, prueben con el buscador de este foro que logra lo que yo aun no pude.

Gracias.

[EDGARDO MOGUELLA]

HOLA,

LO QUE YO HARIA SERIA EN CADA CAMPO DE CADA REGISTRO DEVUELTO UN REEMPLAZO DEL "STRING" BUSCADO POR EL MISMO STRING EN UN FORMATO RESALTADO.

para eso podes usar la funcion replace de VBS

la sintaxis de esta es:
Returns a string in which a specified substring has been replaced with another substring a specified number of times.

Replace(expression, find, replacewith[, start[, count[, compare]]])

Arguments
expression
Required. String expression containing substring to replace.
find
Required. Substring being searched for.
replacewith
Required. Replacement substring.
start
Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed. Must be used in conjunction with count.
count
Optional. Number of substring substitutions to perform. If omitted, the default value is -1, which means make all possible substitutions. Must be used in conjunction with start.
compare
Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. See Settings section for values. If omitted, the default value is 0, which means perform a binary comparison.

[vgaray]

Saludos.

Puedes usar expresiones regulares ( http://www.4guysfromrolla.com/webtech/regularExpressions.shtml ).


<%
clave = "Tecla"
Texto_fuente = "Tecla teClando entecla posteCLata"

Response.Write Resaltar(texto_fuente,clave)

Function resaltar(texto_a_afectar,palabra_a_resaltar)
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = palabra_a_resaltar
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(texto_a_afectar)
For Each Match in Matches
texto_a_afectar = replace(texto_a_afectar,Match.Value,"<b&gt ;" & match.value & "</b></font>")
Next
resaltar = texto_a_afectar
End Function
%>


---------------------
Tan libre como gratuito!!!

[AlZuwaga]

una vez victor garay me dió un ejemplo que lo hacía con expresiones regulares... pero lo perdí