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