by Felipe Lambert
18. September 2009 13:17
Função simples para remover o acento
Function removeAcentos(ByVal texto As String) As String
Dim vPos As Byte
'Constantes de caracteres para remover o acento
Const vComAcento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
Const vSemAcento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
'Varre o texto para identificar os caracterres
For i = 1 To Len(texto)
vPos = InStr(1, vComAcento, Mid(texto, i, 1)) 'identifica a posição do caractere a ser subistituido caso exista
If vPos > 0 Then
Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1) 'substitui o caractere
End If
Next
removeAcentos = texto 'retorna o item
End Function
Subscribe