|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função pra Retirar Acentos
|
 |
|
|
|
Postada em 13/2/2004 por ixeyc
Function removeAcentos(ByVal texto As String) As String
Dim vPos As Byte
Const vComAcento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
Const vSemAcento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
For i = 1 To Len(texto)
vPos = InStr(1, vComAcento, Mid(texto, i, 1))
If vPos > 0 Then
Mid(texto, i, 1) = Mid(vSemAcento, vPos, 1)
End If
Next
removeAcentos = texto
End Function
Private Sub Command1_Click()
'exemplo de como chamar
Text1 = removeAcentos(Text1)
End Sub
|
|
|
|
|
