JSONファイルからすべてのappIDを収集

Question

私の質問は、テキストコンポーネントに特定の値を入れるときにエラーが発生するJSONファイルについてです。

{ 
"response": { 
    "game_count": 4, 
    "games": [ 
     { 
      "appid": 10, 
      "playtime_forever": 0 
     }, 
     { 
      "appid": 20, 
      "playtime_forever": 0 
     }, 
     { 
      "appid": 30, 
      "playtime_forever": 0 
     }, 
     { 
      "appid": 40, 
      "playtime_forever": 0 
     } 
    ] 

    } 
} 

私は、リッチテキストボックスで「APPID」から値を取得するために、他の下の1を「10,20,30,40」をしようとしています。このために、私はこのコードを使用しています：

JsonString = file 

     Dim jsonObject As JObject = JObject.Parse(JsonString) 
     Dim JsonArray As JArray = JArray.Parse(jsonObject.SelectToken("games").ToString) 
     For Each item As JObject In JsonArray 
      RichTextBox2.Text = item.SelectToken("appid").ToString 

     Next 

をしかし、私は上記のコードの行4で、次のエラーを取得しています：

オブジェクト参照オブジェクトのインスタンスに設定されていない

これを修正する方法はありますか？私は自分のコードが正しいと信じています。私はNewtonSoftライブラリを使用しています。

Answer 1

あなたは".."がJSONPath再帰下降演算子である場合には、再帰的にJSONトークン階層を降下し、"appid"名前付きプロパティの値を見つけるためにSelectTokens("..appid")を使用することができます。私はその後、キャストすべて"appid"値を見つけた後

Dim jsonObject As JToken = JToken.Parse(JsonString) 
Dim appids = jsonObject _ 
    .SelectTokens("..appid") _ 
    .Select(Function(t) CType(t, Long)) _ 
    .ToList() 

を使用してLongIntにキャストすることができます。appidの値がすべてInt.MaxValue未満になることが確実であればキャストできます。数値に興味がない場合は、Stringにキャストすることもできます。

作業.Net fiddle。