Array
(
)

Troca de caracter

Facc
   - 20 fev 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#Código

    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 é 4646 (no bd está ~-~-) ela só está substituindo o ~ pelo 4 (correto) mas o - nào está substituindo pelo 6. Isso acontece para todas senhas que tem - nelas.

Facc
   - 03 mar 2009

Já consegui resolver... obrigado