Question

How to remove duplicates from a list in VB.NET

Answer 1

Imports System
Imports System.Linq
Imports System.Collections.Generic

Public Class Program
	Public Shared Sub Main()
        Dim list = New List(Of Integer)() From { 2, 4, 4, 9, 7, 3, 4, 6, 0, 3 }
        
		list = list.Distinct().ToList()
        
		Console.WriteLine(String.Join(" ", list))
    End Sub
End Class




' run:
'
' 2 4 9 7 3 6 0
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function RemoveDuplicates(ByVal list As List(Of String)) As List(Of String)
        Dim result = New List(Of String)()
        Dim _set = New HashSet(Of String)()

        For i As Integer = 0 To list.Count - 1
            If Not _set.Contains(list(i)) Then
                result.Add(list(i))
                _set.Add(list(i))
            End If
        Next

        Return result
    End Function

    Public Shared Sub Main()
        Dim list = New List(Of String)() From { "a", "b", "b", "a", "c", "b", "b", "c", "c", "d" }
        
		list = RemoveDuplicates(list)
    	    
		Console.WriteLine(String.Join(" ", list))
    End Sub
End Class





' run:
'
' a b c d
'

 

70+ SQL courses for beginners and professionals