Распечатайте определенные данные с помощью Json perse
Это json
код (https://textsaver.flap.tv/lists/3ic4), и я пытаюсь
Sub test()
Dim req As New MSXML2.XMLHTTP60
Dim URL As String, ws As Worksheet
Dim json As Object, r, r1 As String
URL = "https://www.nseindia.com/api/quote-equity?symbol=DIVISLAB"
With req
.Open "GET", URL, False
.send
Set json = JsonConverter.ParseJson(.responseText)
r = json("data")(1)("CH_OPENING_PRICE")
r1 = json("data")(1)("CH_CLOSING_PRICE")
End With
Debug.Print r
Debug.Print r1
End Sub
Я хочу напечатать ТЕКСТ ниже упомянутого пункта. он на картинке также выделен синим цветом.
json>[data]>{1}>CH_OPENING_PRICE & CH_CLOSING_PRICE.
Будет более полезно, если кто-нибудь предложит мне какой-нибудь веб-сайт или книгу для базового представления об обрезке текста из вложенного json.
1 ответ
Прежде всего поместите json("данные") в переменную:
set data = json("data")
'maybe you don't need the "set" keyword there, check documentation to your json library
Затем повторите данные
For Each dataitem In data
r = dataitem("CH_OPENING_PRICE")
r1 = dataitem ("CH_CLOSING_PRICE")
Debug.Print r
Debug.Print r1
Next