(27/06/2012, 0:51)digger Ha scritto: [Per vedere i link devi REGISTRARTI.]
sono troppo stanco per vedere se il tuo funziona, io personalmente l'avrei fatto cosi:
VB Programming
Public Class frm_main
Function RovesciaParola(ByVal parola As String) As String
Dim stringaRovescia As String = ""
For I = parola.Length To 1 Step -1
stringaRovescia &= Mid(parola, I, 1)
Next
Return stringaRovescia
End Function
Private Sub btn_rovescia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_rovescia.Click
Dim parole As String() = txt_dritta.Text.Split(" ")
txt_rovesciata.Clear()
For Each parola As String In parole
txt_rovesciata.Text &= RovesciaParola(parola) & " "
Next
End Sub
End Class
questo codice ha un bug di sicuro, alla fine della frase rovesciata ci mette uno spazio di troppo, ma lascio a te il passatempo di rimuoverlo
Non sapendo usare il for Each.. la soluzione più immediata che mi è venuta in mente è la modifica in questo modo
Codice:
For Each parola As String In parole
ParoleRovesciate &= RovesciaParola(parola) & " "
Next
txt_rovesciata.Text = Mid(ParoleRovesciate, 1, Len(ParoleRovesciate) - 1)