USUARIO DIGITAR COM ACENTO E GRAVAR SEM ACENTO

USUARIO.EXCLUIDOS 24/05/2004 08:35:03
#26312
Gostaria de saber se é possivel gravar quando o usuário digitar uma palavra COM acento no hora de gravar o programa gravar SEM o acento, isto é substituir o "ç" por "c" ETC... ( ' ^ ~ ).


atenciosamente,

Vargax
ALEXMARCHI 24/05/2004 08:42:05
#26313 Resposta escolhida
Eu utilizo uma função


Public Function Texto_Limpo(QTexto As String) As String
    Dim Y As Integer
    For Y = 1 To Len(QTexto)
        Select Case Mid(QTexto, Y, 1)
            Case "á", "ã", "à¢", "à ", "à", "Ã", "Ó¡", "À"
               Mid(QTexto, Y, 1) = "A"
            Case "ç", "Ç"
               Mid(QTexto, Y, 1) = "C"
            Case "é", "ê", "é", "ÃÅ "
               Mid(QTexto, Y, 1) = "E"
            Case "í", "à®", "à", "ÃŽ"
               Mid(QTexto, Y, 1) = "I"
            Case "ó", "õ", "à'", "Ó“", "Õ", "Ô"
               Mid(QTexto, Y, 1) = "O"
            Case "ú", "à»", "à¼", "ÃÅ¡", "Ãâۼ", "ÃÅ“"
               Mid(QTexto, Y, 1) = "U"
        End Select
    Next Y
    Texto_Limpo = UCase(QTexto)
End Function


na hora de gravar eu coloco

campo = Texto_Limpo(Variavel)
ALEXMARCHI 25/05/2004 08:50:03
#26501
VB6MASTER.

A Primeiro momento eu vi seu código e pensei não tem nada a ver com o que o VARGAX pediu, mas sabe como é a curiosidade. eu fui testar,

Este teu código resolveu um problema que estava ferrando a minha vida, a mais de 2 meses eu venho tentado resolver e nada de conseguir, sem querer achei a solução em um tópico que não tem nada a ver com o que eu abri.

mesmo a resposta não sendo direcionada a mim BRIGADÃO Funcionou beleza.
Tópico encerrado , respostas não são mais permitidas
Voltar