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.
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:
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
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!
No entendi lo del Replace? mas detalles porfa :D
Gracias.
Algo asi:
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!
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
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