[VB6] Passaggio da un numero ad una stringa

[papacico]

Con il seguente codice ottengo il codice Ascii di ciascun carattere
di una parola:

Dim parola(2) As String
Dim i, n as Integer
parola(0) = Text1.Text
n = Len(parola)
For i = 1 To n
parol(1) = parol(1) & Asc(Mid(parola(0), i, 1))
Text2.Text = parol(1)
Next i

e se volessi tornare indietro con la funzione Chr$?
Purtroppo non ci riesco!

[oregon]

Veramente il codice che hai postato non funziona ... e non capisco cosa tu voglia fare ...

[papacico]

Originariamente inviato da oregon
Veramente il codice che hai postato non funziona ... e non capisco cosa tu voglia fare ...

Hai ragione per la fretta avevo sbagliato.
Comunque riposto il codice:

Dim parola As String
Dim parol As String
Dim i, n As Integer
parola = Text1.Text
n = Len(parola)
For i = 1 To n
parol = parol & Asc(Mid(parola, i, 1))
Text2.Text = parol
Next i



65=A
77=M
79=O
82=R
69=E

Il mio problema sarebbe quello di ottenere la funzione inversa e cioè se digito
6577798269, vorrei ottenere la parola AMORE.

[oregon]

Questa linea

n = Len(parola)

non viene eseguita (e non potrebbe esserlo)

Ad un certo punto utilizzi la variabile

parol(1)

che non e' stata mai definita (manca una a finale?)

quindi, mi sa che non e' il codice che hai provato tu oppure non lo hai mai provato.

[papacico]

Hai ragione per la fretta avevo sbagliato.
Comunque riposto il codice:

Dim parola As String
Dim parol As String
Dim i, n As Integer
parola = Text1.Text
n = Len(parola)
For i = 1 To n
parol = parol & Asc(Mid(parola, i, 1))
Text2.Text = parol
Next i

[oregon]

Ora ci siamo ... comunque, per la prima parte del tuo problema, scriverei

    Dim i As Long
    Text2.Text = ""
    For i = 1 To Len(Text1.Text)
        Text2.Text = Text2.Text & CStr(Asc(Mid$(Text1.Text, i, 1)))
    Next i

e per la seconda parte

    Dim i As Long
    Text1.Text = ""
    For i = 1 To Len(Text2.Text) Step 2
        Text1.Text = Text1.Text & Chr$(Val(Mid$(Text2.Text, i, 2)))
    Next i

Ovviamente le soluzioni sono limitate al tuo problema (per le lettere minuscole, ad esempio, il codice deve essere modificato)

[papacico]

Oregon sei sempre disponibile, ti ringrazio molto!
Alla prossima!