如何在Visual Basic .NET中自动将多行文本框行移至另一框并删除原行

原循环代码的问题 #

• 循环范围错误：For x As Integer = 0 to strText.Length 会让循环执行 strText.Length + 1 次，当x等于strText.Length时，访问数组元素会触发索引越界异常（数组索引范围是0到strText.Length - 1）。
• 未更新数据源：循环内始终使用初始拆分的strText数组，没有根据txtInputList的内容更新重新获取行数据，导致每次循环都重复添加原数组的第一行，无法处理后续行。
• 无效重复操作：每次循环都将txtInputList设置为原数组去掉第一行的内容，后续循环的设置不会改变控件内容，因为原数组没有变化。

解决方案1：一次性批量移动所有行（高效） #

如果不需要逐行执行额外逻辑，直接一次性处理所有行效率更高：

Private Sub btnProcessItems_Click(sender As Object, e As EventArgs) Handles btnProcessItems.Click
    ' 拆分输入框的内容为行数组
    Dim strText() As String = Split(txtInputList.Text, vbCrLf)
    ' 过滤空行（避免添加无效空行到目标框）
    strText = strText.Where(Function(line) Not String.IsNullOrWhiteSpace(line)).ToArray()
    
    If strText.Length > 0 Then
        ' 将所有行追加到目标框
        txtComplete.AppendText(String.Join(vbCrLf, strText) & vbCrLf)
        ' 清空输入框
        txtInputList.Text = String.Empty
    End If
End Sub

解决方案2：逐行循环移动（适合需要逐行处理的场景） #

如果需要逐行执行额外操作（比如每移动一行触发其他逻辑），可以用循环实时更新控件内容：

Private Sub btnProcessItems_Click(sender As Object, e As EventArgs) Handles btnProcessItems.Click
    Do
        ' 每次循环重新获取输入框的最新内容
        Dim strText() As String = Split(txtInputList.Text, vbCrLf)
        ' 过滤空行
        strText = strText.Where(Function(line) Not String.IsNullOrWhiteSpace(line)).ToArray()
        
        ' 没有内容时退出循环
        If strText.Length = 0 Then Exit Do
        
        ' 更新输入框：移除首行
        txtInputList.Text = String.Join(vbCrLf, strText, 1, strText.Length - 1)
        ' 将首行追加到目标框
        txtComplete.AppendText(strText(0) & vbCrLf)
        
        ' 可选：刷新界面，避免长时间循环导致界面假死
        Application.DoEvents()
    Loop
End Sub

内容的提问来源于stack exchange，提问作者Timothy Waters