VB.NET如何解析和添加結果到JSON文件的列表（字符串）？

Question

我正在爲Minecraft創建一個啓動器。我有一個問題，我的啓動程序使用json文件來加載和檢查文件。我怎樣才能從這個json（例子）添加字符串到AssetsList？ https://s3.amazonaws.com/Minecraft.Download/indexes/1.8.json

我的代碼，如果它可以幫助你瞭解我（我使用Newtonsoft.json解析JSON）：

的MCAssets類：

Public Class MCAssets 
    Public hash As String 
End Class 

名單：

Public AssetsList As New List(Of String) 

獲取資產的功能：

Public Async Function GetAssets() As Task 
    If Not Directory.Exists(Root + "\assets\indexes") Then 
     Directory.CreateDirectory(Root + "\assets\indexes") 
    End If 
    Dim client = New WebClient() 
    Await client.DownloadFileTaskAsync(New Uri(String.Format("http://s3.amazonaws.com/Minecraft.Download/indexes/{0}.json", AssetIndex)), String.Format(Root + "\assets\indexes\{0}.json", AssetIndex)) 
    Dim reader As New StreamReader(Root + "\assets\indexes\" + AssetIndex + ".json") 
    Dim assets As String = reader.ReadToEnd() 
    reader.Close() 
    Dim jsonresult = JsonConvert.DeserializeObject(Of Object)(assets) 
    For Each i In jsonresult("objects").Children() 
     AssetsList.Add(i.ToObject(Of MCAssets).hash) 
    Next 
End Function 

如果你想知道更多關於我的世界資產，請訪問此：https://github.com/tomsik68/mclauncher-api/wiki/Minecraft-1.6-resources

Answer 1

你可以做這樣的事情：

Dim assetsObject = JsonConvert.DeserializeObject(Of JObject)(assets) 'assets is your json file 
Dim allAssets = (From i In assetsObject("objects").Children() _ 
       Select New MCAssets() With {.hash = i.First.Value(Of String)("hash")}).ToList() 

順便說一句，有沒有真正需要做一個自定義類。您可以將所有散列添加到字符串列表中，如下所示：

Dim assetsObject = JsonConvert.DeserializeObject(Of JObject)(assets) 
Dim allAssets = (From i In assetsObject("objects").Children() _ 
       Select i.First.Value(Of String)("hash"))