SABER SE O USUARIO DIGITOU PALABRA COM ACENTO OU C

JUNIN213 03/07/2011 21:30:41
#378378
Como saber se o usuario dgitou [Ô]Ç[Ô] ou letras com acentos no meio das palavras?
THIAGOEMECAL 03/07/2011 21:52:44
#378381
Amigo Tenho uma Função que retira os acentos.. mais fazendo algumas simples adaptações vc consegue descobrir se alguem digito o acento.

Function pf_RetiraMascara(ByVal StrAcento)
Dim Letra As String
Dim Texto As String
If IsNull(StrAcento) Then StrAcento = [Ô][Ô]
For i = 1 To Len(StrAcento)
Letra = Mid(StrAcento, i, 1)
Select Case Letra
Case [Ô]Á[Ô], [Ô]À[Ô], [Ô]Ã[Ô], [Ô]Â[Ô], [Ô]Ä[Ô]
Letra = [Ô]A[Ô]
Case [Ô]á[Ô], [Ô]à[Ô], [Ô]ã[Ô], [Ô]â[Ô], [Ô]ä[Ô]
Letra = [Ô]a[Ô]
Case [Ô]é[Ô], [Ô]Ê[Ô], [Ô]Ë[Ô], [Ô]È[Ô]
Letra = [Ô]E[Ô]
Case [Ô]é[Ô], [Ô]ê[Ô], [Ô]ë[Ô], [Ô]è[Ô]
Letra = [Ô]e[Ô]
Case [Ô]Í[Ô], [Ô]Ï[Ô], [Ô]Ì[Ô]
Letra = [Ô]I[Ô]
Case [Ô]í[Ô], [Ô]ï[Ô], [Ô]ì[Ô]
Letra = [Ô]i[Ô]
Case [Ô]Ó[Ô], [Ô]Ô[Ô], [Ô]Õ[Ô], [Ô]Ö[Ô], [Ô]Ò[Ô]
Letra = [Ô]O[Ô]
Case [Ô]ó[Ô], [Ô]ô[Ô], [Ô]õ[Ô], [Ô]ö[Ô], [Ô]ò[Ô]
Letra = [Ô]o[Ô]
Case [Ô]Ú[Ô], [Ô]Ù[Ô], [Ô]Ü[Ô], [Ô]Û[Ô]
Letra = [Ô]U[Ô]
Case [Ô]ú[Ô], [Ô]ù[Ô], [Ô]ü[Ô], [Ô]û[Ô]
Letra = [Ô]u[Ô]
Case [Ô]Ç[Ô]
Letra = [Ô]C[Ô]
Case [Ô]ç[Ô]
Letra = [Ô]c[Ô]
Case [Ô]Ñ[Ô]
Letra = [Ô]N[Ô]
Case [Ô]ñ[Ô]
Letra = [Ô]n[Ô]
Case [Ô][ô][Ô], [Ô].[Ô], [Ô]/[Ô], [Ô]-[Ô], [Ô]![Ô], [Ô]@[Ô], [Ô]#[Ô], [Ô]$[Ô], [Ô]%[Ô], [Ô]&[Ô], [Ô]*[Ô], [Ô]_[Ô], [Ô]=[Ô] & _
[Ô]+[Ô], [Ô]§[Ô], [Ô]|[Ô], [Ô]\\[Ô], [Ô]<[Ô], [Ô]>[Ô], [Ô];[Ô], [Ô]:[Ô], [Ô]?[Ô], [Ô]°[Ô] & _
[Ô]![Ô], [Ô]][Ô], [Ô]}[Ô], [Ô][[Ô], [Ô]{[Ô], [Ô]¬[Ô], [Ô]¢[Ô], [Ô]£[Ô], [Ô]'[Ô], [Ô]'[Ô], [Ô]~[Ô], [Ô]^[Ô], [Ô]¨[Ô]
Letra = [Ô][Ô]
End Select
Texto = Texto & Letra
Next
pf_RetiraMascara = Texto
End Function
EDERMIR 03/07/2011 21:54:09
#378383
Eu tenho uma rotina que RETIRA estas letras.
Se servir, coloque no LOSTFOCUS da digitação.
Public Function Ftiraacento(Wfrase)
    WCacento = [Ô]ÇÃÀÁÄÂÈéËÊÌÍÏÎÕÒÓÖÔÙÚÜÛ[Ô]
    WSacento = [Ô]CAAAAAEEEEIIIIOOOOOUUUU[Ô]
    For Wx = 1 To Len(WCacento)
        WSailetra = Mid(WCacento, Wx, 1)
        WVemletra = Mid(WSacento, Wx, 1)
        Wfrase = Replace(Wfrase, UCase(WSailetra), UCase(WVemletra))
        Wfrase = Replace(Wfrase, LCase(WSailetra), LCase(WVemletra))
    Next Wx
    Ftiraacento = Wfrase
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar