vb.netでJSONを分解 Json.NET Newtonsoft.Json

サンプルjson

{
    "14": [
        {
            "328": "1301",
            "332": "名前"
        },
        {
            "328": "1305",
            "332": "名前"
        }
    ],
    "173": "",
    "174": "0",
    "175": "2",
    "176": "2021.08.16-20:50:28.087",
    "177": "2021.08.16-20:50:28.217",
    "192": "hogeData"
}

分解サンプル

nugetから"Newtonsoft.Json"追加しとく

Imports Newtonsoft.Json.Linq

Dim jsonObject = JObject.Parse(jsonstr)

' ループでjson分解
Dim futureCodeArray As New ArrayList
Dim jsonObjectC1
For Each jsonObjectC1 In jsonObject("hogekey")
    Dim jsonObjectC2
    For Each jsonObjectC2 In jsonObjectC1.First
        Debug.WriteLine(jsonObjectC2.Value)
        futureCodeArray.Add(jsonObjectC2.Value)
    Next
Next