Question

您好如何将richtextbox1.text中的每一行添加到richtexbox2.text并在Richtextbox3.text中显示它们很抱歉要问这样一个＆＃34;简单＆＃34;问题，但我对VB.net相当新任何帮助都很受欢迎，

//Richtextbox1.text 
   Super
   Strong
   Smart

//Richtextbox2.text
   Dog
   Cat
   Man



//Richtextbox3.text
     Super Dog
     Strong Cat
     Smart Man

Answer 1

在第一个richTextBox的Lines属性上启动一个循环，读取每个循环的行，如果第二个richTextBox在同一个索引中有一行，则将它们组合在一起。最后在每个循环中将结果字符串添加到第三个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

另外考虑一下，如果你有很多行，最好使用StringBuilder类，在这个类中累积文本并在一次调用中追加所有行

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())

如何将2个richtextbox中的每一行添加到一起？ [VB.NET]

1 个答案: