遍历 Twitch Json

Question

我还不是很擅长这个，不确定我的主题是否准确地描述了我需要什么。我知道它可能已经回答了，我很难理解答案，因为它们并不直接适用于我的数据。我正在尝试弄清楚如何遍历此 URL 中的数据。

http://tmi.twitch.tv/group/user/twitch/chatters

这是我一直在使用的。

Dim url = "http://tmi.twitch.tv/group/user/" & ConnectionInformation.Channel.TrimStart("#") & "/chatters"
Dim json As String = Nothing
Dim wc As New WebClient()
json = wc.DownloadString(url)

Dim root As JToken = JToken.Parse(json)
For Each item As JToken In root("chatters")
'I've tried several things here and I can't find a good way to iterate through the viewers found here.        
Next

我想我无法让观众进入一个集合以便我可以遍历它们，有人可以在这里指出我正确的方向吗？

谢谢。

Answer 1

“Chatters”实际上是根对象中的一个类型。如果您要创建类，它们将如下所示：

Public Class RootChatter
    Public Property _links As _Links
    Public Property chatter_count As Integer
    Public Property chatters As Chatters
End Class

Public Class _Links
End Class

Public Class Chatters
    Public Property moderators As String()
    Public Property staff As String()
    Public Property admins As String()
    Public Property global_mods As String()
    Public Property viewers As String()
End Class

Viewers 是 Chatter 属性 (Root.Chatters.Viewers) 中的一个数组。没有类：

Dim root As JToken = JToken.Parse(jstr)
Dim chatters = root("chatters")("viewers")

For n As Integer = 0 To chatters.Count - 1
    Console.WriteLine(chatters(n))
Next

输出：

04paynem
0晨星0
0rchlann
0riginus
10108abc

如果你要反序列化到类：

Dim jc = JsonConvert.DeserializeObject(Of RootChatter)(jstr)
Dim viewers = jc.chatters.viewers