×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Visual Basic
Posted by: Hans Barbosa de Brito
Added: Dec 15, 2014 8:27 PM
Modified: Jan 13, 2015 7:11 PM
Views: 19
Tags: no tags
Remove Acentos
  1. Function Acento(caract)
  2.  
  3.     'Acentos e caracteres especiais que serão buscados na string
  4.    'Você pode definir outros caracteres nessa variável, mas
  5.    ' precisará também colocar a letra correspondente em codiB
  6.    codiA = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
  7.      
  8.     'Letras correspondentes para substituição
  9.    codiB = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
  10.      
  11.     'Armazena em temp a string recebida
  12.    temp = caract
  13.      
  14.     'Loop que irá de andará a string letra a letra
  15.    For i = 1 To Len(temp)
  16.      
  17.         'InStr buscará se a letra indice i de temp pertence a
  18.        ' codiA e se existir retornará a posição dela
  19.        p = InStr(codiA, Mid(temp, i, 1))
  20.          
  21.         'Substitui a letra de indice i em codiA pela sua
  22.        ' correspondente em codiB
  23.        If p > 0 Then Mid(temp, i, 1) = Mid(codiB, p, 1)
  24.     Next
  25.      
  26.     'Retorna a nova string
  27.    Acento = temp
  28.      
  29. End Function