从 DataGridView 创建 Json 属性-解网

问：

我不确定如何解释这一点，但这里是：

我正在尝试从 DataGridView 为 JSON 文件创建属性。我正在使用 newtonsoft 来处理 JSON 序列化。

从本质上讲，用户将他们的值添加到两列中，这些值将转换为属性。假设用户在 Column1 中输入值 10、20、30，然后在 Column2 中输入 “A” “B” “C”，则生成的 JSON 应为：

prompt_map: {
"10": "A"
"20": "B"
"30": "C"
}

它应该根据用户创建的行数继续进行。

我以为我会分享我的代码，但是我不确定它是否有帮助，因为我什至不确定如何处理这个问题。

这些值将作为嵌套放在prompt_map字符串中

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      
    Dim myJson As JsonStructure
    myJson = New JsonStructure
    myJson.prompt_map

    Dim myString As String
    myString = JsonConvert.SerializeObject(myJson, Formatting.Indented)
    MsgBox(myString) 'debugging

End Sub

Public Class JsonStructure
    Public prompt_map As Frames
End Class

Public Class Frames
    'CODE GOES HERE?
End Class

顺便说一下，这是我用来从 DataGridView 中提取数据的方法：

Dim colFrames As String
For i = 0 To DataGridView1.RowCount - 1
    If Not (DataGridView1.Rows(i).Cells("Column1").Value = 0) Then
        colFrames = colFrames + vbNewLine + (DataGridView1.Rows(i).Cells("Column1").Value)
    End If
Next

Dim colDesc As String
For i = 0 To DataGridView1.RowCount - 1
    If Not (DataGridView1.Rows(i).Cells("Column2").Value = 0) Then
        colDesc = colDesc + vbNewLine + (DataGridView1.Rows(i).Cells("Column2").Value)
    End If
Next

同样，不确定这有多大用处，只是展示了我的尝试。

任何帮助将不胜感激。我一天中的大部分时间都在做这件事。

JSON vb.net

' Expect a datagridview with exactly two columns
Public Function CreateJSON(source As DataGridView) As String
    If source Is Nothing Then Return "prompt_map: {}"
    Dim result As New StringBuilder("prompt_map: {" & vbCrLf)

    Dim delimiter As String = ""
    For i As Integer = 0 To source.RowCount - 1
        result.Append($"{delimiter}""{FormatCell(source.Rows(i).Cells(0))}"":""{FormatCell(source.Rows(i).Cells(1))}""")
        delimter = $",{vbCrLf}"
    Next
    result.Append($"{vbCrLf}}")
    return result.ToString()
End Function

Private Function FormatCell(cell As DataGridViewCell) As String
    If cell Is Nothing OrElse cell.Value Is Nothing Then Return ""
    Return cell.Value.ToString().Replace("""", "\""")
End Function

Imports Newtonsoft.Json.Linq

Public Class Form1
  'Add a DataGridView and a Button to the form

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    Dim gridData = New DataTable("SettingsData")
    gridData.Columns.Add(New DataColumn("Column1", GetType(String)))
    gridData.Columns.Add(New DataColumn("Column2", GetType(String)))
    DataGridView1.DataSource = gridData
  End Sub

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim gridData = DirectCast(DataGridView1.DataSource, DataTable)
    Dim output = New OutputClass
    For rowIndex As Integer = 0 To gridData.Rows.Count - 1
      Dim row = gridData.Rows(rowIndex)
      Dim col1Value = row(0).ToString
      Dim col2Value = row(1).ToString
      output.prompt_map.Add(col1Value, col2Value)
    Next rowIndex
    Dim outputJson = Newtonsoft.Json.JsonConvert.SerializeObject(output)
    System.IO.File.WriteAllText("C:\Junk\junk.json", outputJson)
  End Sub

  Class OutputClass
    Public Property prompt_map As New Dictionary(Of String, String)
  End Class
End Class

输出：

{
  "prompt_map": {
    "10": "A",
    "20": "B",
    "30": "C"
  }
}

嘿 SSS，这实际上效果很好，这是我的输出：[{“10”：“A”}，{“20”：“B”}，{“30”：“C”}] 但是，有没有办法让它看起来更像我在原始问题中放置的示例？没有括号，把它嵌套到prompt_map，我不需要所有的括号，只需要在开头和结尾。希望是多行。我本质上想做的是将其添加到较长的序列化 Json 的中间。谢谢！

0赞 SSS 10/16/2023

我已经更新了我的答案。而不是，使用和包装类来添加节点JObjectDictionaryprompt_map

上一个：“！”是值的无效开头。小路： $ |行号：0 |BytePositionInLine： 0.“ GraphQL 中的错误

下一个：使用数组反序列化 Json 并在 VB.net 中列出

从 DataGridView 创建 Json 属性

Creating Json Properties from DataGridView

评论

评论

评论