VB.NET JSONファイルのシリアライズについて（続き）

Question

完成形

  "Carlist": {
    "maker": "TOYOTA",
    "shasyu": [
      {
        "shasyunm": "Prius",
        "katasiki": [
          {
            "katamei": "6AA-ZVW51"
          },
          {
            "katamei": "DAA-ZVW55"
          }
        ]
      },
      {
        "shasyunm": "Yaris",
        "katasiki": []
      }
    ]
  }
}

        Dim carlist As New carlist

        JsonInfo.Carlist = carlist
        carlist.Maker = "TOYOTA"
        carlist.shasyu = New List(Of shasyu)
        carlist.shasyu.Add(New shasyu With {
                        .shasyunm = "Prius",
                        .katasiki = New List(Of katasiki) From {
                            New katasiki With {
                                .katamei = "6AA-ZVW51"
                            },
                            New katasiki With {
                               .katamei = "DAA-ZVW55"
                            }
                        }
        })
        carlist.shasyu.Add(New shasyu With {
                        .shasyunm = "Yaris",
                        .katasiki = New List(Of katasiki)
        })

以前に、jsonファイルのkatasikiの部分のコーディング方法がわからなく
上記のような回答を頂きましたが、実際のプログラムでは
shasyunmに対するkatasikiの数はバラバラで
katasiki部分をループ処理等で記述出来る方法があればご教示願います。

以前の質問及び回答です。

Comments

[1T2R3M4]

調べたこと、試したことを質問に追記していただけませんか。

[退会済みユーザー]

> 以前に...

そのスレッドの url を質問欄に書いてください。その際クリックすれば飛べるようにリンクを張ってください。

[Zuishin]

型式が一つ一つ違うのにループ処理？
どこからデータを持ってくるつもりなんだろう。

[YAmaGNZ]

まずは一度にnewせずに別々に書いてみましょう。
回答で貰ったソースを理解していない証拠かと

[退会済みユーザー]

質問文は意味不明だし、一体何がしたいのか分かりません。今度は JSON 文字列をデシリアライズした VB.NET のオブジェクトからデータを取得したい？

一度読んでみましょう→ https://teratail.com/help/question-tips
特に以下の部分:

"人に質問をするには、自分が何を尋ねたいかを知っている必要があります。これは、「自分が今『何がわからないのか』がわかっていて、言語化できている」ということです。一見簡単なようですが、実はとても難しいことです。何がわからないかわからない人から質問を受けても、答える側も困ってしまいます。"

[退会済みユーザー]

質問者さん、無言ですが、回答が出ているのでそれに対するフィードバックを返しましょう。期待する回答であればベストアンサーを付けてこのスレッドはクローズしてください。期待と違うならどこがどう違うかを書きましょう。とにかく無言で放置は NG です。

Answer 1

katasikiが複数ある場合は単純にAddしてあげればいいだけです。

New List(Of katasiki) From {
                            New katasiki With {
                                .katamei = "6AA-ZVW51"
                            },
                            New katasiki With {
                               .katamei = "DAA-ZVW55"
                            }
                        }

これは複数のkatasikiオブジェクトをList作成時に入れてるだけなので
分解するとこんな感じになります。

.katasiki = New List(Of katasiki)
.katasiki.Add(New katasiki With { .katamei = "6AA-ZVW51" })
.katasiki.Add(New katasiki With { .katamei = "DAA-ZVW55" })

ただこの場合ループ処理の中で行うとしたら対応するshasyuを取得してから追加する事になるので
carlist.shasyu.Where(Function(n) n.shasyunm = "Prius").First()
みたいにshasyuオブジェクトを取得してからAddすればいいかと。

Comments

[n_ohno]

回答ありがとうございます。
arlist.shasyu.Where(Function(n) n.shasyunm = "Prius").First()
の意味を調べてみます。