在json输出的VB .NET中从键值对的值中捕获字符串列表

Question

我有一个有效的请求后响应转换为json

Dim jsonResulttodict = JsonConvert.DeserializeObject(Of Dictionary(Of String, object))(responseFromServer)

在解析字典时，我发现了一个字符串列表，如下所示

Dim levelOne = jsonResulttodict.item ("level_one")
Dim levelTwo = levelOne.item ("level_two")

在鼠标悬停时，levelTwo显示为：

{["value-3", "value-2", "value-1"]}

Console.Writeline(levelTwo.ToString())的结果是：

[ "value-3", "value-2", "value-1" ]

这听起来很傻，但我只是无法将其捕获到一个变量(字符串列表)中。

我已经试过了，但都没有用：

Dim mylist As List(Of String) = New List(Of String)({levelOne.item("level_two")})

和

For Each pair As KeyValuePair(Of String, List(Of String)) In levelTwo
            Console.WriteLine(pair.Key)
            Console.Write("  ")
            Console.WriteLine(pair.Value)
        Next

Answer 1

在进一步检查时，我打印出了变量的类型。

Console.WriteLine(levelTwo.GetType())

我得到它的Newtonsoft.Json.Linq.JArray。现在一切看起来都很琐碎。

现在，我可以按以下方式迭代JArray

for each value as String In levelTwo
    Console.WriteLine(value.ToString())
Next

印刷品如下：

value-3
value-2
value-1