...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include "protheus.ch" User Function MyJsonCompare() Local lRet As Logical Local cRet As Character Local cJsonOne As Character Local cJsonTwo As Character Local oJson1 := JsonObject():New() Local oJson2 := JsonObject():New() cJsonOne := '{"propriedade": "valor","array":[{"valor1": true},{"valor2": true}]}' cJsonTwo := '{"propriedade": "valor","array":[{"valor1": true},{"valor2": false}]}' oJson1:FromJson(cJsonOne) oJson2:FromJson(cJsonTwo) lRet := FwJsonCompare(oJson1, oJson2, @cRet) If !lRet ConOut(cRet) // Resultado: array[2]=> Item at position 2 of aArray1 not found in aArray2. EndIf FreeObj(oJson1) FreeObj(oJson2) Return Nil |
...