|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para retirar acentos de uma String
|
 |
|
|
|
Postada em 12/11/2002 por Roberto
Public Function TiraAcento(vString As String) As String
Dim inString
Dim inC, i
inString = RTrim(vString)
For i = 1 To Len(inString)
inC = Mid(inString, i, 1)
If inC = "ã" Or inC = "á" Or inC = "à" Or inC = "â" Then
inC = "a"
ElseIf inC = "Ã" Or inC = "Á" Or inC = "À" Or inC = "Â" Then
inC = "A"
ElseIf inC = "õ" Or inC = "ó" Or inC = "ô" Then
inC = "o"
ElseIf inC = "Õ" Or inC = "Ó" Or inC = "Ô" Then
inC = "O"
ElseIf inC = "é" Or inC = "ê" Then
inC = "e"
ElseIf inC = "É" Or inC = "Ê" Then
inC = "E"
ElseIf inC = "í" Then
inC = "i"
ElseIf inC = "Í" Then
inC = "I"
ElseIf inC = "ú" Or inC = "ü" Then
inC = "u"
ElseIf inC = "Ú" Or inC = "Ü" Then
inC = "U"
ElseIf inC = "ç" Then
inC = "c"
ElseIf inC = "Ç" Then
inC = "C"
End If
TiraAcento = TiraAcento & inC
Next i
End Function
'Modo de Usar:
Private Sub Command1_Click()
MsgBox TiraAcento("São José do Maranhão")
End Sub
|
|
|
|
|
