04/03/2003, 16:07
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Monterrey
Mensajes: 2.454
Antigüedad: 23 años, 3 meses Puntos: 5 | |
| Function Negritas(ElTexto,LaBusqueda)
Dim Expresion
Set Expresion= New RegExp
Expresion.Pattern = ("("&LaBusqueda&"[\.,:;]*)")
Expresion.IgnoreCase = True
Expresion.Global = True
Set Matches=Expresion.Execute(ElTexto)
For Each Match in Matches
ElResultado = Expresion.Replace (ElTexto, "<b>$1</b>")
Next
Negritas = ElResultado
End Function
Response.write Negritas(cadena,"no")
__________________
Manoloweb |