Question

我的程序中设置了两个词典，两个词都包含第一个元素的相同名称。我的问题是有没有办法同时读取两个字典，只显示每行字典的第二个元素，然后对第一个元素中的所有名称执行此操作？

我从单个词典中读取的当前代码是：

For Each name As String In wordCount.Keys
        lineoutput &= name & " spoke a total of " & wordCount.Item(name) & " words." & vbCrLf
    Next

我有另一个名为wordCount2的字典，我设置的字典与此名称相同，但第二个元素的编号不同。有没有办法访问它们，以便我可以在同一行上获得有关每个名称的所有信息？

Answer 1

您可以制作单个字典而不是两个字典。

该单个字典的每个元素都有一个整数数组或列表，带有两个数字。

我做了一个例子：

Module Module1

    Sub Main()

        Dim dictionary As New Dictionary(Of String, Integer())

        Dim myInts(1) As Integer
        myInts(0) = 5
        myInts(1) = 7

        Dim myInts2(1) As Integer
        myInts2(0) = 8
        myInts2(1) = 9

        dictionary.Add("name1", myInts)
        dictionary.Add("name2", myInts2)

        For Each element In dictionary
            Console.WriteLine(element.Key + ": " + element.Value(0).ToString + ", " + element.Value(1).ToString)
        Next

    End Sub

End Module

在vb中同时阅读两本词典

1 个答案: