0

このWebサイトからVB6のJSONパーサーをダウンロードして設定しました： VB-JSON

このモジュールがどのように機能するのか理解できません。Excel 2010での設定に成功し、JSON形式も理解できると思いますが、このクラスがどのようにアイテムを抽出するのかわかりません。次のテキストをJSON形式で解析しようとしました

{"realms":[{"type":"pvp","population":"low","queue":false,"wintergrasp":{"area":1,"controlling-faction":1,"status":0,"next":1356724174636},"tol-barad":{"area":21,"controlling-faction":1,"status":0,"next":1356723246779},"status":true,"name":"Kor'gall","slug":"korgall","battlegroup":"Cruelty / Crueldad","locale":"en_GB","timezone":"Europe/Paris"},{"type":"pve","population":"medium","queue":false,"wintergrasp":{"area":1,"controlling-faction":0,"status":0,"next":1356724425638},"tol-barad":{"area":21,"controlling-faction":0,"status":0,"next":1356723369780},"status":true,"name":"Alonsus","slug":"alonsus","battlegroup":"Cruelty / Crueldad","locale":"en_GB","timezone":"Europe/Paris"}]}

次のアドレスが使用されると、ブラウザはこのコンテンツを返します： Alonsus、Kor'gall

私はこれに似たコードを書きました

Dim objJSON As Object
...
strData = objJSON.Item("Realms")(1).Item("Type")

ただし、「オブジェクト変数またはブロック変数が設定されていません」というエラーが発生します。私は「pve」値を取得することを期待していました。オブジェクト名「realms」で始まり、その後に配列が続くため、混乱しています。配列はコレクションとして返されることになっています。ご協力いただければ幸いです。

ありがとう

4

1 に答える 1

3 
set objJSON = JSON.Parse(jsonFromUrl)
strData = objJSON.Item("realms").Item(1).Item("type")

json内のキーでは大文字と小文字が区別されます。

于 2012-12-28T18:45:19.370 に答える