SEXO y REPLACE

[pcarvajal]

tengo una duda...
como puedo reemplazar una cadena de la siguiente manera utilizando replace???:

cadena="No puedes negar que no te llamo la atencion..."
y que resulte asi...

No puedes negar que no te llamo la atencion...

Lo que hago es lo siguiente:

cadena="No puedes negar que no te llamo la atencion..."
response.write replace(cadena,buscar,"<b>"no"</b>")

pero en vez de mantenerme la mayuscula me la cambia por minuscula... :S

Saludos

[Manoloweb]

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]

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")

%>

[Manoloweb]

Por cierto, este tipo de funciones se llama "Expresiones Regulares" o Regular Expressions.

Saludos

[pcarvajal]

hey! muchas gracias!!
sabes, aun me queda una pequeña duda...
definitivamente con REPLACE no se puede hacer???
(pregunto solo por preguntar )

[Manoloweb]

Creo que si, solo debes "jugar" un poco con la sintaxis del "Replace", creo que si pones el argumento "compare" a 0 te convierte la busqueda en binaria, y solo te reemplazará lo que coincida EXACTAMENTE...

'A binary comparison starting at the beginning of the string. Returns "XXYXXPXXY".
MyString = Replace("XXpXXPXXp", "p", "Y",1,-1,0)

Aunque sería mas complicado, ya que deberías hacer lo mismo para toda la cantidad de veriantes de tu string...