VB.NET技术问询：如何让删除指定字符前内容的代码支持TextBox全量文本？

原代码问题分析 #

1. 仅匹配第一个结果：IndexOf方法只会返回文本中第一个匹配txtafter.Text的位置，导致后续行的内容完全没处理。
2. 逻辑错误：String.Remove(startIndex)是删除从startIndex到文本末尾的内容，和你“删除指定内容之前的内容”的需求完全相反，原代码实际是保留了指定内容之前的部分。

修改后的代码（逐行处理） #

以下代码会遍历TextBox中的每一行，删除每行中指定内容之前的内容（保留指定内容及之后的部分）：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 将文本按换行分割为单独的行
    Dim allLines() As String = TextBox1.Text.Split({Environment.NewLine}, StringSplitOptions.None)
    Dim processedLines As New List(Of String)
    
    Dim targetText As String = txtafter.Text
    For Each line As String In allLines
        Dim matchIndex As Integer = line.IndexOf(targetText)
        If matchIndex >= 0 Then
            ' 保留指定内容及之后的部分（如果要删除指定内容本身，就用 matchIndex + targetText.Length）
            Dim resultLine As String = line.Substring(matchIndex)
            processedLines.Add(resultLine)
        Else
            ' 该行没有找到指定内容，可选择保留原行或清空，这里保留原行
            processedLines.Add(line)
        End If
    Next
    
    ' 将处理后的行重新合并为文本
    TextBox2.Text = String.Join(Environment.NewLine, processedLines)
End Sub

代码说明 #

• 使用Split按系统换行符拆分文本，确保兼容不同系统的换行格式。
• 遍历每一行单独处理，避免只修改第一行的问题。
• Substring(matchIndex)会截取从指定内容开始到行尾的所有字符，实现“删除指定内容之前的内容”的需求。如果需要连指定内容一起删除，把matchIndex改成matchIndex + targetText.Length即可。
• 对没有找到指定内容的行，默认保留原行，你可以根据需求改成添加空字符串。

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