Wie fügt man jede Zeile aus 2 Richtextboxen zusammen? [VB.NET]

Question

Hallo, wie kann ich jede Zeile von richtextbox1.text zu richtexbox2.text hinzufügen und sie in Richtextbox3.text anzeigen Entschuldigen Sie für eine solche "einfache" Frage, aber ich bin relativ neu zu VB.net Jede Hilfe viel appriciated ist,

//Richtextbox1.text 
    Super 
    Strong 
    Smart 

//Richtextbox2.text 
    Dog 
    Cat 
    Man 



//Richtextbox3.text 
    Super Dog 
    Strong Cat 
    Smart Man 

Answer 1

eine Schleife über die Zeilen-Eigenschaft des ersten RichTextbox starten

an jeder Schleife die Zeile gelesen und wenn die zweite RichTextbox eine Zeile in dem gleichen Index hat sie zusammen kombinieren. Schließlich wird bei jeder Schleife fügen Sie die resultierende Zeichenfolge an den dritten RichTextbox

For x As Integer = 0 To richTextBox1.Lines.Count - 1 

    Dim combinedLine As String = richTextBox1.Lines(x) 
    If x <= richTextBox2.Lines.Count - 1 
     combinedLine = combinedLine & " " & richTextBox2.Lines(x) 
    End If 
    richTextBox3.AppendText(combinedLine & Environment.NewLine) 
Next 

Beachten Sie auch, dass, wenn Sie eine Menge von Linien haben, ist es besser, eine Klasse String zu verwenden, reichern sich den Text in dieser Klasse und fügen Sie alle in ein einzelner Anruf

Dim sb = New StringBuilder() 
For x As Integer = 0 To richTextBox1.Lines.Count - 1 

    sb.Append(richTextBox1.Lines(x)) 
    If x <= richTextBox2.Lines.Count - 1 
     sb.Append(" " & richTextBox2.Lines(x)) 
    End If 
    sb.AppendLine() 
Next 
richTextBox3.AppendText(sb.ToString())