VB.NET中RichTextBox筛选含指定字符行至TextBox的代码问题排查

我来帮你梳理下这段代码的问题，以及对应的解决办法：

首先，你的代码存在两个核心问题，导致无法实现“把所有含'x'的行复制到TextBox2”的需求：

• 遍历对象错误：你现在遍历的是RichTextBox1.Text，这是一个完整的字符串，For Each line As String In RichTextBox1.Text实际上会逐个遍历字符串里的每个字符，而不是每行文本，完全偏离了你的目标。正确的做法是使用RichTextBox1.Lines属性，它会返回一个字符串数组，每个元素对应一行文本。

• 文本覆盖而非追加：每次找到符合条件的行时，你直接用RichTextBox2.Text = line赋值，这会把之前找到的行全部覆盖掉，最终TextBox2里只会显示最后一行符合条件的内容。你需要把符合条件的行追加进去，而不是替换原有内容。

修正后的基础版本代码 #

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
    ' 先清空目标文本框，避免重复点击时累积旧内容
    RichTextBox2.Clear()
    ' 遍历RichTextBox1的每一行
    For Each line As String In RichTextBox1.Lines
        If line.Contains("x") Then
            ' 追加符合条件的行，加上换行符保持原有行格式
            RichTextBox2.Text &= line & Environment.NewLine
        End If
    Next
End Sub

额外性能优化建议 #

如果你的RichTextBox1内容较多，使用&=拼接字符串会频繁创建新字符串，效率偏低。可以改用StringBuilder来提升性能：

Imports System.Text ' 需要在代码文件顶部导入这个命名空间

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
    RichTextBox2.Clear()
    Dim sb As New StringBuilder()
    For Each line As String In RichTextBox1.Lines
        If line.Contains("x") Then
            sb.AppendLine(line)
        End If
    Next
    RichTextBox2.Text = sb.ToString()
End Sub

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