EinhugurJSONIII.JSONDocument Class (console safe)

using EinhugurJSONIII

var root as JSONDocument = new JSONDocument()

// By default the documents root is born as null, so we need to define it as Object or Array.
root.SetObject()

var arr as JSONArray = root.CreateArray()
arr.Append(16)
arr.Append(42)
arr.Append(128)

root.AddMember("RootA", "Hello world")
root.AddMember("ArrayOfNumbers", arr)


'// Put the raw source to the edit field
TextArea1.Text = root.GetSource(true)

using EinhugurJSONIII

if TextArea1.Text = "" then
    MessageBox "There is nothing in the textbox"
else
    Dim doc as new JSONDocument()
   
    if doc.Parse(TextArea1.Text) then
      
       if doc.IsObject() then
          MessageBox doc.StringValueByKey("RootA")
       end if
    else
       MessageBox "Error"
    end if
   
   
end if