如何在VB 2017中用2个拆分字符串填充字典

Question

I have 2 string, both split by (" ") and both around 40 different sub strings, first one called dick is the would-be keys, and the other one called dicv is the would-be values, how can I fill a dictionary with those?

I tried this:

    Dim dicty As New Dictionary(Of String, String)

    For Each kvp As KeyValuePair(Of String, String) In dicty

    dick = kvp.Key
    dicv = kvp.Value

    Next

dick is the string with keys and dicv the one with values.

But I receive error "string cannot be converted to string()" when assigning dick and dicv as kvp.key and kvp.value.

Thank you very much.

Answer 1

I am guessing from the error that dick and dicv are declared as arrays. The following is how you assign values to arrays. ArrayVariable(index) = value

Private Sub ConvertDictionaryToArrays()
        Dim dicty As New Dictionary(Of String, String)
        Dim dick(dicty.Count - 1) As String
        Dim dicv(dicty.Count - 1) As String
        Dim index As Integer = 0
        For Each kvp As KeyValuePair(Of String, String) In dicty
            dick(index) = kvp.Key
            dicv(index) = kvp.Value
            index += 1
        Next
End Sub

Answer 2

Private Sub FillDictionary()
    Dim dicty As New Dictionary(Of String, String)

    Dim dick(39) As String 'Guess that you have both of these arrays
    Dim dicv(39) As String

    For i As Integer = 0 To dick.Length - 1
        dicty.Add(dick(i), dicv(i))
    Next i
End Sub