从多行字符串中消除重复

时间:2019-02-07 09:16:22

标签: vb.net

我有一个名为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个数字的组合,则此组合出现一次。等等。

1 个答案:

答案 0 :(得分:0)

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用于结果。