Cristina
08 de Septiembre del 2003

Hola gente:

Teneís algún ejemplo de una función que convierta una palabra con acentos a la misma sin acentos.
Muchas gracias.

Mucho ánimo para Alberto y sus 83 preguntas (JAJA)

LUIS
08 de Septiembre del 2003

Ahora si quién sabe de cuál fume en mi anterior función, no se en que estaba pensando jejeje a cualquiera le pasa ok seria mas fácil que nada asi

Function QUITAR_ACENTOS(texto As String ParamArray t() As Variant) As String
Dim x As Integer
For x = 0 To UBound(t) Step 2
texto = Replace(texto, t(x), t(x + 1))
Next x


QUITAR_ACENTOS = texto



End Function

ah pero para llamarla


texto2 = QUITAR_ACENTOS(TEXTO1," "á", "a", "é", "e", "í", "i", "ó", "o", "ú", "u")
EN ESE ORDEN

BYE HAY MUCHAS FORMAS ESTA ES LA QUE YO HARIA LA ANTERIOR SI FUE UNA VERADERA FUMADA DE LAS GRANDES SALUDOS

LUIS
08 de Septiembre del 2003

HOLA

TENGO LA FUNCION QUE NECESITAS USANDO LA INSTRUCCION REPLACE QUE NOS INDICÓ JUAN
SI TIENES ALGUNA DUDA EN EL MANEJO ESCRIBEME Y TE ACLARO TUS DUDAS SUERTE....

Function quitar_acentos(texto As String, ParamArray t() As Variant) As String
Dim a As Variant
Dim textof As String
textof = texto
For x = 1 To Len(texto)

For Each a In t

If Mid(texto, x, 1) = a Then


Select Case a
Case "á"
textof = Replace(textof, Mid(textof, x, 1), "a")
Exit For
Case "Á"
textof = Replace(textof, Mid(textof, x, 1), "A")
Exit For
Case "é"
textof = Replace(textof, Mid(textof, x, 1), "e")
Exit For
Case "É"
textof = Replace(textof, Mid(textof, x, 1), "E")
Exit For
Case "í"
textof = Replace(textof, Mid(textof, x, 1), "i")
Exit For
Case "Í"
textof = Replace(textof, Mid(textof, x, 1), "I")
Exit For
Case "ó"
textof = Replace(textof, Mid(textof, x, 1), "o")
Exit For
Case "Ó"
textof = Replace(textof, Mid(textof, x, 1), "O")
Exit For
Case "ú"
textof = Replace(textof, Mid(textof, x, 1), "u")
Exit For
Case "Ú"
textof = Replace(textof, Mid(textof, x, 1), "U")
Exit For
End Select
End If
Next a
Next x

quitar_acentos = textof

End Function

ESTA FUNCION NOS DEVUELVE UN STRING POR LO QUE
EN UN BOTON LA PONDRIAMOS DE ESTA FORMA:

SUB BOTON_CLICK()
Texto.Text = quitar_acento(Text1.Text, "á", "Á", "é", "É", "í", "Í", "ó", "Ó", "ú", "Ú")

Juan
08 de Septiembre del 2003

Bueno no tengo ninguna función para hacer eso, pero
se me ocurre que usando la funcion Replace la cosa
puede ser bastante fácil. Lo único que tendrías que
hacer es llamarla 5 veces, una or cada letra. Ejemplo:

cadena = Replace(cadena,"á", "a")
cadena = Replace(cadena,"é", "e")
cadena = Replace(cadena,"í", "i")
cadena = Replace(cadena,"ó", "o")
cadena = Replace(cadena,"ú", "u")