Identificar letra por letra en un Textbox

[pungados]

Hola comunidad, hace muy poco se me ocurrió hacer un programa con la siguiente función.
El usuario ingresa en un textbox un párrafo cualquiera. Ejemplo "Hola como estas"
Aprieta un botón, y en otro text box se imprime el párrafo anterior pero con símbolos.
También el programa tiene que poder leer esos símbolos y cambiarlos al párrafo inicial.

Entonces me puse a buscar en google como hacer para que se lea letra por letra y las valla cambiando, pero la verdad, no encontre nada.

Si alguno tiene algún código que me pueda servir bienvenido sea

Tenía pensado algo, usando un For y la propiedad Left, para que vea letra por letra, pero no se como ponerle un limite 

Muchas gracias.

[fede_cp]

bueno yo hice algo parecido pero cambiar una frase de uun textbox a ascii y colocarlo en otro textbox.

es solo pensar un poco, esta herramienta la utilizo para las sql injection para cambiar de text a ascii (esto va separado por comas y la ultima coma se la saca)

code:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim i
    Dim valor As String
    Dim sAscii As String
   
    sAscii = ""
    For i = 1 To Len(Text1.Text)
        sAscii = sAscii & "," + CStr(Asc(Mid(Text1.Text, i, 1)))
    Next
    valor = Len(sAscii)
    Text2.Text = Right(sAscii, valor - 1)
End Sub

es pensar un poquito.

saludos

[MCKSys Argentina]

Si vas a reemplazar letras por simbolos, quizas te convenga usar Replace.

Asi reemplazaras varios items a la vez.

Lo que si, debes llamar la funcion por cada reemplazo a hacer y termina siendo lo mismo que  utilizar un bucle e ir sacando letra x letra.

Es cuestion de decidirse por uno o el otro.

Saludos!

[pungados]

No entendi lo del Replace? mas detalles porfa

Gracias.

[MCKSys Argentina]

Algo asi:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim strAux As String

'Text1 = texto original
'Text2 = texto de salida (con simbolos)
'Caracteres a reemplazar (ejemplo):
'   "a" = "$"
'   "b" = "&"
'   "c" = "/"
'   etc, etc

'copia texto ingresado
strAux = Text1.Text
'reemplaza todas las ocurrencias de "a" por "$"
strAux = Replace(strAux, "a", "$")
'reemplaza todas las ocurrencias de "b" por "&"
strAux = Replace(strAux, "b", "&")
'reemplaza todas las ocurrencias de "c" por "/"
strAux = Replace(strAux, "c", "/")
'guarda resultado en texto de salida
Text2.Text = strAux
End Sub


Creo que es lo que quieres..

Saludos!

[SRVAM]

puedes usar la funcion MID, con ella coges una letra, la compruebas y la cambias, y asi con todo el parrafo.

seria hacer mas o menos asi

Código (vb) [Seleccionar] Expandir

for i=1 to len(text1.text)

mid ( text1.text (cadena de la que buscar caracteres), i (caracter de inicio), 1(numero de caracteres que cogera la funcion))

'comparas el caracter y le asignas el simbolo
'cambias el caracter por el simbolo

next i


espero haberte ayudado. saludos