JSON extensions

Tagged: extension, json

This topic contains 4 replies, has 3 voices, and was last updated by nerobot 7 months, 2 weeks ago.

Viewing 5 posts - 1 through 5 (of 5 total)

Author

Posts

November 30, 2017 at 3:36 am #12023

nerobot

Participant

Some JSON extensions I like to use.

DefValue allow us to assing-it-instead if desired key isn’t found.

FindValue method allow us to make nested search for objects by slash-separated key.

Class JsonObject Extension
	
	Method GetBool:Bool( key:String,defValue:Bool )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToBool() Else defValue
	End
	
	Method GetString:String( key:String,defValue:String )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToString() Else defValue
	End
	
	Method GetInt:Int( key:String,defValue:Int )
		
		Local json:=Self
		Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue
	End
	
	Method FindValue:JsonValue( key:String )
		
		key=key.Replace( "\","/" )
		Local keys:=key.Split( "/" )
		
		Local json:=Self.Data
		
		Local jval:JsonValue
		For Local k:=0 Until keys.Length
			If Not json.Contains( keys[k] ) Return Null
			jval=json[ keys[k] ]
			If k=keys.Length-1 Exit
			If Not jval.IsObject Return Null
			json=jval.ToObject()
		Next
		
		Return jval
	End
	
End

Class JsonObject Extension

Method GetBool:Bool( key:String,defValue:Bool )

Local json:=Self

Return json.Contains( key ) ? json[key].ToBool() Else defValue

End

Method GetString:String( key:String,defValue:String )

Local json:=Self

Return json.Contains( key ) ? json[key].ToString() Else defValue

End

Method GetInt:Int( key:String,defValue:Int )

Local json:=Self

Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue

End

Method FindValue:JsonValue( key:String )

key=key.Replace( "\","/" )

Local keys:=key.Split( "/" )

Local json:=Self.Data

Local jval:JsonValue

For Local k:=0 Until keys.Length

If Not json.Contains( keys[k] ) Return Null

jval=json[ keys[k] ]

If k=keys.Length-1 Exit

If Not jval.IsObject Return Null

json=jval.ToObject()

Return jval

End

Class JsonArray Extension
	
	Function FromStrings:JsonArray( values:String[] )
		
		Local jvals:=New JsonValue[values.Length]
		For Local i:=0 Until values.Length
			jvals[i]=New JsonString( values[i] )
		Next
		Return New JsonArray( jvals )
	End
	
End

Class JsonArray Extension

Function FromStrings:JsonArray( values:String[] )

Local jvals:=New JsonValue[values.Length]

For Local i:=0 Until values.Length

jvals[i]=New JsonString( values[i] )

Return New JsonArray( jvals )

End

And there is an example app:

Namespace myapp

#Import "<std>"

Using std..

Const JSON:="{
	~qroot~q:{
		~qobjName1~q:~qTransformer~q,
		~qobjName2~q:~qWater~q,
		~qchild1~q:{
			~qsayWhat~q:~qHello, Monkey2!~q
		}
	}
}"

Function Main()
	
	Print JSON
	
	Local json:=JsonObject.Parse( JSON )
	Local root:=json.GetObject( "root" )
	' this key exists:
	Print "1: "+root.GetString( "objName1","<1>" )
	' this key doesn't exists:
	Print "100500: "+root.GetString( "objName100500","<100500>" )
	' wow! searching for nested objects by single line of code
	' note: we use ?. operator here for case if json.FindValue()=Null
	' and ?Else operator for case if json.FindValue()?.ToString() is False
	' it may be incorrect if key exists but contains an empty line ""
	Print "request1: "+(json.FindValue( "root/child1/sayWhat" )?.ToString() ?Else "<not found>")
	' similar way but this key is incorrect
	Print "request2: "+(json.FindValue( "root/child1/sayWhat/4" )?.ToString() ?Else "<not found>")
End


Class JsonObject Extension
	
	Method GetBool:Bool( key:String,defValue:Bool )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToBool() Else defValue
	End
	
	Method GetString:String( key:String,defValue:String )
		
		Local json:=Self
		Return json.Contains( key ) ? json[key].ToString() Else defValue
	End
	
	Method GetInt:Int( key:String,defValue:Int )
		
		Local json:=Self
		Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue
	End
	
	Method FindValue:JsonValue( key:String )
		
		key=key.Replace( "\","/" )
		Local keys:=key.Split( "/" )
		
		Local json:=Self.Data
		
		Local jval:JsonValue
		For Local k:=0 Until keys.Length
			If Not json.Contains( keys[k] ) Return Null
			jval=json[ keys[k] ]
			If k=keys.Length-1 Exit
			If Not jval.IsObject Return Null
			json=jval.ToObject()
		Next
		
		Return jval
	End
	
End


Class JsonArray Extension
	
	Function FromStrings:JsonArray( values:String[] )
		
		Local jvals:=New JsonValue[values.Length]
		For Local i:=0 Until values.Length
			jvals[i]=New JsonString( values[i] )
		Next
		Return New JsonArray( jvals )
	End
	
End

Namespace myapp

#Import "<std>"

Using std..

Const JSON:="{

~qroot~q:{

~qobjName1~q:~qTransformer~q,

~qobjName2~q:~qWater~q,

~qchild1~q:{

~qsayWhat~q:~qHello, Monkey2!~q

}

Function Main()

Print JSON

Local json:=JsonObject.Parse( JSON )

Local root:=json.GetObject( "root" )

' this key exists:

Print "1: "+root.GetString( "objName1","<1>" )

' this key doesn't exists:

Print "100500: "+root.GetString( "objName100500","<100500>" )

' wow! searching for nested objects by single line of code

' note: we use ?. operator here for case if json.FindValue()=Null

' and ?Else operator for case if json.FindValue()?.ToString() is False

' it may be incorrect if key exists but contains an empty line ""

Print "request1: "+(json.FindValue( "root/child1/sayWhat" )?.ToString() ?Else "<not found>")

' similar way but this key is incorrect

Print "request2: "+(json.FindValue( "root/child1/sayWhat/4" )?.ToString() ?Else "<not found>")

End

Class JsonObject Extension

Method GetBool:Bool( key:String,defValue:Bool )

Local json:=Self

Return json.Contains( key ) ? json[key].ToBool() Else defValue

End

Method GetString:String( key:String,defValue:String )

Local json:=Self

Return json.Contains( key ) ? json[key].ToString() Else defValue

End

Method GetInt:Int( key:String,defValue:Int )

Local json:=Self

Return json.Contains( key ) ? Int(json[key].ToNumber()) Else defValue

End

Method FindValue:JsonValue( key:String )

key=key.Replace( "\","/" )

Local keys:=key.Split( "/" )

Local json:=Self.Data

Local jval:JsonValue

For Local k:=0 Until keys.Length

If Not json.Contains( keys[k] ) Return Null

jval=json[ keys[k] ]

If k=keys.Length-1 Exit

If Not jval.IsObject Return Null

json=jval.ToObject()

Return jval

End

Class JsonArray Extension

Function FromStrings:JsonArray( values:String[] )

Local jvals:=New JsonValue[values.Length]

For Local i:=0 Until values.Length

jvals[i]=New JsonString( values[i] )

Return New JsonArray( jvals )

End

November 30, 2017 at 7:34 am #12024

Amon

Participant

Cool.

You’re a very productive coder. It’s nice having you around. You keep coding things that save time for other coders less experienced or versed in computer programming and I thank you for that.

Keep going, keep being productive. I appreciate all your efforts.

Regards,

November 30, 2017 at 7:39 am #12025

nerobot

Participant

Thanks @amon !

July 25, 2018 at 9:42 pm #15155

Abe _King_

Participant

Never noticed this before, but awesome stuff! Thanks for the share Nerobot!

September 2, 2018 at 5:15 am #15363

nerobot

Participant

A new one to extract int-based enums:

Class JsonObject Extension	
	Method GetEnum<T>:T( key:String,defValue:T )		
		Local json:=Self
		Return json.Contains( key ) ? Cast<T>(Int(json[key].ToNumber())) Else defValue
	End
End

Class JsonObject Extension

Method GetEnum<T>:T( key:String,defValue:T )

Local json:=Self

Return json.Contains( key ) ? Cast<T>(Int(json[key].ToNumber())) Else defValue

End

Example

Enum HoleForms
	Circle,
	Square,
	Diamond
End

Local form:=json.GetEnum( "hole-form",HoleForms.Circle )

Enum HoleForms

Circle,

Square,

Diamond

End

Local form:=json.GetEnum( "hole-form",HoleForms.Circle )

Author

Posts

Viewing 5 posts - 1 through 5 (of 5 total)

You must be logged in to reply to this topic.

JSON extensions

Archives

Recent Replies

What is this?