在VB中交换多行

Question

我在交换多行时遇到问题，它只交换一行吗？

Dim st As String=TextBox1.Text
st=String.Join(":", st.Split(":"). Reverse())
TextBox1.Text =st

proj1

Answer 1

您可以使用文本框的Lines集合分别对每行进行操作。我使用了一个字符串生成器来创建文本框的新文本。无论何时更改字符串，编译器都会创建一个全新的字符串。 StringBuilder避免了一些开销。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim sb As New StringBuilder
    For Each line As String In TextBox1.Lines
        sb.AppendLine(String.Join(":", line.Split(":"c).Reverse()))
    Next
    TextBox1.Text = sb.ToString
End Sub