如何使程序删除多行文本框文本中的行 - Visual Basic？

Question

如果该行包含“0,00”，我想创建一个删除文本行的程序。我在打印功能中用“vbCrLf”分隔了这些行。

这是我想出的功能，有人可以纠正吗？

Public Sub IzVrstic1()
    Dim arrLines() As String = TextOut.Text.Split(CChar(vbLf))
    TextOut.Clear()
    For Each ln As String In arrLines           
        If Not ln.Contains("0,00") Then
            TextOut.Text &= ln & vbCrLf
        End If
    Next

End Sub

Answer 1

只需使用Lines array和Array.FindAll：

TextOut.Lines = Array.FindAll(TextOut.Lines, Function(line) Not line.Contains("0,00"))