Re[3]: グリッド表示レコードをJSONに変換 - DOBON.NETプログラミング道掲示板

DOBON.NETプログラミング道掲示板

■35405 / 3階層)

　グリッド表示レコードをJSONに変換

□投稿者/ 魔界の仮面弁士大御所(1542回)-(2023/05/01(Mon) 19:48:46)

■No35403に返信(けいさんの記事)
> 下記のように「New Shohin With」を前もって決まった数だけ書いておけないという点があります。

No35401 の元投稿が Dim data() As Shohin という
配列宣言だったからそれを真似ただけでのことです。
別に配列でも List(Of ) でも同じことですよ。

件数が不定なら、List(Of ) の方が良いでしょうね。

' 実際は data.Add(～) を繰り返す感じになるはず
Dim data As New List(Of Shohin)() From {
　　New Shohin With {.商品C = 10000, .商品名 = "商品A"},
　　New Shohin With {.商品C = 10001, .商品名 = "商品B"},
　　New Shohin With {.商品C = 10002, .商品名 = "商品C"}
}

'GetType を配列から List(Of ) に変更
Dim serializer As New DataContractJsonSerializer(GetType(List(Of Shohin)))
Dim ms As New MemoryStream()
serializer.WriteObject(ms, data)

TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray())

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[2]: グリッド表示レコードをJSONに変換 /けい	→Re[4]: グリッド表示レコードをJSONに変換 /けい
グリッド表示レコードをJSONに変換 / けい (23/05/01(Mon) 17:08) #35401
`└` Re[1]: グリッド表示レコードをJSONに変換 / 魔界の仮面弁士 (23/05/01(Mon) 18:32) #35402
`└` Re[2]: グリッド表示レコードをJSONに変換 / けい (23/05/01(Mon) 19:31) #35403
`├` Re[3]: グリッド表示レコードをJSONに変換 / けい (23/05/01(Mon) 19:36) #35404
`└` グリッド表示レコードをJSONに変換 / 魔界の仮面弁士 (23/05/01(Mon) 19:48) #35405 ←Now
`└` Re[4]: グリッド表示レコードをJSONに変換 / けい (23/05/02(Tue) 11:59) #35406 解決済み!
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 80% 以上のコメントは投稿できません。

半角カナは使用しないでください。文字化けの原因になります。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- 使用例)
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

投稿前に必ずお読みください

初めて投稿される方は、必ず「書き込みのルールについて（12/4/2更新）」をお読みください。読むのが面倒、ルールを守りたくないという方は、「お気楽掲示板」へ投稿してください。
質問を投稿する場合は、「質問をする際のアドバイス」を参考にしてください。
投稿は、明記のない限り、パブリックドメインになります。
マルチポストされた投稿を報告する時は匿名で投稿し、マルチポストされている場所を併記してください。以下のリンクをクリックしていただくと、自動で下のフォームが埋まりますので、その後「送信」ボタンを押してご投稿ください。
- マルチポストの報告をする
- マルチポストの報告をするが、マルチポスト先の投稿が嫌がらせである（元の投稿者とは別人が行なっている）可能性が高い（投稿日時に開きがあり、こちらの投稿の方が早い場合は、その可能性が高いです）

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No35405に返信(魔界の仮面弁士さんの記事) > ■No35403に返信(けいさんの記事) >>下記のように「New Shohin With」を前もって決まった数だけ書いておけないという点があります。 > > No35401 の元投稿が Dim data() As Shohin という > 配列宣言だったからそれを真似ただけでのことです。 > 別に配列でも List(Of ) でも同じことですよ。 > > 件数が不定なら、List(Of ) の方が良いでしょうね。 > > ' 実際は data.Add(～) を繰り返す感じになるはず > Dim data As New List(Of Shohin)() From { > 　　New Shohin With {.商品C = 10000, .商品名 = "商品A"}, > 　　New Shohin With {.商品C = 10001, .商品名 = "商品B"}, > 　　New Shohin With {.商品C = 10002, .商品名 = "商品C"} > } > > 'GetType を配列から List(Of ) に変更 > Dim serializer As New DataContractJsonSerializer(GetType(List(Of Shohin))) > Dim ms As New MemoryStream() > serializer.WriteObject(ms, data) > > TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray()) >
File	/ アップ可能拡張子=> /.gif/.jpg/.png/.zip 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回20KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/300KB] 残り:[300KB]
Icon	/ (画像を選択/サンプル一覧)
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!（スレッドを閉じる目的ではチェックしないでください!）
クリエイティブ・コモンズ・ライセンスを Comment の末尾に挿入するには、以下のリンクをクリックしてください。（Javascript で挿入しているだけです。）表示（CC BY） \| 表示-改変禁止（CC BY-ND） \| 表示-継承（CC BY-SA） \| 表示-非営利（CC BY-NC） \| 表示-非営利-改変禁止（CC BY-NC-ND） \| 表示-非営利-継承（CC BY-NC-SA）
プレビュー/　クッキーに保存しない/