advanced code snippet search

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

Expand | Embed | Plain Text 
  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.