Question

How to sort a dictionary by value in VB.NET

Answer 1

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

Public Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim dic As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)()
		
        dic.Add("c#", 99)
        dic.Add("php", 44)
        dic.Add("c++", 888)
        dic.Add("java", 1)
		
        Dim list As List(Of KeyValuePair(Of String, Integer)) = dic.ToList()
        
		list.Sort(Function(pair1, pair2) pair1.Value.CompareTo(pair2.Value))

        For Each element In list
            Console.WriteLine(element)
        Next
    End Sub
End Class




' run:
'
' [java, 1]
' [php, 44]
' [c#, 99]
' [c++, 888]
'

 

70+ SQL courses for beginners and professionals

Answer 2

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

Public Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim dic As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)()
		
        dic.Add("c#", 99)
        dic.Add("php", 44)
        dic.Add("c++", 888)
        dic.Add("java", 1)
		
        Dim list As List(Of KeyValuePair(Of String, Integer)) = dic.ToList()
		
        list.Sort(Function(pair1, pair2) pair1.Value.CompareTo(pair2.Value))

        For Each kv As KeyValuePair(Of String, Integer) In list
            Console.WriteLine(kv.Key & " - " & kv.Value)
        Next
    End Sub
End Class





' run:
'
' java - 1
' php - 44
' c# - 99
' c++ - 888
'

 

70+ SQL courses for beginners and professionals

Answer 3

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

Public Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim dic As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)()
		
        dic.Add("c#", 99)
        dic.Add("php", 44)
        dic.Add("c++", 888)
        dic.Add("java", 1)
		
        Dim sortedDic = From entry In dic Order By entry.Value Select entry

        For Each keyval As KeyValuePair(Of String, Integer) In sortedDic
            Console.WriteLine("Key = {0}, Value = {1}", keyval.Key, keyval.Value)
        Next
    End Sub
End Class






' run:
'
' Key = java, Value = 1
' Key = php, Value = 44
' Key = c#, Value = 99
' Key = c++, Value = 888
'

 

70+ SQL courses for beginners and professionals

Answer 4

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

Public Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim dic As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)()
		
        dic.Add("c#", 99)
        dic.Add("php", 44)
        dic.Add("c++", 888)
        dic.Add("java", 1)

        For Each keyval As KeyValuePair(Of String, Integer) In dic.OrderBy(Function(key) key.Value)
            Console.WriteLine("Key = {0}, Value = {1}", keyval.Key, keyval.Value)
        Next
    End Sub
End Class







' run:
'
' Key = java, Value = 1
' Key = php, Value = 44
' Key = c#, Value = 99
' Key = c++, Value = 888
'

 

70+ SQL courses for beginners and professionals

Answer 5

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

Public Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim dic As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)()
		
        dic.Add("c#", 99)
        dic.Add("php", 44)
        dic.Add("c++", 888)
        dic.Add("java", 1)
        
		Dim sortedDic = dic.OrderBy(Function(x) x.Value)

        For Each keyval As KeyValuePair(Of String, Integer) In sortedDic
            Console.WriteLine("Key = {0}, Value = {1}", keyval.Key, keyval.Value)
        Next
    End Sub
End Class







' run:
'
' Key = java, Value = 1
' Key = php, Value = 44
' Key = c#, Value = 99
' Key = c++, Value = 888
'

 

70+ SQL courses for beginners and professionals

Answer 6

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

Public Class Program
	Public Shared Sub Main(ByVal args As String())
        Dim dic As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)()
		
        dic.Add("c#", 99)
        dic.Add("php", 44)
        dic.Add("c++", 888)
        dic.Add("java", 1)
		
        Dim list = dic.Keys.ToList()
		
        list.Sort()

        For Each key In list
            Console.WriteLine("{0} - {1}", key, dic(key))
        Next
    End Sub
End Class






' run:
'
' c# - 99
' c++ - 888
' java - 1
' php - 44
'

 

70+ SQL courses for beginners and professionals