USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página