Testo a capo o consecutivo

sabato 25 agosto 2012 - 17.14

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags VB.NET | Visual Studio 2008 | MySQL 5.5

Mau67 Profilo | Expert

917 messaggi | Data Invio: sab 25 ago 2012 - 17:14

Ciao forum,
ho scritto questo codice che serve per scrivere il testo a capo o consecutivo di alcune righe che carico dentro una listview:

If ListView1.Items(e.Index).SubItems(2).Text = "A" Or ListView1.Items(e.Index).SubItems(2).Text = "a" Then
TextBox1.Text = TextBox1.Text & "" & ListView1.Items(e.Index).SubItems(1).Text & vbCrLf
ElseIf ListView1.Items(e.Index).SubItems(2).Text = "S" Or ListView1.Items(e.Index).SubItems(2).Text = "s" Then
TextBox1.Text = TextBox1.Text & " - " & ListView1.Items(e.Index).SubItems(1).Text
If TextBox1.Text.StartsWith(" - ") Then
TextBox1.Text = TextBox1.Text.Remove(0, 3)
End If
End If

Praticamente se tramite un inputbox inserisco una delle due possibilità e cioè o "A" o "S" non ci sono problemi;
però se voglio alternare acune stinghe con "A" quindi vogli che quelle selezionate le metta a capo una sotto l'altra lo fà però se continuo con la selezione e le successive le spunto con la "S" quindi le voglio consecutive subito dopo l'ultima a capo me le scrive tutte consecutive senza il trattino per spezzare la frase.
Vi faccio l'esempio
stringa 1 seleziono "A"
stringa 2 seleziono "A"
stringa 3 seleziono "A"
stringa 4 seleziono "S"
stringa 5 seleziono "S"
stringa 6 seleziono "S"
stringa 7 seleziono "A"

Cosa dovrebbe comporre:
stringa 1
stringa 2
stringa 3
stringa 4 - stringa 5 - stringa 6
stringa 7

Come posso correggere il codice ?

Grazie in anticipo
Mau67

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !