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

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

HOME HELP 新規作成新着記事ツリー表示スレッド表示トピック表示発言ランクファイル一覧検索過去ログ

■35401 / 親階層)

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

□投稿者/ けい一般人(1回)-(2023/05/01(Mon) 17:08:45)

環境/言語:[Windows10、VB.NET2022]　
分類:[.NET]　

お世話になります。

DataGridView1に表示されているレコードを、
JSON形式に変換したいと考えています。

レコードはこちらの内容です（2列3行）。
【商品（クラス名：Shohin）】
商品C＝10000
商品名＝商品Ａ
商品C＝10001
商品名＝商品Ｂ
商品C＝10002
商品名＝商品Ｃ

VB.NETでJSONを扱う方法に、
元々VB.NETに備わっている機能を使う、
JSON.NETを使う、
の2種類があると思いますが、
ここではセキュリティの面もあり、
前者を使います。

DataGridView1にレコードが表示されており、
Button1を押すと、
TextBox1にJSON変換データが表示されます。
（商品データ以外の前後の部分はここでは割愛します。）

コードは以下の通りです。

Public Class Shohin
Public Property 商品C As Integer
Public Property 商品名 As String
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim data() As Shohin
ReDim data(2)
Dim sw As New System.Runtime.Serialization.Json.DataContractJsonSerializer(GetType(Shohin))
Dim ms As New MemoryStream()
Dim output As String
For i = 0 To 2
data(i) = New Shohin
data(i).商品C = DataGridView1.Rows(i).Cells(0).Value
data(i).商品名 = DataGridView1.Rows(i).Cells(1).Value
sw.WriteObject(ms, data(i))
Next
output = Encoding.UTF8.GetString(ms.ToArray())
TextBox1.Text = output
End Sub

上記のコードを実行しますと、
表示結果が、
次のようになります。

{"商品C":10000,"商品名":"商品A"}
{"商品C":10001,"商品名":"商品B"}
{"商品C":10002,"商品名":"商品C"}

これですと、｛｝の間にカンマ（,）がついておりません。
{"商品C":10000,"商品名":"商品A"}
,{"商品C":10001,"商品名":"商品B"}
,{"商品C":10002,"商品名":"商品C"}
のようにしたいです。

上記Forループ内で、
1行目ではない場合は、
sw.WriteObject(ms, ",")
sw.WriteObject(ms, data(i))
と記述しますと、
表示結果が下記のようになってしまいます。

{"商品C":10000,"商品名":"商品A"}
","{"商品C":10001,"商品名":"商品B"}
","{"商品C":10002,"商品名":"商品C"}

いろいろ調べておりますが、
わかりませんでした。

まことにお手数と存じますが、
どうぞよろしくお願いいたします。

マルチポストを報告

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
親記事	→Re[1]: グリッド表示レコードをJSONに変換 /魔界の仮面弁士
グリッド表示レコードをJSONに変換 / けい (23/05/01(Mon) 17:08) #35401 ←Now
`└` 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
`└` Re[3]: グリッド表示レコードをJSONに変換 / 魔界の仮面弁士 (23/05/01(Mon) 19:48) #35405
`└` 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文字以内) ■No35401に返信(けいさんの記事) > お世話になります。 > > DataGridView1に表示されているレコードを、 > JSON形式に変換したいと考えています。 > > レコードはこちらの内容です（2列3行）。 > 【商品（クラス名：Shohin）】 > 商品C＝10000 > 商品名＝商品Ａ > 商品C＝10001 > 商品名＝商品Ｂ > 商品C＝10002 > 商品名＝商品Ｃ > > VB.NETでJSONを扱う方法に、 > 元々VB.NETに備わっている機能を使う、 > JSON.NETを使う、 > の2種類があると思いますが、 > ここではセキュリティの面もあり、 > 前者を使います。 > > DataGridView1にレコードが表示されており、 > Button1を押すと、 > TextBox1にJSON変換データが表示されます。 > （商品データ以外の前後の部分はここでは割愛します。） > > コードは以下の通りです。 > > Public Class Shohin > Public Property 商品C As Integer > Public Property 商品名 As String > End Class > > Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click > Dim data() As Shohin > ReDim data(2) > Dim sw As New System.Runtime.Serialization.Json.DataContractJsonSerializer(GetType(Shohin)) > Dim ms As New MemoryStream() > Dim output As String > For i = 0 To 2 > data(i) = New Shohin > data(i).商品C = DataGridView1.Rows(i).Cells(0).Value > data(i).商品名 = DataGridView1.Rows(i).Cells(1).Value > sw.WriteObject(ms, data(i)) > Next > output = Encoding.UTF8.GetString(ms.ToArray()) > TextBox1.Text = output > End Sub > > 上記のコードを実行しますと、 > 表示結果が、 > 次のようになります。 > > {"商品C":10000,"商品名":"商品A"} > {"商品C":10001,"商品名":"商品B"} > {"商品C":10002,"商品名":"商品C"} > > これですと、｛｝の間にカンマ（,）がついておりません。 > {"商品C":10000,"商品名":"商品A"} > ,{"商品C":10001,"商品名":"商品B"} > ,{"商品C":10002,"商品名":"商品C"} > のようにしたいです。 > > 上記Forループ内で、 > 1行目ではない場合は、 > sw.WriteObject(ms, ",") > sw.WriteObject(ms, data(i)) > と記述しますと、 > 表示結果が下記のようになってしまいます。 > > {"商品C":10000,"商品名":"商品A"} > ","{"商品C":10001,"商品名":"商品B"} > ","{"商品C":10002,"商品名":"商品C"} > > いろいろ調べておりますが、 > わかりませんでした。 > > まことにお手数と存じますが、 > どうぞよろしくお願いいたします。 > >
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）
プレビュー/　クッキーに保存しない/

HOME HELP 新規作成新着記事ツリー表示スレッド表示トピック表示発言ランクファイル一覧検索過去ログ

- Child Tree -