vb.net - プログラムに複数行のテキストボックステキストの行を削除させる方法-VisualBasic？

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"))