Troca de caracter
20/02/2009
0
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
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.
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
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)