Quitar acentos

isidoro2

unread,

Apr 21, 2008, 5:09:34 PM4/21/08

to

Buenas noches:

¿Cómo puedo quitar los acentos de una cadena de texto?

Gracias y un saludo

Emilio

unread,

Apr 21, 2008, 5:34:13 PM4/21/08

to

--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!
por ejemplo así

'*******************************************************************************
'* SinTildes
'* Devuelve sin tildes (acentos, dieresis) la palabra pasada como parámetro
'* Argumentos: strTexto => cadena de texto a convertir
'* uso: strTexto = SinTildes (strTexto)
'* ESH 10/11/05 18:22
'* Si utilizas este código, respeta la autoría y los créditos
'*******************************************************************************

Function SinTildes(strTexto As String) As String
strTexto = Replace(strTexto, "á", "a")
strTexto = Replace(strTexto, "é", "e")
strTexto = Replace(strTexto, "í", "i")
strTexto = Replace(strTexto, "ó", "o")
strTexto = Replace(strTexto, "ú", "u")
strTexto = Replace(strTexto, "ü", "u")
SinTildes = strTexto
End Function ' SinTildes

Saludos a tod@s

Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"isidoro2" <isidoro2...@ono.com> escribió en el mensaje
news:wo7Pj.51572$nq3....@news.ono.com...

CarCar

unread,

Apr 22, 2008, 3:40:27 AM4/22/08

to

Hola, Emilio:

:-)

Añado, para nuestro amigo Isidoro, que en esa función se pueden
incluir más letras acentuadas, con las tildes utilizadas en otros
idiomas, como: à, è, ì, ò, ù.

Supongo que Isidoro será capaz de modificar la función, incluyendo más
caracteres "tildados" si es que le es necedario.

Saludos,
CarCar (desde Tenerife, España)
MVP-Access

On 21 abr, 21:34, "Emilio" <miliuco56 ALGARROBA hotmail PUNTO com>
wrote:

> "isidoro2" <isidoro2quitae...@ono.com> escribió en el mensajenews:wo7Pj.51572$nq3....@news.ono.com...

isid...@ono.com

unread,

Apr 22, 2008, 5:25:12 AM4/22/08

to

On 21 abr, 23:34, "Emilio" <miliuco56 ALGARROBA hotmail PUNTO com>
wrote:

> --------------------------------------------------------------------------
> ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
> sirvió o no la respuesta dada. Muchas gracias
> --------------------------------------------------------------------------
> Hola!
> por ejemplo así
>

> '*******************************************************************************

> '* SinTildes
> '* Devuelve sin tildes (acentos, dieresis) la palabra pasada como parámetro
> '* Argumentos: strTexto => cadena de texto a convertir
> '* uso: strTexto = SinTildes (strTexto)
> '* ESH 10/11/05 18:22
> '* Si utilizas este código, respeta la autoría y los créditos

> '*******************************************************************************

>
> Function SinTildes(strTexto As String) As String
> strTexto = Replace(strTexto, "á", "a")
> strTexto = Replace(strTexto, "é", "e")
> strTexto = Replace(strTexto, "í", "i")
> strTexto = Replace(strTexto, "ó", "o")
> strTexto = Replace(strTexto, "ú", "u")
> strTexto = Replace(strTexto, "ü", "u")
> SinTildes = strTexto
> End Function ' SinTildes
>
> Saludos a tod@s
>
> Emilio [MS-MVP Access 2006/8]

> miliuco56 ALGARROBA hotmail.comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
>

> "isidoro2" <isidoro2quitae...@ono.com> escribió en el mensajenews:wo7Pj.51572$nq3....@news.ono.com...

>
>
>
> > Buenas noches:
>
> > ¿Cómo puedo quitar los acentos de una cadena de texto?
>

> > Gracias y un saludo- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

Gracias Emilio, es justo lo que estaba buscando
Un saludo

isid...@ono.com

unread,

Apr 22, 2008, 5:25:47 AM4/22/08

to

On 22 abr, 09:40, CarCar <ccarp...@hotmail.com> wrote:
> Hola, Emilio:
>
> :-)
>
> Añado, para nuestro amigo Isidoro, que en esa función se pueden
> incluir más letras acentuadas, con las tildes utilizadas en otros
> idiomas, como: à, è, ì, ò, ù.
>
> Supongo que Isidoro será capaz de modificar la función, incluyendo más
> caracteres "tildados" si es que le es necedario.
>
> Saludos,
> CarCar (desde Tenerife, España)
> MVP-Access
>
> On 21 abr, 21:34, "Emilio" <miliuco56 ALGARROBA hotmail PUNTO com>
> wrote:
>
>
>
> > --------------------------------------------------------------------------
> > ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
> > sirvió o no la respuesta dada. Muchas gracias
> > --------------------------------------------------------------------------
> > Hola!
> > por ejemplo así
>

> > '*******************************************************************************

> > '* SinTildes
> > '* Devuelve sin tildes (acentos, dieresis) la palabra pasada como parámetro
> > '* Argumentos: strTexto => cadena de texto a convertir
> > '* uso: strTexto = SinTildes (strTexto)
> > '* ESH 10/11/05 18:22
> > '* Si utilizas este código, respeta la autoría y los créditos

> > '*******************************************************************************

>
> > Function SinTildes(strTexto As String) As String
> > strTexto = Replace(strTexto, "á", "a")
> > strTexto = Replace(strTexto, "é", "e")
> > strTexto = Replace(strTexto, "í", "i")
> > strTexto = Replace(strTexto, "ó", "o")
> > strTexto = Replace(strTexto, "ú", "u")
> > strTexto = Replace(strTexto, "ü", "u")
> > SinTildes = strTexto
> > End Function ' SinTildes
>
> > Saludos a tod@s
>
> > Emilio [MS-MVP Access 2006/8]
> > miliuco56 ALGARROBA hotmail.comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
>
> > "isidoro2" <isidoro2quitae...@ono.com> escribió en el mensajenews:wo7Pj.51572$nq3....@news.ono.com...
>
> > > Buenas noches:
>
> > > ¿Cómo puedo quitar los acentos de una cadena de texto?
>

isid...@ono.com

unread,

Apr 22, 2008, 5:26:40 AM4/22/08

to

On 22 abr, 09:40, CarCar <ccarp...@hotmail.com> wrote:

> Hola, Emilio:
>
> :-)
>
> Añado, para nuestro amigo Isidoro, que en esa función se pueden
> incluir más letras acentuadas, con las tildes utilizadas en otros
> idiomas, como: à, è, ì, ò, ù.
>
> Supongo que Isidoro será capaz de modificar la función, incluyendo más
> caracteres "tildados" si es que le es necedario.
>
> Saludos,
> CarCar (desde Tenerife, España)
> MVP-Access
>
> On 21 abr, 21:34, "Emilio" <miliuco56 ALGARROBA hotmail PUNTO com>
> wrote:
>
>
>
> > --------------------------------------------------------------------------
> > ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
> > sirvió o no la respuesta dada. Muchas gracias
> > --------------------------------------------------------------------------
> > Hola!
> > por ejemplo así
>

> > '*******************************************************************************

> > '* SinTildes
> > '* Devuelve sin tildes (acentos, dieresis) la palabra pasada como parámetro
> > '* Argumentos: strTexto => cadena de texto a convertir
> > '* uso: strTexto = SinTildes (strTexto)
> > '* ESH 10/11/05 18:22
> > '* Si utilizas este código, respeta la autoría y los créditos

> > '*******************************************************************************

>
> > Function SinTildes(strTexto As String) As String
> > strTexto = Replace(strTexto, "á", "a")
> > strTexto = Replace(strTexto, "é", "e")
> > strTexto = Replace(strTexto, "í", "i")
> > strTexto = Replace(strTexto, "ó", "o")
> > strTexto = Replace(strTexto, "ú", "u")
> > strTexto = Replace(strTexto, "ü", "u")
> > SinTildes = strTexto
> > End Function ' SinTildes
>
> > Saludos a tod@s
>
> > Emilio [MS-MVP Access 2006/8]
> > miliuco56 ALGARROBA hotmail.comhttp://www.mvp-access.com/forohttp://www.mvp-access.es/emilio
>
> > "isidoro2" <isidoro2quitae...@ono.com> escribió en el mensajenews:wo7Pj.51572$nq3....@news.ono.com...
>
> > > Buenas noches:
>
> > > ¿Cómo puedo quitar los acentos de una cadena de texto?
>

> > > Gracias y un saludo- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

Gracias, he hecho algunos cambios en el código de Emilio y me funciona
perfectamente.
Un saludo

Emilio

unread,

Apr 22, 2008, 5:49:45 AM4/22/08

to

:-))

Saludos a tod@s
Emilio [MS-MVP Access 2006/8]

miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

<isid...@ono.com> escribió en el mensaje
news:5e9e233c-18e9-47fc...@a23g2000hsc.googlegroups.com...

Emilio

unread,

Apr 22, 2008, 12:33:29 PM4/22/08

to

--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!

Se me ocurrió pensar que era mejorable y aunque supongo que, de este otro
modo en cuanto a eficiencia no cambiará gran cosa, si que lo hace en cuanto
a líneas de código

'*******************************************************************************
'* SinTildes
'* elimina las tildes de la cadena pasada como parámetro
'* Argumentos: strTexto => cadena a la que se han de eliminar las tildes
'* modificando las constantes Con y Sin se puede variar el rango de
caracteres
'* afectados por el proceso
'* uso: strTexto = SinTildes(strTexto)

'* Si utilizas este código, respeta la autoría y los créditos
'* ESH 10/11/05 18:22

'* ESH 22/04/08 18:30
'*******************************************************************************

Public Function SinTildes(strTexto As String) As String

Const Con = "áéíóúü"
Const Sin = "aeiouu"

Dim i As Long

For i = 1 To Len(Con)
strTexto = Replace(strTexto, Mid(Con, i, 1), Mid(Sin, i, 1))
Next i

SinTildes = strTexto
End Function ' SinTildes

Saludos a tod@s

Emilio [MS-MVP Access 2006/8]

miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"CarCar" <ccar...@hotmail.com> escribió en el mensaje
news:742c1436-771a-440a...@a23g2000hsc.googlegroups.com...