[VB6] Funzione di trasformazione del testo

[Lolling Maso]

Salve, avrei bisogno di sapere come è possibile trasformare il testo dentro una textbox in un altro in un'altra textbox.
Mi spiego meglio:
[TextBox1]
[cmdCambia]
[TextBox2]

Avrei bisogno che al click sul pulsante cmdCambia il testo della TextBox1 venga "analizzato" e convertito nella TextBox2.
Cosa intendo per "convertito"? Intendo dire che, per esempio, ogni "a" all'interno della TextBox1 diventi una "x" nella TextBox2.

E anche una cosa un po' diversa, ovvero che se viene trovata la lettera "a" questa mi diventa "x", ma se viene trovata la parola "abaco", non diventi "xjxku", ma un'altra parola che io gli dico.

È possibile? Se sì, come?

Grazie.

[erosmax]

Prova così:

Private Sub cmdCambia_Click() 
     Text2 = "" 
     For k = 1 To Len(Text1)     
          lettera = Mid$(Text1, k, 1)     
          Nuova = Chr$(Asc(lettera) - Asc(Cambia) + 65)     
          Text2 = Text2 + Nuova 
     Next k 
End Sub

Cambia è una TextBox contenente la lettera o il simbolo da sostituire alla A.

Con alcuni simboli o testi, potrebbe darti errore (dipende dal valore maggiore di 255 o minore di 0 del Char... ma basta un controllo e risolvi!

Ciao.

[MdE2005]

Ciao..praticamente vorresti criptare tale parola?

Prova a spiegare l'utilità di questa cosa e forse saremo più bravi ad aiutarti..

Ciao

[fedrock]

si è possibbile fare come vuoi tù , devi fare cosi : crei un button (sarebbe quello che traduce il testo ) e scrivi :

If TextBox1.Text = "a"
TextBox2.Text = "x"
End If

come vedi questo è solo un esempio , per le altri parole basta cambiare le lettere ad esempio vuoi che la b si traduca in Z allora fai così :

If TextBox1.Text = "b"
TextBox2.Text = "Z"
End If

[fedrock]

Scusa non avevo visto che è per VB6 allora per VB6 metti questo codice all'interno di un command :

If TextBox1.Caption = "a" Then
TextBox2.Caption = "x"
End If

Dovrebbe essere questo , non ho mai provato il VB6 ma credo che sia giusto il codice

[Grumpy]

Originariamente inviato da fedrock
... non ho mai provato il VB6 ...

e allora perché ti senti in dovere di dare suggerimenti (sbagliati)?

[LMondi]

e allora perché ti senti in dovere di dare suggerimenti (sbagliati)?

Meglio un consiglio sbagliato, dato che anche dagli errori s'impara, che l'indifferenza o peggio la critica sterile.

[Max Mercury]

Originariamente inviato da Grumpy
e allora perché ti senti in dovere di dare suggerimenti (sbagliati)?

il suggerimento era un aberrazione ma anche tu non ci vai molto leggero ehh

[Grumpy]

Originariamente inviato da LMondi
Meglio un consiglio sbagliato, dato che anche dagli errori s'impara, che l'indifferenza o peggio la critica sterile.

Non è così. Si impara dai propri errori, non da quelli altrui.

La soluzione al problema esposto da Lolling Maso sta nella funzione Replace e, forse, anche nella funzione Instr. La guida (da quella sì che si impara! ) dà tutti i particolari.

[MdE2005]

Dal sito MSDN:

 Dim TestString As String = "Shopping List"
Dim aString As String = Replace(TestString, "o", "i")

Il risultato sarà "Shpping List", praticamente sostituisce tutte le "o" con le "i" nella variabile dichiarata (teststring)


Ciao