JsonToFormUrlEncoded ( json ; path )

converts a JSON object or array to form-url encoded

Be the first to rate this function Log in to vote

Fabrice Nordmann - Show more from this author
1-more-thing
https://www.1-more-thing.com

Sample input:

{"name":"Doe","firstname":"John"}

Sample output:

firstname=John&name=Doe

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* JsonToFormUrlEncoded ( json ; path )
by Fabrice Nordmann, 1-more-thing

v1 - May 2026


*/

Let ( [
	_type = JSONGetElementType ( json ; path ) ;
	_keys = JSONListKeys ( json ; path ) ;
	_keyCount = ValueCount ( _keys )
] ;

Case (
	_type = JSONObject ;
	While (
		[
			_i = 1 ;
			_out = ""
		] ;
			_i <= _keyCount ;
		[
			_key = GetValue ( _keys ; _i ) ;
			_childPath = Case (
				IsEmpty ( path ) ; _key ;
				path & "." & _key
			) ;
			_chunk = JsonToFormUrlEncoded ( json ; _childPath ) ;
			_out = Case (
				IsEmpty ( _out ) ; _chunk ;
				IsEmpty ( _chunk ) ; _out ;
				_out & "&" & _chunk
			) ;
			_i = _i + 1
		] ;
		_out
	) ;
	_type = JSONArray ;
	While (
		[
			_i = 1 ;
			_out = ""
		] ;
		_i <= _keyCount ;
		[
			_key = GetValue ( _keys ; _i ) ;
			_childPath = Case (
				IsEmpty ( path ) ; "[" & _key & "]" ;
				path & "[" & _key & "]"
			) ;
			_chunk = JsonToFormUrlEncoded ( json ; _childPath ) ;
			_out = Case (
				IsEmpty ( _out ) ; _chunk ;
				IsEmpty ( _chunk ) ; _out ;
				_out & "&" & _chunk
			) ;
			_i = _i + 1
		] ;
		_out
	) ;
	_type = JSONBoolean ;
	Let ( [
		_parts = Substitute ( path
			; [ "." ; ¶ ]
		) ;
		_partCount = ValueCount ( _parts ) ;
		_fieldName = While (
			[
				_j = 1 ;
				_field = ""
			] ;
			_j <= _partCount ;
			[
				_part = GetValue ( _parts ; _j ) ;
				_field = _field &
					Case (
						_j = 1 ; _part ;
						Left ( _part ; 1 ) = "[" ; _part ;
						"[" & _part & "]"
					) ;
				_j = _j + 1
			] ;
			_field
		) ;
		_value = Case (
			JSONGetElement ( json ; path ) ;
			"true" ;
			"false"
		)
	] ;
	_fieldName & "=" & _value
	) ;
	_type = JSONNull ;
	Let ( [
		_parts = Substitute ( path
			; [ "." ; ¶ ]
		) ;
		_partCount = ValueCount ( _parts ) ;
		_fieldName = While (
			[
				_j = 1 ;
				_field = ""
			] ;
				_j <= _partCount ;
			[
				_part = GetValue ( _parts ; _j ) ;
				_field = _field &
					Case (
						_j = 1 ; _part ;
						Left ( _part ; 1 ) = "[" ; _part ;
						"[" & _part & "]"
					) ;
				_j = _j + 1
			] ;
			_field
		)
	] ;
	_fieldName & "="
	) ;
	Let ( [
		_parts = Substitute ( path
			; [ "." ; "¶" ]
		) ;
		_partCount = ValueCount ( _parts ) ;
		_fieldName = While (
			[
				_j = 1 ;
				_field = ""
			] ;
				_j <= _partCount ;
			[
				_part = GetValue ( _parts ; _j ) ;
				_field = _field &
					Case (
						_j = 1 ; _part ;
						Left ( _part ; 1 ) = "[" ; _part ;
						"[" & _part & "]"
					) ;
				_j = _j + 1
			] ;
			_field
		)
	] ;
	_fieldName & "=" & GetAsURLEncoded ( JSONGetElement ( json ; path ) )
	)
)
)

converts a JSON object or array to form-url encoded
Supports nested objects, arrays…

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

JsonToFormUrlEncoded ( json ; path )

Comments

Support this website.

Support this website.