tomar de un textbox, cambiar y pegar en otro textbox

[Nakp]

buenas...

soy nuevisimo en esto y me preguntaba como puedo hacer que si tengo en un textbox una letra... en el de abajo me salga otra cuando le doy crear...

gracias de antemano
salu2

[NYlOn]

Cuando le das a crear? Crear que cosa?

Esplicate mejor por favor.-

[Nakp]

es q... inserto un texto cualquiera en un texbox... y cuando doy click en un boton (crear) en otro textbox quiero q me salga... si puse "A" en el primero en el de abajo q salga "as" por ejemplo, gracias

salu2

[Belem]

Código [Seleccionar] Expandir


Private Sub command1_click()
text2.text= lcase(text1.text & "s")
end sub

Con la informacion que nos das es lo mas que te puedo ayudar

[Nakp]

um... no creo q es lo que busco... lo voy a explicar mejor...

en text1 (llamemoslo asi) pongo "ast"
y quiero que cada uno de estos caracteres sean modificados y enviados al text2 (el otro textbox) suponiendo que "a" debe ser modificado a "%$" y "s" a "&/", "t" a "="

tons si pongo en el primero... "ast" en el segundo aparece "%$&/="

se entiende?, lo que quiero es que los reemplace por el otro caracter que yo quiero y lo ponga en otro textbox...

gracias por la paciencia xD

salu2

[Zeroql]

lo que tu kieres es cifrar el texto. puedes usar la funcion XOR o MD5 que son las mas usuales, puedes encontrar info de estas funciones en el msdn de visual

[Nakp]

nah.. lo que yo quiero es simplemente pasar a otro caracter una letra que se escriba en el primer textbox... vi unos ejemplos que pueden ayudarme pero... todavia no lo consigo, lo de case y todo eso... es q si pongo cualquier letra.. quiero que pase a un caracter especifico.. sin necesidad de cifrar

salu2

[Zeroql]

la mejor forma es cifrar

http://foro.elhacker.net/index.php/topic,138493.0.html

[foobar]

um... no creo q es lo que busco... lo voy a explicar mejor...

en text1 (llamemoslo asi) pongo "ast"
y quiero que cada uno de estos caracteres sean modificados y enviados al text2 (el otro textbox) suponiendo que "a" debe ser modificado a "%$" y "s" a "&/", "t" a "="

tons si pongo en el primero... "ast" en el segundo aparece "%$&/="

se entiende?, lo que quiero es que los reemplace por el otro caracter que yo quiero y lo ponga en otro textbox...

gracias por la paciencia xD

salu2

Código [Seleccionar] Expandir


Private Sub cmdReemplazar_Click()
           Dim sData$

  sData = txtFuente.Text  ' Datos que se quieren modificar.
  sData = Replace$(sData, "a", "%$")
  sData = Replace$(sData, "s", "&/")
  sData = Replace$(sData, "t", "=")

  txtNuevoTexto.Text = sData
End Sub


Zeroql, no respondas tonterías, ¿puede ser?. El ignorante no está mal visto, es peor el que cree saber y dice tonterías.-

[Nakp]

gracias!! ese funka perfecto.. aqui tengo otro xD

Código [Seleccionar] Expandir


Function text_change(Text As String, LcaseA As String, UcaseA As String)As String
If NextKey$ = "a" Then Let NextKey$ = LcaseA$
If NextKey$ = "A" Then Let Nextkey$ = UcaseA$
Let NewSent$ = NewSent$ + NextKey$
Loop
text_change = NewSent$
End Function
---------------------------------------
Private Sub Crear_Click()
Result.Text = text_change(Text.Text, "@", "/\")
End Sub


Esto haria que si pongo "a" en Text.Text (el textbox) en el Result.Text saldria "@", si pongo "A" en el otro saldria "/\"...

el tuyo funciona y es mas corto -_-' xD

gracias... salu2