Цикл коллекции с Realbasic - PullRequest
Новая
       15

Цикл коллекции с Realbasic

0 голосов
/ 26 октября 2010

Я работаю над инструментом для учебных целей, он выполняет поиск с помощью Google API. Используя 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}

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

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")

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

1 Ответ

1 голос
/ 26 октября 2010

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

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