#include "protheus.ch"
userUser functionFunction tstJsonObjecttDelName()
local wrk
wrk
Local oJson := JsonObject():newNew()
wrk:fromJson('{" Local cJson := '{"title": "example glossary", "name":"John", "age":31, "city":"New York"}') )
// Retorna "John"
ConOut ( wrk:GetJsonText("name") )
FreeObj(wrk)
return"}'
Local cName := ""
Local cMsg := ""
Local lRet := .F.
oJson:fromJson( cJson )
// remove a propriedade de nome 'title' e
// exibe 'SUCCESS - JsonObject():DelName( "title" ) returned [.T.]'
cName := "title"
lRet := oJson:DelName( cName )
cMsg := ' - JsonObject():DelName( "' + cName + '" ) returned [' + cValToChar( lRet ) + ']'
If ( lRet )
ConOut( 'SUCCESS' + cMsg )
Else
ConOut( 'FAILURE' + cMsg )
EndIf
// não remove a propriedade de nome 'NAME' e
// exibe 'FAILURE - JsonObject():DelName( "NAME" ) returned [.F.]'
cName := "NAME"
lRet := oJson:DelName( cName )
cMsg := ' - JsonObject():DelName( "' + cName + '" ) returned [' + cValToChar( lRet ) + ']'
If ( lRet )
ConOut( 'SUCCESS' + cMsg )
Else
ConOut( 'FAILURE' + cMsg )
EndIf
FREEOBJ( oJson )
Return
|