去掉重复内容

Imports System.IO
Imports System.Web

Public Class EmailList

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     
        '是system.io方法读取
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(Application.StartupPath & "\files\user_email.Txt", System.Text.Encoding.Default)

        Dim line As String
        ListBox1.Items.Clear()
        line = "test" '随便赋一个初值
        '添加到控件中
        Do While sr.Peek() >= 0
            line = sr.ReadLine
            ListBox1.Items.Add(line)
        Loop
        Label1.Text = "总共读取" & ListBox1.Items.Count

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim newList As New ArrayList

        With ListBox1
            For i = 0 To .Items.Count - 1
                If Not newList.Contains(.Items(i)) Then
                    newList.Add(.Items(i))
                End If
            Next i
            .Items.Clear()
            For i = 0 To newList.Count - 1
                Dim StrA As String = newList(i)
                Dim StrB As String = "@"
                Dim Stu As Boolean = InStr(StrA, StrB)
                If Stu = True Then
                    .Items.Add(newList(i))
                Else

                End If

            Next i
        End With
        Label2.Text = " 整理后，总共" & ListBox1.Items.Count
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim SaveFileName As String
        Dim myStreamWriter As StreamWriter
        SaveFileName = Application.StartupPath + "\files\ok.txt"
        myStreamWriter = File.CreateText(SaveFileName)
        Dim MyOutput As String

        '循环写入TXT

        With ListBox1

            For i = 0 To ListBox1.Items.Count - 1
                MyOutput = ListBox1.Items(i)
                myStreamWriter.WriteLine(MyOutput)
            Next i
        End With

        myStreamWriter.Close()
        Label5.Text = "写入成功"
    End Sub
End Class