
05/04/2002, 17:15
|
| | 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> ;" & match.value & "</b></font>")
Next
resaltar = texto_a_afectar
End Function
%>
---------------------
Tan libre como gratuito!!! |