PureBasic Forums - English

Posted: **Sun Apr 30, 2023 1:41 am**

Hi guys,

I'm trying to parse and get posted JSON values easily.

Here's an excerpt of what I'm doing

JSON_ID = ParseJSON(#PB_Any, SomeStringReceived)
If JSON_ID
	If GetJSONMember(JSONValue(JSON_ID), "Target")
		Target.s = GetJSONString(GetJSONMember(JSONValue(JSON_ID), "TargetType"))
	EndIf
EndIf

This fails when the Target is not a string and say it's an integer.

How do I catch this exception and handle it?

Posted: **Sun Apr 30, 2023 2:33 am**

try JSONType()

Posted: **Sun Apr 30, 2023 2:46 am**

lesserpanda wrote: Sun Apr 30, 2023 1:41 am Hi guys,

I'm trying to parse and get posted JSON values easily.

Here's an excerpt of what I'm doing
Code: Select all
JSON_ID = ParseJSON(#PB_Any, SomeStringReceived)
If JSON_ID
	If GetJSONMember(JSONValue(JSON_ID), "Target")
		Target.s = GetJSONString(GetJSONMember(JSONValue(JSON_ID), "TargetType"))
	EndIf
EndIf
This fails when the Target is not a string and say it's an integer.

How do I catch this exception and handle it?

Perhaps:

Code: Select all

JSON_ID = ParseJSON(#PB_Any, SomeStringReceived)
If JSON_ID
	If GetJSONMember(JSONValue(JSON_ID), "Target")
        If JSONType(GetJSONMember(JSONValue(JSON_ID), "Target")) = PB_JSON_String
	        Target.s = GetJSONString(GetJSONMember(JSONValue(JSON_ID), "TargetType"))
        Else
	        ;handle exception
        EndIf
	EndIf
EndIf

Posted: **Mon May 01, 2023 2:22 pm**

If JSONType(GetJSONMember(JSONValue(JSON_ID), "Target")) = PB_JSON_String

this is what I was after ... thank you

PureBasic Forums - English

Question on JSON handling

Question on JSON handling

Re: Question on JSON handling

Re: Question on JSON handling

Re: Question on JSON handling