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

Question

我有2个字符串，两个都被（“”）分开，两个都有40个不同的子字符串，第一个叫做dick是可能的键，另一个叫做dicv是想要的值，我怎么能填写一个字典和那些？

我试过这个：

    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是带键的字符串，dicv是带值的字符串。

但是当我将dick和dicv指定为kvp.key和kvp.value时，我收到错误“string不能转换为string（）”。

非常感谢你。

Answer 1

我猜错了dick和dicv被声明为数组。以下是如何为数组赋值。 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