For i = 0 To sources_map.Size -1 ' Loop through sources
JSON.Initialize(File.ReadString(File.DirInternal,sources_map.GetKeyAt(i) & ".json"))
JSON_root = JSON.NextObject
JSON_rss = JSON_root.Get("rss")
JSON_channel = JSON_rss.Get("channel")
JSON_items = JSON_channel.Get("item")
For x = 0 To JSON_items.Size -1 ' loop through the source items and add them to feeds list
JSON_item = JSON_items.Get(x) 'the map
Dim feeds_list_item As Advanced_JSON ' custom type
feeds_list_item.pupdate = DateTime.DateParse(JSON_item.Get("pubDate")) ' the thing that i want to sort the list with
feeds_list_item.JSON_item = JSON_item ' the actual data field
feeds.Add(feeds_list_item) ' the list
Msgbox(feeds,"")
Next
Next