从多行字符串中消除重复

Question

我有一个名为Textbox1的文本框控件，其中包含以下项（在多行字符串中）：

22,23
57,58
20,21
51,52
57,58
20,21
21,22
25,26
35,36
41,42
50,51
22,23
23,24
37,38
44,45
45,46
67,68
72,73
78,79

如何删除两位数的重复项？而不是20,21，它不会出现两次和一次。如果在另一行中仍然存在2个数字的组合，则此组合出现一次。等等。

Answer 1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim lines() As String = TextBox1.Text.Split(New String() {vbCrLf, vbCr, vbLf}, StringSplitOptions.None)
    Dim repeatedElement As String = ""

    'First have to sort array
    System.Array.Sort(lines)

    For Each Line As String In lines
        If Not (String.Compare(Line, repeatedElement) = 0) Then
            TextBox2.Text += Line & vbCrLf
        End If

        repeatedElement = Line
    Next
End Sub

此处textBox1用于源文本，而textBox2用于结果。