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