[How To] Remove Duplicates From A Listbox

[PURP]

I do not know if this has been posted before but I thought someone might find this useful.



Here is the code

Spoiler (Click to View)

[KoBE]

Good share PURP, it should help some people out.

[iCrack]

Nice share PURP! ;)

[PURP]

Good share PURP, it should help some people out.

Thank you KoBE

Nice share PURP! ;)

Why thank you very much!

[euverve]

Since the code is in image, and cannot be copy and pasted. I post for copy and paste purposes. A bit slight change in codings but same output as the TS.

Full codes:

Code:

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'This opens a .txt to the listbox
        Try
            Using asd As New OpenFileDialog() With {.Filter = ("Text Files|*.txt")}
                asd.ShowDialog()
                Using streamread As New IO.StreamReader(asd.FileName)
                    While (streamread.Peek() > -1)
                        ListBox1.Items.Add(streamread.ReadLine)
                    End While
                End Using
            End Using
        Catch ex As Exception
        End Try
        Label1.Text = ListBox1.Items.Count
    End Sub


    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'This removes all duplicates from a listbox
        Dim i, j As Integer
        Dim arr As New ArrayList
        Dim itemfound As Boolean
        For i = 0 To ListBox1.Items.Count - 1
            itemfound = False
            For j = 0 To i - 1
                If ListBox1.Items.Item(i) = ListBox1.Items.Item(j) Then
                    itemfound = True
                    Exit For
                End If
            Next j

            If Not itemfound Then
                arr.Add(ListBox1.Items.Item(i))
            End If
        Next i
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(arr.ToArray)
        arr = Nothing
        Label1.Text = ListBox1.Items.Count
    End Sub
End Class

[iCrack]

Since the code is in image, and cannot be copy and pasted. I post for copy and paste purposes. A bit slight change in codings but same output as the TS.

Full codes:

Code:

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'This opens a .txt to the listbox
        Try
            Using asd As New OpenFileDialog() With {.Filter = ("Text Files|*.txt")}
                asd.ShowDialog()
                Using streamread As New IO.StreamReader(asd.FileName)
                    While (streamread.Peek() > -1)
                        ListBox1.Items.Add(streamread.ReadLine)
                    End While
                End Using
            End Using
        Catch ex As Exception
        End Try
        Label1.Text = ListBox1.Items.Count
    End Sub


    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'This removes all duplicates from a listbox
        Dim i, j As Integer
        Dim arr As New ArrayList
        Dim itemfound As Boolean
        For i = 0 To ListBox1.Items.Count - 1
            itemfound = False
            For j = 0 To i - 1
                If ListBox1.Items.Item(i) = ListBox1.Items.Item(j) Then
                    itemfound = True
                    Exit For
                End If
            Next j

            If Not itemfound Then
                arr.Add(ListBox1.Items.Item(i))
            End If
        Next i
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(arr.ToArray)
        arr = Nothing
        Label1.Text = ListBox1.Items.Count
    End Sub
End Class

He probably didn't want people to copy & paste...

[PURP]

He probably didn't want people to copy & paste...

I didn't :/ I don't like when people c&p..

Atleast when people type it out it helps then understand some.