Ver Mensaje Individual
  #3 (permalink)  
Antiguo 05/04/2002, 17:15
vgaray
 
Fecha de Ingreso: octubre-2000
Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 7 meses
Puntos: 0
Re: Destacar parte de un string

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!!!