Troca de caracter

20/02/2009

Bom dia!
Adaptei uma função que remove acentos para substituir senhas, com certos valores ela funciona, mas com um valor ela não substitui. alguem pode me ajudar?


a função
    Public Function TrocaCarac(ByVal Senha As String) As String
        Dim schar As String
        Dim pos As Integer
        Dim NomeSemAcento As String
        Dim i As Integer

        schar = ""
        NomeSemAcento = ""

        For i = 1 To Len(Senha)
            schar = Mid(Senha, i, 1)

            pos = InStr("8Pg~l-ÄÜó!", schar)

            If (pos <> 0) Then
                schar = Mid("1234567890", pos, 1)
            End If

            NomeSemAcento = NomeSemAcento + schar
        Next

        TrocaCarac = NomeSemAcento
    End Function


O valor que estou testando é [b:15ce5d667a]4646[/b:15ce5d667a] (no bd está [b:15ce5d667a]~-~-[/b:15ce5d667a]) ela só está substituindo o [b:15ce5d667a]~[/b:15ce5d667a] pelo [b:15ce5d667a]4[/b:15ce5d667a] (correto) mas o [b:15ce5d667a]-[/b:15ce5d667a] nào está substituindo pelo [b:15ce5d667a]6[/b:15ce5d667a]. Isso acontece para todas senhas que tem [b:15ce5d667a]-[/b:15ce5d667a] nelas.


Facc

Respostas

03/03/2009

Facc

Já consegui resolver... obrigado


Responder Citar