DecodeJSON

Syntax

result = DecodeJSON(Data[, FieldName])

Description

Return an two-dimensional array of string containing fields and values of the JSON-encoded datastring. Optionally returns one non-array value (string) when FieldName is specified.

Parameter	Description
Data	JSON encoded string of fields and values.
FieldName	Optional. When specified, the function returns only the value of this field as a string.

See Also

EncodeJSON.

Example

 
Sub Main
 
Dim Arr() as Variant
Dim x as Integer, z as Integer
 
ReDim Arr(0,0)
 
    Arr() = DecodeJSON("{""Message"":""Hello World!"",""Show"":"True""}")
 
    z = Ubound(Arr)
    For x = 0 to z
       Debug.Print Arr(x,0)
       Debug.Print Arr(x,1)
       Debug.Print "----------"
    Next
 
   Msgbox DecodeJSON("{""Message"":""Hello World!"",""Show"":"True""}", "Message")  '"Hello World!"
 
End Sub