What do you think?
Code: Select all
Macro CompareStructure(data1, data2, struc, result)
Define json1, json2
json1 = CreateJSON(#PB_Any)
json2 = CreateJSON(#PB_Any)
If json1 And json2
InsertJSONStructure(JSONValue(json1), data1, struc)
InsertJSONStructure(JSONValue(json2), data2, struc)
PokeI(@result, Bool(ComposeJSON(json1) = ComposeJSON(json2)))
EndIf
If json1 : FreeJSON(json1) : EndIf
If json2 : FreeJSON(json2) : EndIf
EndMacro