Серый форум — AHK: Разбор ответа VK API или JSON

Re: AHK: Разбор ответа VK API или JSON

null@example.com (DD) — Wed, 07 Aug 2019 20:13:42 +0000

Почему ключ "pk" отображается в виде дробного числа? —

ResponseText =
(
{"comment_likes_enabled": true, "comments": [{"pk": 17849713558010739, "user_id": 198212294, "text": "Тире ставится, когда есть пробел", "type": 0, "created_at": 1440283999, "created_at_utc": 1440283999, "content_type": "comment", "status": "Active", "bit_flags": 0, "user": {"pk": 198212294, "username": "artijado", "full_name": "Igor Malinin", "is_private": false, "profile_pic_url": "https://scontent-arn2-1.cdninstagram.com/vp/cc261c5894efaa68c8e5e7d40c02f103/5DE7C76F/t51.2885-19/s150x150/60960188_330080244351723_7306559494501171200_n.jpg?_nc_ht=scontent-arn2-1.cdninstagram.com", "profile_pic_id": "2053930082462014902_198212294", "is_verified": false, "latest_reel_media": 1565204355}, "did_report_as_spam": false, "share_enabled": false, "has_liked_comment": false, "comment_like_count": 0, "inline_composer_display_condition": "never"}], "comment_count": 1, "caption": {"pk": 17852726821010739, "user_id": 1545290738, "text": "Уточнила написание числовых интервалов в \"Справочнике издателя и автора\" Мильчина и Чельцовой: между цифрами ставится широченное тире (а я ставил минус из скромности, он всё же не так режет глаз своей шириной). Забавно, что при этом на обложке самого справочника красуется дефис.\n\n#книжныйдизайн #emdash #мильчин #издал #artlebedev", "type": 1, "created_at": 1447723802, "created_at_utc": 1447723802, "content_type": "comment", "status": "Active", "bit_flags": 0, "user": {"pk": 1545290738, "username": "addaald", "full_name": "Adda Ald", "is_private": false, "profile_pic_url": "https://scontent-arn2-1.cdninstagram.com/vp/5244ed9c2b65d6d8e016149616e58e77/5DC8DF29/t51.2885-19/s150x150/62204076_2392406174113939_623129493279604736_n.jpg?_nc_ht=scontent-arn2-1.cdninstagram.com", "profile_pic_id": "2064098053023530828_1545290738", "is_verified": false}, "did_report_as_spam": false, "share_enabled": false}, "caption_is_edited": true, "has_more_comments": false, "has_more_headload_comments": false, "media_header_display": "none", "display_realtime_typing_indicator": true, "preview_comments": [], "can_view_more_preview_comments": false, "status": "ok"}
)

edges := JSON.Parse(ResponseText).comments
MsgBox % ListValues(edges)
ListValues(edges) {
   list := ""
   For k, NDS1 in edges {
      text :=                    NDS1.text
      created_at :=              NDS1.created_at
      pk :=                      NDS1.pk
      comment_like_count :=      NDS1.comment_like_count
      user_id :=                 NDS1.user_id
      username :=                NDS1.user.username
      full_name :=               NDS1.user.full_name
      profile_pic_id :=          NDS1.user.profile_pic_id
     ;profile_pic_url :=         NDS1.user.profile_pic_url

      list .= created_at " `n" text " `n▌" pk " `n" full_name " `n" username " `n" user_id " `n" profile_pic_id " `n" comment_like_count "`n"

   } Return list
}

class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }

   _GetJScripObject()  {
      VarSetCapacity(tmpFile, (MAX_PATH := 260) << !!A_IsUnicode, 0)
      DllCall("GetTempFileName", Str, A_Temp, Str, "AHK", UInt, 0, Str, tmpFile)
      
      FileAppend,
      (
      
      
      
      
      ), % tmpFile
      
      JS := ObjBindMethod( ComObjGet("script:" . tmpFile), "eval" )
      FileDelete, % tmpFile
      JSON._AddMethods(JS)
      Return JS
   }

   _AddMethods(ByRef JS)  {
      JScript =
      (
         Object.prototype.GetKeys = function () {
            var keys = []
            for (var k in this)
               if (this.hasOwnProperty(k))
                  keys.push(k)
            return keys
         }
         Object.prototype.IsArray = function () {
            var toStandardString = {}.toString
            return toStandardString.call(this) == '[object Array]'
         }
      )
      JS.("delete ActiveXObject; delete GetObject;")
      JS.(JScript)
   }

   _CreateObject(ObjJS)  {
      res := ObjJS.IsArray()
      if (res = "")
         Return ObjJS
      
      else if (res = -1)  {
         obj := []
         Loop % ObjJS.length
            obj[A_Index] := this._CreateObject(ObjJS[A_Index - 1])
      }
      else if (res = 0)  {
         obj := {}
         keys := ObjJS.GetKeys()
         Loop % keys.length
            k := keys[A_Index - 1], obj[k] := this._CreateObject(ObjJS[k])
      }
      Return obj
   }
}

Re: AHK: Разбор ответа VK API или JSON

null@example.com (KusochekDobra) — Wed, 20 Feb 2019 13:11:19 +0000

Мои поздравления!

Re: AHK: Разбор ответа VK API или JSON

null@example.com (DD) — Wed, 20 Feb 2019 12:22:36 +0000

Спасибо, алилуйя) —

edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges
MsgBox % ListValues(edges)
ListValues(edges) {
   list := ""
   For k, NDS1 in edges {
      text :=                    NDS1.node.text
      end_cursor :=              NDS1.node.edge_threaded_comments.page_info.end_cursor
      id :=                      NDS1.node.id
      created_at :=              NDS1.node.created_at
      username :=                NDS1.node.owner.username
      profile_pic_url :=         NDS1.node.owner.profile_pic_url
      edge_threaded_comments :=  NDS1.node.edge_threaded_comments.count
      edge_liked_by :=           NDS1.node.edge_liked_by.count
      edges :=                   NDS1.node.edge_threaded_comments.edges

      list .= created_at " | " edge_liked_by " | " edge_threaded_comments
       . " | " end_cursor " | " id " | " profile_pic_url " | " text " | " username "`n"

      For i, NDS2 in NDS1.node.edge_threaded_comments.edges {
         text :=                    NDS2.node.text
         end_cursor :=              NDS2.node.edge_threaded_comments.page_info.end_cursor
         id :=                      NDS2.node.id
         created_at :=              NDS2.node.created_at
         username :=                NDS2.node.owner.username
         profile_pic_url :=         NDS2.node.owner.profile_pic_url
         edge_threaded_comments :=  NDS2.node.edge_threaded_comments.count
         edge_liked_by :=           NDS2.node.edge_liked_by.count

         list .= "`t" created_at " | " edge_liked_by " | " edge_threaded_comments
          . " | " end_cursor " | " id " | " profile_pic_url " | " text " | " username "`n"
      }
   } Return list
}

Re: AHK: Разбор ответа VK API или JSON

null@example.com (KusochekDobra) — Wed, 20 Feb 2019 11:28:22 +0000

Что Вас останавливает перед тем, чтобы взять и попробовать?
Ничего ведь не сломается, даже если результат не подтвердит ожидания.
Можно построить дополнительную обработку вложенных "edges", на основании их количества, например, так, получить все "id"

comments_count := v.node.edge_threaded_comments.count
Loop,% comments_count
	MsgBox % v.node.edge_threaded_comments.edges[ A_Index ].node.id

Или без участия этого счётчика:

For i, comment in v.node.edge_threaded_comments.edges
	MsgBox % comment.node.id

Вместо "id" может быть любое иное имя, которое Вам нужно, или путь, как, например:

For i, comment in v.node.edge_threaded_comments.edges
	MsgBox % comment.node.owner.username

Re: AHK: Разбор ответа VK API или JSON

null@example.com (DD) — Tue, 19 Feb 2019 23:25:12 +0000

Я правильно понял, что если прописать здесь нужную иерархию, предварительно значения будут извлекаться? —

edges :=                   v.node.edge_threaded_comments.edges

Re: AHK: Разбор ответа VK API или JSON

null@example.com (KusochekDobra) — Tue, 19 Feb 2019 21:58:33 +0000

Об этом и разговор. Подразумевается, что раз программист разрабатывает программу, то не в Виндовом блокноте. Но Ваше:

DD пишет:

... несколько раз за последние два дня уже безуспешно занимался комбинаторикой

Натолкнуло именно на отсутствие нужного инструмента и понимания принципов исследования чужого кода. Хотя последнее, как раз таки чуть ли не ядро, в Вашей системе познания. Всё, что я узнавал когда-либо в программировании, основано на чужих примерах и, думаю, так у всех, или в подавляющем большинстве.

DD пишет:

... а там последних ключей оказалось достаточно). Вы бы хоть записку оставили).

Так бы я затёр все бонусы получаемые в результате Вашего "Brainstorm", а так, Вы это наверняка теперь запомните.

DD пишет:

касаемо edge_liked_by/edge_threaded_comments

Обратите внимание, что вложенные комментарии имеют схожую структуру, за исключением имён, отвечающих за наличие собственных вложенных "edges". В примерах выше, для обработки их содержимого функция вызывала сама себя, но Вы может так же описать дополнительную логику, проверяя:

edge_threaded_comments :=  v.node.edge_threaded_comments.count

Которое всегда содержит количество вложенных комментариев.

Re: AHK: Разбор ответа VK API или JSON

null@example.com (DD) — Tue, 19 Feb 2019 20:59:25 +0000

Тоже пользовался Notepad++, но с разворотом конечно лучше).

Re: AHK: Разбор ответа VK API или JSON

null@example.com (DD) — Tue, 19 Feb 2019 20:58:21 +0000

Так ведь я более-менее полную иерархию пытался прописывать, а там последних ключей оказалось достаточно). Вы бы хоть записку оставили). Но это касаемо edge_liked_by/edge_threaded_comments. А под-коменты по логике как-то так должны выводиться, но это не срабатывает —


      edges :=                   v.node.edge_threaded_comments.edges.node
      edges :=                   v.node.edge_threaded_comments.edges

Целиком:


ResponseText = {"data":{"shortcode_media":{"edge_media_to_parent_comment":{"count":224,"page_info":{"has_next_page":true,"end_cursor":"{\"cached_comments_cursor\": \"17988603055194856\", \"bifilter_token\": \"KC0BDABAABgAEAAQAAgACAB799_Lz77P7011eOpvf_W__wAUAAAAABAEQ0EgwBAA\"}"},"edges":[{"node":{"id":"18033126139045251","text":"cmt1","created_at":1549564430,"did_report_as_spam":false,"owner":{"id":"7147681468","is_verified":false,"profile_pic_url":"pic1","username":"uname1"},"viewer_has_liked":false,"edge_liked_by":{"count":3},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18035179396030512","text":"cmt2","created_at":1549564345,"did_report_as_spam":false,"owner":{"id":"9037884033","is_verified":false,"profile_pic_url":"pic2","username":"uname2"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17864531659321218","text":"cmt3","created_at":1549563973,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic3","username":"uname3"},"viewer_has_liked":false,"edge_liked_by":{"count":1},"edge_threaded_comments":{"count":3,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[{"node":{"id":"18031519045002885","text":"cmt4","created_at":1549565442,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic4","username":"uname4"},"viewer_has_liked":false,"edge_liked_by":{"count":3}}},{"node":{"id":"18014501047114258","text":"cmt5","created_at":1549622948,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic5","username":"uname5"},"viewer_has_liked":false,"edge_liked_by":{"count":0}}},{"node":{"id":"18012364975121513","text":"cmt6","created_at":1549624991,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic6","username":"uname6"},"viewer_has_liked":false,"edge_liked_by":{"count":1}}}]}}},{"node":{"id":"18014605018119580","text":"cmt7","created_at":1549563882,"did_report_as_spam":false,"owner":{"id":"1575737610","is_verified":false,"profile_pic_url":"pic7","username":"uname7"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18006807262092548","text":"cmt8","created_at":1549563710,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic8","username":"uname8"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014414656112658","text":"cmt9","created_at":1549563555,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic9","username":"uname9"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17899732756291214","text":"cmt10","created_at":1549563119,"did_report_as_spam":false,"owner":{"id":"2330649029","is_verified":false,"profile_pic_url":"pic10","username":"uname10"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18030447571010198","text":"cmt11","created_at":1549562991,"did_report_as_spam":false,"owner":{"id":"5763461995","is_verified":false,"profile_pic_url":"pic11","username":"uname11"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18016886404100187","text":"cmt12","created_at":1549562982,"did_report_as_spam":false,"owner":{"id":"321345545","is_verified":false,"profile_pic_url":"pic12","username":"uname12"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17992787185168932","text":"cmt13","created_at":1549562672,"did_report_as_spam":false,"owner":{"id":"3267878847","is_verified":false,"profile_pic_url":"pic13","username":"uname13"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014099035112644","text":"cmt14","created_at":1549562649,"did_report_as_spam":false,"owner":{"id":"7495332966","is_verified":false,"profile_pic_url":"pic14","username":"uname14"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17851892326346682","text":"cmt15","created_at":1549562460,"did_report_as_spam":false,"owner":{"id":"8692656309","is_verified":false,"profile_pic_url":"pic15","username":"uname15"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}}]}}},"status":"ok"}

edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges
MsgBox % ListValues(edges)
ListValues(edges) {
   list := ""
   For k, v in edges {
      text :=                    v.node.text
      end_cursor :=              v.node.edge_threaded_comments.page_info.end_cursor
      id :=                      v.node.id
      created_at :=              v.node.created_at
      username :=                v.node.owner.username
      profile_pic_url :=         v.node.owner.profile_pic_url
      edge_threaded_comments :=  v.node.edge_threaded_comments.count
      edge_liked_by :=           v.node.edge_liked_by.count
      edges :=                   v.node.edge_threaded_comments.edges.node
      ; ...
      list .= created_at " | " edge_liked_by " | " edge_threaded_comments " | " end_cursor " | " id " | " profile_pic_url " | " text " | " username " | " edges
   } Return list
}

class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }

   _GetJScripObject()  {
      VarSetCapacity(tmpFile, (MAX_PATH := 260) << !!A_IsUnicode, 0)
      DllCall("GetTempFileName", Str, A_Temp, Str, "AHK", UInt, 0, Str, tmpFile)
      
      FileAppend,
      (
      
      
      
      
      ), % tmpFile
      
      JS := ObjBindMethod( ComObjGet("script:" . tmpFile), "eval" )
      FileDelete, % tmpFile
      JSON._AddMethods(JS)
      Return JS
   }

   _AddMethods(ByRef JS)  {
      JScript =
      (
         Object.prototype.GetKeys = function () {
            var keys = []
            for (var k in this)
               if (this.hasOwnProperty(k))
                  keys.push(k)
            return keys
         }
         Object.prototype.IsArray = function () {
            var toStandardString = {}.toString
            return toStandardString.call(this) == '[object Array]'
         }
      )
      JS.("delete ActiveXObject; delete GetObject;")
      JS.(JScript)
   }

   _CreateObject(ObjJS)  {
      res := ObjJS.IsArray()
      if (res = "")
         Return ObjJS
      
      else if (res = -1)  {
         obj := []
         Loop % ObjJS.length
            obj[A_Index] := this._CreateObject(ObjJS[A_Index - 1])
      }
      else if (res = 0)  {
         obj := {}
         keys := ObjJS.GetKeys()
         Loop % keys.length
            k := keys[A_Index - 1], obj[k] := this._CreateObject(ObjJS[k])
      }
      Return obj
   }
}

Re: AHK: Разбор ответа VK API или JSON

null@example.com (KusochekDobra) — Tue, 19 Feb 2019 20:18:08 +0000

Благодарю!
То, что нужно.

Re: AHK: Разбор ответа VK API или JSON

null@example.com (Malcev) — Tue, 19 Feb 2019 19:56:46 +0000

Есть куча онлайн сервисов, например этот:
https://jsonformatter.org/json-viewer

Re: AHK: Разбор ответа VK API или JSON

null@example.com (teadrinker) — Tue, 19 Feb 2019 19:26:24 +0000

Если сохранить JSON в файл с расширением .json, то Firefox открывает его в виде дерева без всяких плагинов:

+ открыть спойлер

Re: AHK: Разбор ответа VK API или JSON

null@example.com (KusochekDobra) — Tue, 19 Feb 2019 19:16:50 +0000

Пользуетесь редактором с подсветкой? Если да, то наверняка он должен так же подсвечивать пару для выделенной скобки.

+ открыть спойлер

Таким образом можно выделить весь интересующий участок JSON-строки для анализа. Находите начало интересующего Вас блока, выделяете его весь вместе со скобками, которые его обозначают, копируете в отдельное место. Получается, например, так:

"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}

Если это ещё не помогает понять структуру внутри, например, потому, что участок кода может быть большим, разбираете его для удобочитаемости, пользуясь самыми обычными отступами и переносом строки:

"edge_threaded_comments":
	{
		"count":0,
		"page_info":
			{
				"has_next_page":false,
				"end_cursor":null
			},
		"edges":[]
	}

Так, можно визуализировать любую иерархию. Поищите в гугле, плагины для браузера(наверняка есть), в который можно поместить такой JSON и он его представит в виде раскрывающегося дерева, на подобии эксплорера. Возможно есть ещё какие-либо аналоги. На дворе 2к19, было бы странно, если бы повсеместно используемый компонент не обзавёлся чем-то подобным.

Re: AHK: Разбор ответа VK API или JSON

null@example.com (DD) — Tue, 19 Feb 2019 17:18:35 +0000

Так я и говорю вторую страницу, что хочу получать: значения "edge_liked_by.count", а также — для последнего скрипта — под-комментарии (то, что выше в скриптах отбивалось табуляцией от основных комментариев). Не могли бы Вы подсказать правильную последовательность иерархии, потому что я несколько раз за последние два дня уже безуспешно занимался комбинаторикой?

Re: AHK: Разбор ответа VK API или JSON

null@example.com (KusochekDobra) — Tue, 19 Feb 2019 16:56:24 +0000

Я не могу этого знать. Цель получить что-то ставите перед собой Вы, значит и знать, что получать, должны Вы.
На каждой итерации, Вам доступен весь контент текущего элемента, массива "edges". Всё что нужно для получения значения из конкретного поля в этом элементе - полностью квалифицированное имя этого поля, относительно элемента. В нашем случае, относительно "v.node":

end_cursor :=	v.node.edge_threaded_comments.page_info.end_cursor
text :=			v.node.text
; ...

Re: AHK: Разбор ответа VK API или JSON

null@example.com (DD) — Tue, 19 Feb 2019 16:32:45 +0000

Да, имелась в виду иерархия через точку (включая "count") для вывода "edge_liked_by" и под-комментариев. Достаточно указать в этом скрипте такую валидную иерархию через точку, или надо еще что-то "на каждой итерации выбирать", "сохраняя в промежуточных переменных искомые значения" и т. д.?