Create JSON array inside JSON Item in code

General
1

How would I accomplish creating this structure in code using JSONItems?

{ "Current":"mypass", "LastChanged":0, "Passwords":[ { "Password":"mypass1", "LastUsed":0 }, { "Password":"mypass2", "LastUsed":0 } ] }

I keep getting a JSONException when trying to add the second item.

[code] Dim Passwords As new JSONItem

Passwords.Value(“Current”) = “mypass”
Passwords.Value(“LastChanged”) = 0

Dim pwd As new JSONItem

pwd.Value(“Password”) = “mypass1”
pwd.Value(“LastUsed”) = 0
Passwords.Value(“Passwords”) = pwd <<< Don’t think this is right

pwd = new JSONItem
pwd.Value(“Password”) = “mypass2”
pwd.Value(“LastUsed”) = 0
Passwords.Child(“Passwords”).Append(pwd) <<< JSONException
[/code]

2

Figured it out.

[code] Dim jItem As new JSONItem
Dim Passwords As new JSONItem
Dim pwd As new JSONItem

jItem.Value(“Current”) = “mypass”
jItem.Value(“LastChanged”) = 0

pwd.Value(“Password”) = “mypass1”
pwd.Value(“LastUsed”) = 0
Passwords.Append pwd

pwd = new JSONItem
pwd.Value(“Password”) = “mypass2”
pwd.Value(“LastUsed”) = 0
Passwords.Append pwd

pwd = new JSONItem
pwd.Value(“Password”) = “mypass3”
pwd.Value(“LastUsed”) = 0
Passwords.Append pwd

pwd = new JSONItem
pwd.Value(“Password”) = “mypass4”
pwd.Value(“LastUsed”) = 0
Passwords.Append pwd

jItem.Value(“Passwords”) = Passwords

MsgBox jItem.ToString[/code]

3

Great stuff. Once you know how to create JSON objects and arrays, it is all downhill from there.