Posted By

sulfurito on 09/18/08


Tagged

character conversion accent tilde


Versions (?)

Accents/tildes to normal character


 / Published in: ASP
 

Take out accents Quitar tildes

  1. 'Cambia los caracteres con tildes, ñ, ç por letras sin tilde o N o C
  2. 'Elimina las tilde spor completo, puede ser necesario al pasar datos
  3. 'desde UTF-8 a sistemas con ISO-8859-1
  4. Function quitaTildes(texto)
  5. If not EsNulo(texto) Then
  6. texto = Replace(texto, "¡", "", 1, Len(texto), 1)
  7. texto = Replace(texto, "¿", "", 1, Len(texto), 1)
  8. texto = Replace(texto, "'", "", 1, Len(texto), 1)
  9.  
  10. Texto = Replace(Texto, "á", "a", 1, Len(Texto), 1)
  11. Texto = Replace(Texto, "é", "e", 1, Len(Texto), 1)
  12. Texto = Replace(Texto, "í", "i", 1, Len(Texto), 1)
  13. Texto = Replace(Texto, "ó", "o", 1, Len(Texto), 1)
  14. Texto = Replace(Texto, "ú", "u", 1, Len(Texto), 1)
  15. Texto = Replace(Texto, "ñ", "n", 1, Len(Texto), 1)
  16. texto = Replace(texto, "ç", "c", 1, Len(texto), 1)
  17.  
  18. texto = Replace(texto, "Á", "A", 1, Len(texto), 1)
  19. texto = Replace(texto, "É", "E", 1, Len(texto), 1)
  20. texto = Replace(texto, "Í", "I", 1, Len(texto), 1)
  21. texto = Replace(texto, "Ó", "O", 1, Len(texto), 1)
  22. texto = Replace(texto, "Ú", "U", 1, Len(texto), 1)
  23. texto = Replace(texto, "Ñ", "N", 1, Len(texto), 1)
  24. texto = Replace(texto, "Ç", "C", 1, Len(texto), 1)
  25.  
  26. texto = Replace(texto, "à", "a", 1, Len(Texto), 1)
  27. texto = Replace(texto, "è", "e", 1, Len(Texto), 1)
  28. texto = Replace(texto, "ì", "i", 1, Len(Texto), 1)
  29. texto = Replace(texto, "ò", "o", 1, Len(Texto), 1)
  30. texto = Replace(texto, "ù", "u", 1, Len(Texto), 1)
  31.  
  32. texto = Replace(texto, "À", "A", 1, Len(texto), 1)
  33. texto = Replace(texto, "È", "E", 1, Len(texto), 1)
  34. texto = Replace(texto, "Ì", "I", 1, Len(texto), 1)
  35. texto = Replace(texto, "Ò", "O", 1, Len(texto), 1)
  36. texto = Replace(texto, "Ù", "U", 1, Len(texto), 1)
  37.  
  38. texto = Replace(texto, "ä", "a", 1, Len(Texto), 1)
  39. texto = Replace(texto, "ë", "e", 1, Len(Texto), 1)
  40. texto = Replace(texto, "ï", "i", 1, Len(Texto), 1)
  41. texto = Replace(texto, "ö", "o", 1, Len(Texto), 1)
  42. texto = Replace(texto, "ü", "u", 1, Len(Texto), 1)
  43.  
  44. texto = Replace(texto, "Ä", "A", 1, Len(texto), 1)
  45. texto = Replace(texto, "Ë", "E", 1, Len(texto), 1)
  46. texto = Replace(texto, "Ï", "I", 1, Len(texto), 1)
  47. texto = Replace(texto, "Ö", "O", 1, Len(texto), 1)
  48. texto = Replace(texto, "Ü", "U", 1, Len(texto), 1)
  49.  
  50. texto = Replace(texto, "â", "a", 1, Len(Texto), 1)
  51. texto = Replace(texto, "ê", "e", 1, Len(Texto), 1)
  52. texto = Replace(texto, "î", "i", 1, Len(Texto), 1)
  53. texto = Replace(texto, "ô", "o", 1, Len(Texto), 1)
  54. texto = Replace(texto, "û", "u", 1, Len(Texto), 1)
  55.  
  56. texto = Replace(texto, "Â", "A", 1, Len(texto), 1)
  57. texto = Replace(texto, "Ê", "E", 1, Len(texto), 1)
  58. texto = Replace(texto, "Î", "I", 1, Len(texto), 1)
  59. texto = Replace(texto, "Ô", "O", 1, Len(texto), 1)
  60. texto = Replace(texto, "Û", "U", 1, Len(texto), 1)
  61. Else
  62. texto = ""
  63. End If
  64. quitaTildes = texto
  65. End Function

Report this snippet  

You need to login to post a comment.