Acentos

response.write replace ( cadena, "ó", "ó" )

Una de estas por cada vocal o carácter especial.

Saludos
MV

The Eye wrote in message
news:
Hola a ,

Existe alguna función que dada una cadena con acentos, por ejemplo,
"próximo", devuelva "próximo"?

Muchas gracias de antemano.
The Eye

Mira después de comerme la cabeza he conseguido hacer esto, pero tiene el
problema que solo sirve para una palabra es decir que si metes en la
variable cadena mas de una palabra acentuada... falla. Habría que mirarlo
mas...

Saludos

<%
' Cadena de prueba
Cadena = "camión"
Function Sustituye(patron, repStr)
' Crea algunas variables.
Dim regEx, strl

' Crea una expresión regular.
Set regEx = New RegExp
' Establezco que haga los reemplazos en todo el texto
regEx.Global = True
' Establece el modelo.
regEx.Pattern = patron
' Hace distinción entre mayúsculas y minúsculas.
regEx.IgnoreCase = True
' Ejecuta la búsqueda.
Set Matches = regEx.Execute(cadena)
' Repite la colección de coincidencias.
For Each Match in Matches
Vocal = Match.Value
Select Case Vocal
Case "á" repStr = "&aacute;"
Case "é" repStr = "&eacute;"
Case "í" repStr = "&iacute;"
Case "ó" repStr = "&oacute;"
Case "ú" repStr = "&uacute;"
End Select
' Realiza el reemplazo.
Sustituye = regEx.Replace(cadena, Server.HTMLEncode(repStr))
Next
End Function
%>
<%
Response.Write Sustituye("[áéíóú]", (repStr))
%>

"The Eye" escribió en el mensaje
news:

Hola a ,

Existe alguna función que dada una cadena con acentos, por ejemplo,
"próximo", devuelva "pr&oacute;ximo"?

Muchas gracias de antemano.
The Eye

Muchas gracias a los dos,

Ya pensaba programar algo así, pero primero prefería preguntar si existía
alguna función ya hecha que solucionara lo que necesito. Gracias otra vez.

Saludos.

The Eye



"The Eye" escribió en el mensaje
news:

Hola a ,

Existe alguna función que dada una cadena con acentos, por ejemplo,
"próximo", devuelva "pr&oacute;ximo"?

Muchas gracias de antemano.
The Eye

Si la ejecucion es en el servidor, lo recomendable es usar:

cadena = Server.HTMLEncode(cadena)

Saludos!
Miguel


"The Eye" escribió en el mensaje
news:

Hola a ,

Existe alguna función que dada una cadena con acentos, por ejemplo,
"próximo", devuelva "pr&oacute;ximo"?

Muchas gracias de antemano.
The Eye

Si lo que quieres es parsear texto( acentos, ñ, <> ,etc...) a
entidades HTML
prueba con server.HTMLEncode("Texto a parsear")

y aqui un Enlace

http://msdn.microsoft.com/library/d...mhtenc.asp


"The Eye" wrote in message news:...

Muchas gracias a los dos,

Ya pensaba programar algo así, pero primero prefería preguntar si existía
alguna función ya hecha que solucionara lo que necesito. Gracias otra vez.

Saludos.

The Eye



"The Eye" escribió en el mensaje
news:
> Hola a ,
>
> Existe alguna función que dada una cadena con acentos, por ejemplo,
> "próximo", devuelva "pr&oacute;ximo"?
>
> Muchas gracias de antemano.
> The Eye
>
>
>
>