help me this special json please ...

[alim2012]

hi all
how decode this json code

{"1":{"title":"title 1","image":"http:\/\/www.ali.net\/uploads\/lives\/channel_5099fd38ecb54.png","link":"http:\/\/www.ali.net\/"},"2":{"title":"title 2","image":"http:\/\/www.ali.net\/uploads\/lives\/channel_50b5d9f82df66.png","link":"http:\/\/www.ali.net\/"},"3":{"title":"title 3","image":"http:\/\/www.ali.net\/uploads\/lives\/channel_509604fccbfe8.png","link":"http:\/\/www.ali.net\/"},"4":{"title":"title 4","image":"http:\/\/www.ali.net\/uploads\/lives\/channel_5099fd236dd94.png","link":"http:\/\/www.ali.net\/"},"5":{"title":"title 5","image":"http:\/\/www.ali.net\/uploads\/lives\/channel_509604c68684b.png","link":"http:\/\/www.ali.net\/"}}

please help me

thanks a lot

 

[Erel]

Have you seen the JSON tutorial? Can you post the code you are trying?

 

[alim2012]

thanks for answer
I trying with this code
thanks a lot
ali

 

[Erel]

This code will only cause problems:

Sub Activity_Pause (UserClosed As Boolean)
   If UserClosed Then
      ExitApplication
   End If
End Sub

Here is the code:

Sub Process_Globals
   Type ImageData(Image As String, Link As String, Title As String)
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
   Dim images As List = ParseJson
   Log(images)
End Sub



Sub ParseJson As List
   Dim Images As List
   Images.Initialize
   Dim json As JSONParser
   json.Initialize(File.ReadString(File.DirAssets, "example.json"))
   Dim m As Map
    m = json.NextObject
   For Each key As String In m.Keys
      Dim m2 As Map = m.Get(key)
      Dim id As ImageData
      id.Image = m2.Get("image")
      id.Link = m2.Get("link")
      id.Title = m2.Get("title")
      Images.Add(id)
   Next
   Return Images
End Sub