Sub Globals
Private CCSV As CleverCSV
End Sub
Sub Activity_Create(FirstTime As Boolean)
CCSV.Initialize
Dim txt As String = $"{
"root": [
{
"customerID": "12874",
"articleID": 12,
"ordernumber": "25503",
"articlename": "Wein 1",
"quantity": 5,
"price": 2.44
},
{
"customerID": "12874",
"articleID": 20,
"ordernumber": "82725",
"articlename": "Wein 2",
"quantity": 5,
"price": 12.10
},
{
"customerID": "12874",
"articleID": 25,
"ordernumber": "7414",
"articlename": "Wein 2",
"quantity": 5,
"price": 2.19
}
]
}"$
Log(CCSV.toCSV(txt))
'OUTPUT:
' customerID,articleID,ordernumber,articlename,quantity,price
' 12874,12,25503,Wein 1,5,2.44
' 12874,20,82725,Wein 2,5,12.1
' 12874,25,7414,Wein 2,5,2.19