vb.net - 反转文本框多行

Question

我有 Textbox.Lines

2
4
3
9

预期输出：

9 
3
4
2

我如何使用该代码？该代码适用于文本长度而不适用于行。

Public Sub ReverseText(ByVal Textbx As TextBox)
    Dim sOutput As String = ""
    For i = Textbx.TextLength - 1 To 0 Step -1
        sOutput &= Textbx.Text.ElementAt(i)
    Next
    Textbx.Text = sOutput
End Sub

标签： vb.net

Answer 1

您可以使用 的Lines属性TextBox来获取每一行文本。

对代码进行简单修改以通过这些行中的每一行应该可以解决您的问题：

Public Sub ReverseText(ByVal Textbx As TextBox)
    Dim sOutput(Textbx.Lines.Length) As String
    Dim Count As Integer = 0

    For i = Textbx.Lines.Length - 1 To 0 Step -1
        sOutput(Count) = Textbx.Lines(i)
        Count += 1
    Next

    Textbx.Lines = sOutput
End Sub

在上面的代码array中，string创建了一个名为sOutput.

然后以相反的顺序将Lines中的每个TextBox添加到数组中。sOutput

最后，Lines的TextBox被更新为新的 reversed array。