19/11/2003, 14:40
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| Se me ocurre algo así:
Function QuitaAcentos(cadena)
cadena= replace(cadena, "á", "a")
cadena= replace(cadena, "é", "e")
cadena= replace(cadena, "í", "i")
cadena= replace(cadena, "ó", "o")
cadena= replace(cadena,"ú", "u")
QuitaAcentos= cadena
End Function
mi_cadena= "solución"
mi_cadena= QuitaAcentos(mi_cadena)
Te debería regresar "solucion"
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |