einfach als Array auslesen. Auch wenn es unter “line_items” in Deinem Beispiel nur ein Item(0) gibt, könnten eben mehrere drin stehen. Wahrscheinlich nicht, aber aus JSON Sicht schon, sprich das JSON hat eben gerade da ein Array, und muss dann auch so behandelt werden.
Dim jsonArray() As Auto
jsonArray=Xojo.Data.ParseJSON(myJSON)
For Each d As Xojo.Core.Dictionary In jsonArray
'contact_id=str(zahl_d) // 0 wenn als Gast bestellt
var zahlung as String = d.Value("payment_method_title")
Var customer_note as String =d.Value("customer_note")
// usw.
Dim billing As Xojo.Core.Dictionary = d.Value("billing")
Var firstname as string = billing.Value("first_name")
Var lastname as string = billing.Value("last_name")
Var company as string = billing.Value("company")
// jetzt soll das Array line_items ausgelesen werden
// für jedes Item in line_items
// wie passt da jetzt dein Beispiel rein? Ich bekomme es nicht gebacken
Var lineItems() As auto = d.Value("line_items")
for each item as Xojo.Core.Dictionary in lineItems
Var produktname as string = item.value("name")
var steuerklasse as string = item.value("tax_class")
break
Next
next