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 FunctionO 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 :)
