[Fork] Question41892086 convert-json-to-datatable-vb | C# Online Compiler

[Fork] Question41892086 convert-json-to-datatable-vb by dbc_MinLength

Imports System
Imports System.Linq
Imports System.Collections.Generic
Imports System.Xml.Linq
Imports System.Xml
Imports System.Data

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports Newtonsoft.Json.Converters
Imports Newtonsoft.Json.Serialization

' https://stackoverflow.com/questions/41892086/convert-json-to-datatable-vb

	Public Module Module1
	
		Public Sub Main()
	
			Dim json_result = GetJson()
	
			Dim table = JsonConvert.DeserializeObject(Of Dictionary(Of string, DataTable))(json_result).Values.SingleOrDefault()
	
			Dim newJString = Newtonsoft.Json.JsonConvert.SerializeObject(table, Newtonsoft.Json.Formatting.Indented)
	
			Console.WriteLine("Re-serialized JSON: ")
			Console.WriteLine(newJString)
			Console.WriteLine("")
	
		End Sub
		
		Public Function GetJson() As String
			Dim json_result As String = <![CDATA[
{
  "Table": [
    {
      "IdOwner": "Davide",
      "tag_id": 1,
      "tag_type": "3",
      "tag_group": "Group_2",
      "tag_name": "Alfa",
      "tag_sequence": 123458,
      "tag_description": "Description_2",
      "tag_short_descritpion": "Desc_2",
      "tag_um": "kg",
      "tag_active": true,
      "tag_collecting": false,
      "tag_data_edit": true,
      "tag_source_name": "Alfaservice",
      "tag_source_index": "Undefined_index",
      "tag_source_tagtype": "Source_tag_type",
      "tag_source_lenght": 50,
      "tag_collect_frequency": 200,
      "tag_collect_unit": "ms",
      "tag_low_limit": 100.0,
      "tag_high_limit": 370.0,
      "tag_control_limit_active": true,
      "tag_calc": "useless_field",
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "Giuseppe",
      "tag_id": 3,
      "tag_type": "Type_1",
      "tag_group": "Group_2",
      "tag_name": "Bemad",
      "tag_sequence": 123456,
      "tag_description": "Description_5",
      "tag_short_descritpion": "Desc_5",
      "tag_um": "Kg",
      "tag_active": true,
      "tag_collecting": false,
      "tag_data_edit": true,
      "tag_source_name": "Alfaservice",
      "tag_source_index": "Undefined_index",
      "tag_source_tagtype": "Source_tag_type",
      "tag_source_lenght": 50,
      "tag_collect_frequency": 200,
      "tag_collect_unit": "ms",
      "tag_low_limit": 250.0,
      "tag_high_limit": 660.0,
      "tag_control_limit_active": true,
      "tag_calc": "useless_field",
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "Madalin",
      "tag_id": 2,
      "tag_type": "Type_2",
      "tag_group": "Group_1",
      "tag_name": "Bemad",
      "tag_sequence": 123456,
      "tag_description": "Description_1",
      "tag_short_descritpion": "Desc_1",
      "tag_um": "Kg",
      "tag_active": true,
      "tag_collecting": false,
      "tag_data_edit": true,
      "tag_source_name": "Alfaservice",
      "tag_source_index": "Undefined_index",
      "tag_source_tagtype": "Source_tag_type",
      "tag_source_lenght": 50,
      "tag_collect_frequency": 200,
      "tag_collect_unit": "ms",
      "tag_low_limit": 150.0,
      "tag_high_limit": 350.0,
      "tag_control_limit_active": true,
      "tag_calc": "useless_field",
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "test",
      "tag_id": 6,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "test",
      "tag_id": 7,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    },
    {
      "IdOwner": "test",
      "tag_id": 8,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    },
    {
      "IdOwner": "test",
      "tag_id": 9,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    },
    {
      "IdOwner": "test",
      "tag_id": 10,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    }
  ]
}
]]>.Value
			return json_result
		End Function
	End Module

​x
 
Imports System
Imports System.Linq
Imports System.Collections.Generic
Imports System.Xml.Linq
Imports System.Xml
Imports System.Data
​
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports Newtonsoft.Json.Converters
Imports Newtonsoft.Json.Serialization
​
' https://stackoverflow.com/questions/41892086/convert-json-to-datatable-vb
​
    Public Module Module1
    
        Public Sub Main()
    
            Dim json_result = GetJson()
    
            Dim table = JsonConvert.DeserializeObject(Of Dictionary(Of string, DataTable))(json_result).Values.SingleOrDefault()
    
            Dim newJString = Newtonsoft.Json.JsonConvert.SerializeObject(table, Newtonsoft.Json.Formatting.Indented)
    
            Console.WriteLine("Re-serialized JSON: ")
            Console.WriteLine(newJString)
            Console.WriteLine("")
    
        End Sub
        
        Public Function GetJson() As String
            Dim json_result As String = <![CDATA[
{
  "Table": [
    {
      "IdOwner": "Davide",
      "tag_id": 1,
      "tag_type": "3",
      "tag_group": "Group_2",
      "tag_name": "Alfa",
      "tag_sequence": 123458,
      "tag_description": "Description_2",
      "tag_short_descritpion": "Desc_2",
      "tag_um": "kg",
      "tag_active": true,
      "tag_collecting": false,
      "tag_data_edit": true,
      "tag_source_name": "Alfaservice",
      "tag_source_index": "Undefined_index",
      "tag_source_tagtype": "Source_tag_type",
      "tag_source_lenght": 50,
      "tag_collect_frequency": 200,
      "tag_collect_unit": "ms",
      "tag_low_limit": 100.0,
      "tag_high_limit": 370.0,
      "tag_control_limit_active": true,
      "tag_calc": "useless_field",
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "Giuseppe",
      "tag_id": 3,
      "tag_type": "Type_1",
      "tag_group": "Group_2",
      "tag_name": "Bemad",
      "tag_sequence": 123456,
      "tag_description": "Description_5",
      "tag_short_descritpion": "Desc_5",
      "tag_um": "Kg",
      "tag_active": true,
      "tag_collecting": false,
      "tag_data_edit": true,
      "tag_source_name": "Alfaservice",
      "tag_source_index": "Undefined_index",
      "tag_source_tagtype": "Source_tag_type",
      "tag_source_lenght": 50,
      "tag_collect_frequency": 200,
      "tag_collect_unit": "ms",
      "tag_low_limit": 250.0,
      "tag_high_limit": 660.0,
      "tag_control_limit_active": true,
      "tag_calc": "useless_field",
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "Madalin",
      "tag_id": 2,
      "tag_type": "Type_2",
      "tag_group": "Group_1",
      "tag_name": "Bemad",
      "tag_sequence": 123456,
      "tag_description": "Description_1",
      "tag_short_descritpion": "Desc_1",
      "tag_um": "Kg",
      "tag_active": true,
      "tag_collecting": false,
      "tag_data_edit": true,
      "tag_source_name": "Alfaservice",
      "tag_source_index": "Undefined_index",
      "tag_source_tagtype": "Source_tag_type",
      "tag_source_lenght": 50,
      "tag_collect_frequency": 200,
      "tag_collect_unit": "ms",
      "tag_low_limit": 150.0,
      "tag_high_limit": 350.0,
      "tag_control_limit_active": true,
      "tag_calc": "useless_field",
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "test",
      "tag_id": 6,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": null
    },
    {
      "IdOwner": "test",
      "tag_id": 7,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    },
    {
      "IdOwner": "test",
      "tag_id": 8,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    },
    {
      "IdOwner": "test",
      "tag_id": 9,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    },
    {
      "IdOwner": "test",
      "tag_id": 10,
      "tag_type": null,
      "tag_group": null,
      "tag_name": "REW_SAX_BOWED_ActualVelocity",
      "tag_sequence": 0,
      "tag_description": "1",
      "tag_short_descritpion": "1",
      "tag_um": null,
      "tag_active": true,
      "tag_collecting": true,
      "tag_data_edit": false,
      "tag_source_name": "REW_SAX_BOWED.ACTUALVELOCITY",
      "tag_source_index": "0",
      "tag_source_tagtype": "Float",
      "tag_source_lenght": 0,
      "tag_collect_frequency": 100,
      "tag_collect_unit": "1",
      "tag_low_limit": 1.0,
      "tag_high_limit": 1.0,
      "tag_control_limit_active": false,
      "tag_calc": null,
      "tag_level": 0,
      "tag_origine_dati": "Tag Name=REW_SAX_BOWED_ActualVelocity,Address=REW_SAX_BOWED.ACTUALVELOCITY,Data Type=Float,Respect Data Type=0,Client Access=RO,Scan Rate=100,Scaling=,Raw Low=,Raw High=,Scaled Low=,Scaled High=,Scaled Data Type=,Clamp Low=,Clamp High=,Eng Units=,Description=,Negate Value=,"
    }
  ]
}
]]>.Value
            return json_result
        End Function
    End Module
​

Introduce metros

Last Run:	1:53:49 pm
Compile:	0.114s
Execute:	0s
Memory:	32kb
CPU:	0s

View IL Code