TEXTO

USUARIO.EXCLUIDOS 15/09/2005 09:28:45
#104309
Queria saber como localizar letras em um textbox
e trocar por numeros por exemplo:
o texto é:
exemplo em visual basic
neste exemplo troco a por 5 e o por 2
vai ficar
exempl2 em visu5l b5sic

ok é só isso obrigado..............
LIONHEART 15/09/2005 09:32:34
#104314
TIPO,

texto = replace(texto, "A", "1")


ficaria

ABCABCABC = 1BC1BC1BC
USUARIO.EXCLUIDOS 15/09/2005 09:34:00
#104317
Utilize a função replace

xTexto = "o visual basic"
xTexto = Replace(xTexto,"a","5")
xTexto = Replace(xTexto,"o","2")

Só isso...
USUARIO.EXCLUIDOS 15/09/2005 10:03:14
#104325 Resposta escolhida
Bom ai vai...

Function SwapWords(ByVal InputString As String) As String
    Al = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    An = "ZAQXSWCDEVFRBGTNHYMJUKILOPplokimjunhybgtvfrcdexswzaq"
    
    For F = 1 To Len(InputString)
        For G = 1 To Len(Al)
            If Mid(InputString, F, 1) = Mid(Al, G, 1) Then
                Out = Out & Mid(An, G, 1)
            End If
        Next G
    Next F
    
    SwapWords = Out
End Function


Obs: Troque a sequencia de caracteres de "An" para mudar a string de saída
Tópico encerrado , respostas não são mais permitidas
Voltar