Imports System.Collections.Generic
Imports System.Data.DataSetExtensions
Imports System.Data.DataSet
Imports System.Data.DataTable
Imports System.Data.DataTableExtensions
Imports System.Data.Linq.Mapping
Imports Microsoft.VisualBasic
Imports Newtonsoft.Json.Linq
Imports Newtonsoft.Json.Converters
Imports Newtonsoft.Json.Serialization
Public Property Table As T
Dim json_result = GetJson()
Dim table = JsonConvert.DeserializeObject(Of RootObject(Of DataTable))(json_result).Table
FiddleHelper.WriteTable(table)
Dim newJString = Newtonsoft.Json.JsonConvert.SerializeObject(table, Newtonsoft.Json.Formatting.Indented)
Console.WriteLine("Re-serialized JSON: ")
Console.WriteLine(newJString)
Public Function GetJson() As String
Dim json_result As String = <![CDATA[
"fee_type": "Deferral Fee"
"fee_type": "Pre-Computed"
"fee_type": "Pre-Paid Finance Charge (Add)"
"fee_type": "Pre-Paid Finance Charge (Subtract)"
"fee_type": "Pre-Paid Principal (Add)"
"fee_type": "Pre-Paid Principal (Sub)"
"fee_type": "Triggered Fee"