Thread obsoleto Codice per Trasformare il Testo

[molmark]

Salve a tutti.
Vorrei fare in modo da creare un "Alfabeto numerico" strano.
Vorrei fare in modo che una lettera nel TextBox1 corrisponda ad un'altra lettera o numero nel TextBox2.
All'inizio avevo pensato ad un banale If + Then.

Perfavore, Entra oppure Registrati per vedere i codici!

Ma se scrivevo qualcos'altro che non era "a" non mi cambiava niente.
Come faccio?

 

[KevinGenoves3]

Non basta un if e un then
Sinceramente sono argomenti molto difficili gli encoder, devi definire ogni singolo carattere tramite api e poi covertirlo a string...
Non è per niente facile.

 

[molmark]

Ah ok. Allora faniente (:
Però vorrei chiedervi, qual'è il comando per inviare un eMail tramite VisualBasic 6?

 

[Nick-95]

Ah ok. Allora faniente (:
Però vorrei chiedervi, qual'è il comando per inviare un eMail tramite VisualBasic 6?

Ci sono varie guide usa il tasto cerca.

 

[molmark]

http://www.sciax2.it/forum/visual-basic/guida-inviare-email-cdo-visual-basic-27783.html

Già provato...
Mi da errore:

Run-time Error '242':
Object Required

Aspetto una vostra risposta.

 

[Mirko185]

molmark Basta scrivere Up -.- segnalo -.-

 

[R3tr0s]

allora per criptare una frase devi usare Replace:

Replace (Text1.text,"LETTERADACRIPTARE","LETTERACRIPTATA")

;)

per le email crea un'altro topic ;)

 

[scriptbeta]

Grazie retro il codice mi serviva ;)

 

[GameOv3r]

se poi si vuole fare una cosa per bene anche in vb.net

Dim Key as String
key.replace("aaa,↔")
textbox2.text = key è un esempio !! fatto al volo xD

 

[molmark]

Grazie per le risposte.
Invece riguardo agli UP, segnalami pure. Io l'ho fatto perchè poi finiva in fondo alle discussioni e nessuno rispondeva.
--------------- AGGIUNTA AL POST ---------------
EDIT:
niente non funziona.

 

[molmark]

:controllo: Up

 

[Mikleman]

Quell'errore avviene perchè la funzione Replace necessita di essere inserita o comparata con qualcosa :soso:
Una variabile,una textbox ecc...

 

[R3tr0s]

cioè devi mettere text1.text = Replace(text1.text,"parola","parola") ;)

 

[molmark]

Ottimo. Il programma è quasi venuto.
Il problema è uno, ma sono sicuro che si risolverà senza problemi.
Il fatto è che, una volta che ho cliccato sul bottone e cryptato il testo, si ripete solo una volta e se cambio la frase non me lo crypta più.
Credo che questo sia facilmente correggibile, però non so il comando che consenta al "reverse" di essere ripetuto all'infinito.
Altro problema invece è che viene cryptata per prima la A, visto che è la prima scritta. Poi, se riclicco, la A non viene più cryptata ma solo la B, mentre la A che secondo il cryptaggio in questo caso sarebbe 99-, torna A.

Quindi vi chiedo, come posso fare per far intervenire tutti i Reverse contemporaneamente e inoltre avere la possibilità di rifare il cryptaggio infinite volte?

 

[molmark]

UP.

 

[Habboworld]

TextBox2.Text = Crypt.Text.Replace("a", "/¬")
TextBox2.Text = Crypt.Text.Replace("b", "'^")
TextBox2.Text = Crypt.Text.Replace("c", "öä")

Strano , crypta sempre e solo l'ultimo :|

 

[molmark]

UP...

 

[KevinGenoves3]

Dà quell'errore poichè dovete ridefinire la variabile a fine cryptazione
Sennò la variabile assume un significato che non è più suo.
--------------- AGGIUNTA AL POST ---------------
Codice giusto per vb8:

Dim Replacciati As String
Replacciati = TextBox1.Text.Replace("A", "B")

E poi:
Textboxbla.text = Replacciati
--------------- AGGIUNTA AL POST ---------------
Ecco, ci son stato 1 minutino:

Public Class Form1
Dim Replacciati As String
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text.Contains("a") Then
Replacciati = TextBox1.Text.Replace("a", "♦")
ElseIf TextBox1.Text.Contains("b") Then
Replacciati = TextBox1.Text.Replace("b", "•")
End If
TextBox1.Text = Replacciati
End Sub
End Class