How to select only unique values from a list in VB.NET

3 Answers

0 votes
Imports System
Imports System.Linq
Imports System.Collections.Generic

Public Class Program
    Public Shared Sub Main()
        Dim list As List(Of Integer) = New List(Of Integer) From {
            3,
            5,
            2,
            1,
            3,
            3,
            2,
            8,
            9,
            5
        }
		
        Dim unique As List(Of Integer) = list.Distinct().ToList()
		
        Console.WriteLine(String.Join(", ", unique))
    End Sub
End Class







' run:
'
' 3, 5, 2, 1, 8, 9
'

 



answered Jul 30, 2023 by avibootz
0 votes
Imports System
Imports System.Linq
Imports System.Collections.Generic

Public Class Program
    Public Shared Sub Main()
        Dim list As List(Of Integer) = New List(Of Integer) From {
            3,
            5,
            2,
            1,
            3,
            3,
            2,
            8,
            9,
            5
        }
		
        Dim unique As List(Of Integer) = New HashSet(Of Integer)(list).ToList()
		
        Console.WriteLine(String.Join(", ", unique))
    End Sub
End Class







' run:
'
' 3, 5, 2, 1, 8, 9
'

 



answered Jul 30, 2023 by avibootz
0 votes
Imports System
Imports System.Collections.Generic

Public Class Program
	Public Shared Sub Main()
        Dim list As List(Of Integer) = New List(Of Integer) From {
            3,
            5,
            2,
            1,
            3,
            3,
            2,
            8,
            9,
            5
        }
		
        Dim unique = New List(Of Integer)()

        For Each value In list
            If Not unique.Contains(value) Then
                unique.Add(value)
            End If
        Next

        Console.WriteLine(String.Join(", ", unique))
    End Sub
End Class








' run:
'
' 3, 5, 2, 1, 8, 9
'

 



answered Jul 30, 2023 by avibootz

Related questions

3 answers 170 views
1 answer 147 views
1 answer 126 views
1 answer 115 views
1 answer 151 views
1 answer 181 views
...