The_Immortal
09-02-2018, 19:50
Приветствую!
Господа, пытаюсь извлечь нужную информацию вот из этой JSON-страницы (https://api.crypto-bridge.org/api/v1/ticker).
Нашел готовый пример (https://www.example-code.com/vbscript/json_array_load_and_parse.asp), как это делается с помощью сторонней библиотеки (Chilkat ActiveX) и попытался адаптировать его для себя:
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' A JSON array must be loaded using JsonArray:
set jsonArray = CreateObject("Chilkat_9_5_0.JsonArray")
success = jsonArray.Load("https://api.crypto-bridge.org/api/v1/ticker")
If (success <> 1) Then
outFile.WriteLine(jsonArray.LastErrorText) '!!! "Unable to get array at index 0."
WScript.Quit
End If
' Examine the values:
i = 0
Do While i < jsonArray.Size
' jsonObj is a Chilkat_9_5_0.JsonObject
Set jsonObj = jsonArray.ObjectAt(i)
outFile.WriteLine(i & ": " & jsonObj.StringOf("last"))
i = i + 1
Loop
outFile.Close
Однако в выходном файле (output.txt) я вижу оишбку:
ChilkatLog:
Load:
ChilkatVersion: 9.5.0.71
Unable to get array at index 0.
--Load
--ChilkatLog
Полагаю проблема в том, что я неправильно загружаю указанную страницу. Честно говоря, она вообще какая-то странная: при попытке обратиться к ней через IE тот воспринимает её как файл ticker.json, а вот Mozilla показывает в виде JSON-строки... =/
Подскажите, пожалуйста, как с таким работать?
Спасибо!
Господа, пытаюсь извлечь нужную информацию вот из этой JSON-страницы (https://api.crypto-bridge.org/api/v1/ticker).
Нашел готовый пример (https://www.example-code.com/vbscript/json_array_load_and_parse.asp), как это делается с помощью сторонней библиотеки (Chilkat ActiveX) и попытался адаптировать его для себя:
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' A JSON array must be loaded using JsonArray:
set jsonArray = CreateObject("Chilkat_9_5_0.JsonArray")
success = jsonArray.Load("https://api.crypto-bridge.org/api/v1/ticker")
If (success <> 1) Then
outFile.WriteLine(jsonArray.LastErrorText) '!!! "Unable to get array at index 0."
WScript.Quit
End If
' Examine the values:
i = 0
Do While i < jsonArray.Size
' jsonObj is a Chilkat_9_5_0.JsonObject
Set jsonObj = jsonArray.ObjectAt(i)
outFile.WriteLine(i & ": " & jsonObj.StringOf("last"))
i = i + 1
Loop
outFile.Close
Однако в выходном файле (output.txt) я вижу оишбку:
ChilkatLog:
Load:
ChilkatVersion: 9.5.0.71
Unable to get array at index 0.
--Load
--ChilkatLog
Полагаю проблема в том, что я неправильно загружаю указанную страницу. Честно говоря, она вообще какая-то странная: при попытке обратиться к ней через IE тот воспринимает её как файл ticker.json, а вот Mozilla показывает в виде JSON-строки... =/
Подскажите, пожалуйста, как с таким работать?
Спасибо!