Loop collection with Realbasic

Question

Я работаю над инструментом для обучения, он выполняет поиск с помощью google apis. Использование HTTPSocket я получить результаты поиска в формате JSON, а затем разобрать его в словарь с json.parser написанного CharcoalDesign.co.uk

Это как выглядит результат JSon:

{"responseData": { 
"results": [ 
    { 
    "GsearchResultClass": "GwebSearch", 
    "unescapedUrl": "http://en.wikipedia.org/wiki/Paris_Hilton", 
    "url": "http://en.wikipedia.org/wiki/Paris_Hilton", 
    "visibleUrl": "en.wikipedia.org", 
    "cacheUrl": "http://www.google.com/search?q\u003dcache:TwrPfhd22hYJ:en.wikipedia.org", 
    "title": "\u003cb\u003eParis Hilton\u003c/b\u003e - Wikipedia, the free encyclopedia", 
    "titleNoFormatting": "Paris Hilton - Wikipedia, the free encyclopedia", 
    "content": "\[1\] In 2006, she released her debut album..." 
    }, 
    { 
    "GsearchResultClass": "GwebSearch", 
    "unescapedUrl": "http://www.imdb.com/name/nm0385296/", 
    "url": "http://www.imdb.com/name/nm0385296/", 
    "visibleUrl": "www.imdb.com", 
    "cacheUrl": "http://www.google.com/search?q\u003dcache:1i34KkqnsooJ:www.imdb.com", 
    "title": "\u003cb\u003eParis Hilton\u003c/b\u003e", 
    "titleNoFormatting": "Paris Hilton", 
    "content": "Self: Zoolander. Socialite \u003cb\u003eParis Hilton\u003c/b\u003e..." 
    }, 
    ... 
], 
"cursor": { 
    "pages": [ 
    { "start": "0", "label": 1 }, 
    { "start": "4", "label": 2 }, 
    { "start": "8", "label": 3 }, 
    { "start": "12","label": 4 } 
    ], 
    "estimatedResultCount": "59600000", 
    "currentPageIndex": 0, 
    "moreResultsUrl": "http://www.google.com/search?oe\u003dutf8\u0026ie\u003dutf8..." 
} 
} 
, "responseDetails": null, "responseStatus": 200} 

Проблема что я хочу зацикливать каждое значение «результатов» и добавлять данные в список, не добавляя никаких других ответовData (например, «курсор»).

Dim d as Dictionary 
Dim c as Collection 

data = Json.parse(content) // use the class json.parse 
d = data.Value("responseData") 
c = d.Value("results") 

После этого я не знаю, как цикл каждые из «результатов» значение, я уже судимые много способов с для-каждого ... работает со словарем «для каждого ключа в d.keys()» , но не с коллекцией. Где я ошибаюсь?

Answer 1

Чтобы пройти через коллекцию, вам необходимо получить к ней доступ через функцию Items.

for i as integer = 1 to c.count //Collection is 1 based 
    dim s as string 
    s = c.item(i) 
next