Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(VB.NET UWP/WinRT) QuickBooks - Parse the JSON of a Customer Balance Detail ReportThis example is to show how to parse the JSON of a particular Quickbooks report. The techniques shown here may help in parsing similar reports. The JSON to be parsed is available at Sample Quickbooks Customer Balance Detail Report JSON
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim success As Boolean Dim http As New Chilkat.Http ' Get the JSON we'll be parsing.. Dim jsonStr As String = Await http.QuickGetStrAsync("https://www.chilkatsoft.com/exampleData/qb_customer_balance_detail_report_2.json") If (http.LastMethodSuccess <> True) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim json As New Chilkat.JsonObject json.Load(jsonStr) ' As an alternative to manually writing code, use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON ' Let's parse the JSON into a CSV, and then save to a CSV file. Dim csv As New Chilkat.Csv csv.HasColumnNames = True ' Set the column names of the CSV. Dim numColumns As Integer = json.SizeOfArray("Columns.Column") If (numColumns < 0) Then Debug.WriteLine("Unable to get column names") Exit Sub End If Dim i As Integer = 0 While i < numColumns json.I = i csv.SetColumnName(i,json.StringOf("Columns.Column[i].ColTitle")) i = i + 1 End While ' Let's get the rows. ' We'll ignore the Header and Summary, and just get the data. Dim row As Integer = 0 Dim numRows As Integer = json.SizeOfArray("Rows.Row[0].Rows.Row") If (numRows < 0) Then Debug.WriteLine("Unable to get data rows") Exit Sub End If While row < numRows json.I = row numColumns = json.SizeOfArray("Rows.Row[0].Rows.Row[i].ColData") Dim col As Integer = 0 While col < numColumns json.J = col csv.SetCell(row,col,json.StringOf("Rows.Row[0].Rows.Row[i].ColData[j].value")) col = col + 1 End While row = row + 1 End While ' Show the CSV Debug.WriteLine(csv.SaveToString()) ' Save to a CSV file success = csv.SaveFile("qa_output/customerDetailReport.csv") |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.