Invertire parole in richtextbox vb 2010

[canapozzo88]

Salve a tutti ragazzi !! volevo chiedervi un aiuto per un programma che sto creando. Ho un testo in una richtextbox, un testo molto lungo ma comunque di dimensione variabile. Vorrei che di questo testo a gruppi di due (gruppi formati da 8 lettere) questi vengano invertiti !! faccio un esempio per essere più chiaro. Testo richtextbox = 12345678ABCDEFGH12345678ILMNOPQR testo che voglio ottenere = ABCDEFGH12345678ILMNOPQR12345678 Mi potete aiutare ?? grazie mille per le risposte che sicuramente arriveranno puntuali, come sempre

[oregon]

Usa i metodi di String lavorando sul contenuto della richtextbox

http://msdn.microsoft.com/it-it/libr...v=vs.110).aspx

[canapozzo88]

Prima di tutto grazie mille per la tua tempestiva risposta !! sfortunatamente sono giorni che ci combatto e non riesco a trovare una soluzione e non riesco nemmeno a pensare un codice che faccia ciò che mi necessita !! non potresti, tu o chi mi vuole aiutare, buttare giù un codice che possa facilitarmi ? grazie millee

[oregon]

Più che buttare giù un codice noi, non potresti provare a ragionare con i suggerimenti dati?

Hai provato a capire come funziona, ad esempio, il metodo

SubString
http://msdn.microsoft.com/it-it/libr...v=vs.110).aspx

... forza, prova

[canapozzo88]

Sisi, ho visto e aiutandomi con un codice trovato sul web ho fatto in modo che il programma non mi facesse ritornare il valore 12345678ABCDEFGH come HGFEDCAB87654321 ma come é giusto che sia e anche come io volevo in ABCDEFGH12345678 !!
quindi il testo 12345678ABCDEFGH me lo ritorna come ABCDEFGH12345678 e questo é perfetto solo che il mio testo é piu lungo e quando ho 32 (o altri multipli di 8) la parte finale diventa quella iniziale !! Per capire meglio mi accade questo :
12345678ABCDEFGH12345678ILMNOPQR diventa ILMNOPQR12345678ABCDEFGH12345678 !!

Quello che voglio io sarebbe ABCDEFGH12345678ILMNOPQR12345678

In poche parole dovrebbe invertire a gruppi di 16 caratteri invertendo il primo 8 gruppo con il secondo e poi.fare lo stesso per il successivo gruppo di 16 caratteri !! Questo é il mio problema spero di essermi spiegato nel modo migliore !! Graziee

[oregon]

Sisi, ... Graziee

Risolvi con qualche ciclo for apposito e la SubString ... mostra il codice che hai scritto per la prima parte di cui parli ...

[canapozzo88]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      
        Dim txt As String = RichTextBox1.Text
        Dim InvertTxt As String = ""
        Dim K As Integer = 8

        For idx = 0 To txt.Length - 1 Step K
            If idx < txt.Length - K + 1 Then
                InvertTxt = txt.Substring(idx, K) + InvertTxt

            End If
        Next idx

        RichTextBox1.Text = InvertTxt.ToString

End Sub

Ecco qui il codice, come posso far si che io abbia cioè che mi serve e che ho spiegato nel post sopra ?

[canapozzo88]

Qualcuno può aiutarmi ? sfortunatamente non posso andare avanti se non supero questo problema !! GRazie mille a tuttii

[oregon]

...

[oregon]

Dovrebbe bastare questo

Dim tmp As String

For idx = 0 To txt.Length - 1 Step 16
   tmp = txt.Substring(idx, 16)
   InvertTxt += tmp.Substring(8, 8) + tmp.Substring(0, 8)
Next idx