从文本框中删除重复的行并获取已删除行的计数。 （VB.NET）

Question

我正在开发一个酒吧管理软件，我完成了大部分工作，但现在我不知道代码从文本框中删除相同的行并获取删除后的行数被删除。

我的代码到现在为止：

For Each saveitem As ListViewItem In Form1.ListView1.Items
        RichTextBox1.AppendText(saveitem.Text & vbNewLine)
        TextBox3.AppendText(saveitem.SubItems(1).Text & vbNewLine)
    Next
    RichTextBox1.AppendText(vbNewLine & vbNewLine & "TOTALI:" & "  " &  Form1.TextBoxX5.Text & vbNewLine & "TOTALI pa TVSH:" & "  " & TextBox4.Text)

Answer 1

一种可能的方式：

'get array of individual line of text'
Dim textLines = TextBox3.Text.Split(New String(){vbNewLine}, StringSplitOptions.RemoveEmptyEntries)

Dim totalCount = textLines.Length
Dim noDuplicateCount = textLines.Distinct().Count()
'store number of lines removed'
Dim removedLinesCount = totalCount - noDuplicateCount

'join distinct line of texts by new line into single string'
TextBox3.Text = String.Join(vbNewLine, textLines.Distinct())