また、１つの課題なのですが、 実際には、商品レコードの数がソフト実行の度に異なるため、 下記のように「New Shohin With」を前もって決まった数だけ書いておけないという点があります。 この部分で、毎回読み取るレコードの数だけ、 New Shohin Withをループさせるようなことができるか、 が課題です。
研究してみます。
> Dim data() As Shohin = { > New Shohin With {.商品C = 10000, .商品名 = "商品A"}, > New Shohin With {.商品C = 10001, .商品名 = "商品B"}, > New Shohin With {.商品C = 10002, .商品名 = "商品C"} > } > Dim serializer As New DataContractJsonSerializer(GetType(Shohin())) > Dim ms As New MemoryStream() > serializer.WriteObject(ms, data) > TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray())
