SEXO y REPLACE

[Manoloweb]

Te paso esta pequeña actualizacion, ya que la anterior te marcaba en negrita incluso si se encontraba la coincidencia DENTRO de una palabra, por ejemplo novia... o bruno


Ahora si funciona correctamente:


<%
cadena="No puedes negar que no le llamo la atencion a bruno y a su novia..."


Function Negritas(ElTexto,LaBusqueda)
Dim Expresion
Set Expresion= New RegExp
Expresion.Pattern = ("([\s]?"&LaBusqueda&"[\.,:;]*[\s])")
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")

%>