Как заставить программу удалять строки в тексте многострочного текстового поля - Visual Basic?

Я хочу создать программу, которая будет удалять текстовые строки, если строка содержит «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

vb.net multiline textbox
person Alex    schedule 18.11.2012    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Просто используйте _ 1_ массив и _ 2_:

TextOut.Lines = Array.FindAll(TextOut.Lines, Function(line) Not line.Contains("0,00"))
person Ry-♦    schedule 18.11.2012
comment
О, я думал, это будет намного, намного сложнее. Спасибо, это работает! - person Alex; 18.11.2012