vb.net - 如何使程序删除多行文本框文本中的行 - 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.FindAll：

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