TEXTO
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..............
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..............
TIPO,
ficaria
ABCABCABC = 1BC1BC1BC
texto = replace(texto, "A", "1")
ficaria
ABCABCABC = 1BC1BC1BC
Utilize a função replace
xTexto = "o visual basic"
xTexto = Replace(xTexto,"a","5")
xTexto = Replace(xTexto,"o","2")
Só isso...
xTexto = "o visual basic"
xTexto = Replace(xTexto,"a","5")
xTexto = Replace(xTexto,"o","2")
Só isso...
Bom ai vai...
Obs: Troque a sequencia de caracteres de "An" para mudar a string de saÃda
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