迭代Twitch

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

查看器是Chatters属性(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 奥克兰恩 里吉纳斯 10108

如果要反序列化到类：

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