Question

How to convert array strings into dictionary in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim array() As String = {"VB.NET", "Java", "PHP", "C#", "C++"}

        Dim dic As Dictionary(Of String, Integer) = array.ToDictionary(Function(s As String)
                                                                           Return s
                                                                       End Function,
                                                                       Function(s As String)
                                                                           Return s.Length
                                                                       End Function)

        For Each item As KeyValuePair(Of String, Integer) In dic
            Console.WriteLine("{0} : {1}", item.Key, item.Value)
        Next

    End Sub

End Module

' run:
' 
' VB.NET : 6
' Java: 4
' PHP: 3
' C#: 2
' C++ :  3

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim array() As String = {"VB.NET", "Java", "PHP", "C#", "C++"}

        Dim dic As New Dictionary(Of String, Integer)

        For i As Integer = 0 To array.Count - 1
            dic.Add(array(i), i + 1)
        Next

        For Each item As KeyValuePair(Of String, Integer) In dic
            Console.WriteLine("{0} : {1}", item.Key, item.Value)
        Next

    End Sub

End Module

' run:
' 
' VB.NET : 1
' Java: 2
' PHP: 3
' C#: 4
' C++ :  5

 

70+ SQL courses for beginners and professionals