Question 262011 in Json Question posted in
Our archive of expertly curated questions and answers provides insights and solutions to common problems related to this popular data interchange format. From parsing and manipulating JSON data to integrating it with various programming languages and web services, our archive has got you covered. Start exploring today and take your JSON skills to the next level

Creating Json Properties from DataGridView

I’m not sure how to explain this, but here it goes:

I am trying to create properties for a JSON file from a DataGridView. I’m using newtonsoft to handle the JSON serializing.

Essentially, the user will add their values to two columns and those values will be turned into properties. Let’s say the user puts in values 10, 20, 30 in Column1, and then in Column2 they put in "A" "B" "C", the resulting JSON should then be:

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

And it should keep going depending on how many rows the user creates.

I thought I would share my code, however I’m not sure if it would help because I’m not even sure how to approach this.

The values will go in the prompt_map string as a nest

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

This is the method I’m using to pull the data from the DataGridView by the way:

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

Again, not sure how useful this is, just showing my attempt.

Any help would be greatly appreciated. I’ve been going at this for most of the day.

Tags:

2

Answers


  1. 0

    One option is to process the rows via a loop into a Dictionary(Of String, String), and then use Newtonsoft to serialize the dictionary.

    But for that much work, you might be as well off remembering that JSON is just a string, cutting out the middleware, and building the result directly via StringBuilder or similar. Additionally, the Dictionary method wouldn’t allow for duplicate keys, which, while dubiously-legal, could be possible with user-entered data.

    ' Expect a datagridview with exactly two columns
Public Function CreateJSON(source As DataGridView) As String
    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
    Return cell.Value.ToString().Replace("""", """")
End Function
    Login or Signup to reply.
  2. 0

    You can use a DataTable as your DataGridView.DataSource, and also the Newtownsoft JObject class to have dynamic JSON node names.

    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 As New List(Of JObject)
    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
      Dim j = New JObject()
      j(col1Value) = col2Value
      output.Add(j)
    Next rowIndex

    Dim outputJson = Newtonsoft.Json.JsonConvert.SerializeObject(output)
    System.IO.File.WriteAllText("C:Junkjunk.json", outputJson)
  End Sub

End Class
    Login or Signup to reply.
Please signup or login to give your own answer.

Back To Top
Search