Серый форум — AHK: Перебор в обратном порядке

Re: AHK: Перебор в обратном порядке

2018-06-08T14:45:01Z

Или так:

cmt_pages=
(
"id": "1",
"id": "2",
"id": "3",
"id": "4",
"id": "5",
"id": "6",
)
arr := StrSplit(cmt_pages, "`n", "`r")
max := arr.MaxIndex()
Loop % max
   MsgBox, % RegExReplace( arr[ max - A_Index + 1 ], """id"":\s""([^""]+).*", "$1" )

Re: AHK: Перебор в обратном порядке

2018-06-08T12:22:16Z

Я имел в виду так:

cmt_pages=
(
"id": "1",
"id": "2",
"id": "3",
"id": "4",
"id": "5",
"id": "6",
)
match := "", Pos := 1
While Pos := RegExMatch(cmt_pages, "s)(.+?)(\R|$)",match,Pos+StrLen(match))
   a := "`n" match1 a

match := "", Pos := 1
While Pos := RegExMatch(a, "s)""id"": ""(.+?)"",",match,Pos+StrLen(match))
MsgBox % match1

Re: AHK: Перебор в обратном порядке

2018-06-08T10:24:12Z

В 10 посте код выводит весь список, а мне нужен его перебор, для возможности обработки каждого комментария.

Re: AHK: Перебор в обратном порядке

2018-06-08T07:41:31Z

Так а в чём проблема?
Чем вас не устраивает вариант из 10 поста?

Re: AHK: Перебор в обратном порядке

2018-06-08T07:22:46Z

Да.

Re: AHK: Перебор в обратном порядке

2018-06-08T00:00:49Z

То есть у вас такая структура:

kommentarij1
	2
	1
kommentarij2
	3
	2
	1

А вы хотите получить такую?

kommentarij1
	1
	2
kommentarij2
	1
	2
	3

Re: AHK: Перебор в обратном порядке

2018-06-07T23:37:21Z

Malcev пишет:

А зачем?

По умолчанию вложенные комментарии в выдаче API Ютуба располагаются от старых — к новым, и поэтому их надо обратить. То есть, под-ответы к основному комментарию приходят в обратном порядке.
С InsertAt и массивом что-то не заладилось, мне бы пример)). Правильно ли понимаю, что перебирать для этой цели придётся дважды и сходу перебирать с конца не получится?

Re: AHK: Перебор в обратном порядке

2018-06-07T22:57:57Z

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

cmt_pages=
(
"id": "1",
"id": "2",
"id": "3",
"id": "4",
"id": "5",
"id": "6",
)
match := "", Pos := 1
While Pos := RegExMatch(cmt_pages, "s)""id"": ""(.+?)"",",match,Pos+StrLen(match))
   a := match1 a
msgbox % a

Если же вам необходимо именно перебирать в обратном порядке, то записывайте совпадения в массив с помощью InsertAt и потом перебирайте его.

Re: AHK: Перебор в обратном порядке

2018-06-07T22:34:29Z

Так, вроде:

cmt_pages=
(
"id": "1",
"id": "2",
"id": "3",
"id": "4",
"id": "5",
"id": "6",
)
match := "", Pos := 1
While Pos := RegExMatch(cmt_pages, "s)""id"": ""(.+?)"",",match,Pos+StrLen(match))
MsgBox % match1

Мне надо начать перебор с конца списка.

Re: AHK: Перебор в обратном порядке

2018-06-07T21:13:22Z

Приведите простой пример исходного текста, вашей регулярки и то, что вы хотите получить в итоге.

Re: AHK: Перебор в обратном порядке

2018-06-07T21:11:07Z

Имелся в виду while в таком формате, где не понятно, где указывать «!=»:

match := "", Pos := 1
While Pos := RegExMatch(cmt_pages, "s)""id"": ""(.+?)"",\R.+?""authorDisplayName"": ""(.+?)"",\R.+?""authorProfileImageUrl"": ""(.+?)"",\R.+?""authorChannelUrl"": ""(.+?)"",\R.+?""textOriginal"": ""(.+?)"",\R.+?""likeCount"": (\d+),\R.+?""publishedAt"": ""(.+?)"",\R.+?""totalReplyCount"": (\d+),\R",match,Pos+StrLen(match))

Re: AHK: Перебор в обратном порядке

2018-06-07T20:39:37Z

А разница какая между while или loop?

while A_Index != 10
   a := "`n" A_Index a
msgbox % a

Re: AHK: Перебор в обратном порядке

2018-06-07T19:59:59Z

К сожалению, намёк не понял)). Применительно к While как это можно записать?

Re: AHK: Перебор в обратном порядке

2018-06-07T01:24:18Z

loop
   msgbox % a := A_Index a

Re: AHK: Перебор в обратном порядке

2018-06-07T00:21:00Z

Там следующая конструкция (часть кода, скачивающего комментарии с Ютуба):


match := "", Pos := 1
While Pos := RegExMatch(cmt_pages, "s)""id"": ""(.+?)"",\R.+?""authorDisplayName"": ""(.+?)"",\R.+?""authorProfileImageUrl"": ""(.+?)"",\R.+?""authorChannelUrl"": ""(.+?)"",\R.+?""textOriginal"": ""(.+?)"",\R.+?""likeCount"": (\d+),\R.+?""publishedAt"": ""(.+?)"",\R.+?""totalReplyCount"": (\d+),\R",match,Pos+StrLen(match))
{
   y_cmts := match2 "`n" match3 "`n" match4 "`n" match5 "`n" match6 "`n" match7 "`n" match8

   If (match8 > 0)
   {
      sleep, 400
      ResponseText =
      parentId := match1
      Api_Url_parentId = %apis_cmtParent%%parentId%&key=%key%%other_parentId%

      HTTP.Open("GET", Api_Url_parentId, true)
   ;   HTTP.SetRequestHeader("Cookie", "remixlang=0")   ; имена на русском
      HTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
      HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko)")
      HTTP.SetRequestHeader("Pragma", "no-cache")
      HTTP.SetRequestHeader("Cache-Control", "no-cache, no-store")
      HTTP.SetRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT")
      HTTP.Send()
      HTTP.WaitForResponse()
      ResponseText := HTTP.ResponseText

      matchh := "", Poss := 1
      While Poss := RegExmatch(ResponseText, "s)""id"": ""(.+?)"",\R.+?""authorDisplayName"": ""(.+?)"",\R.+?""authorProfileImageUrl"": ""(.+?)"",\R.+?""authorChannelUrl"": ""(.+?)"",\R.+?""textOriginal"": ""(.+?)"",\R.+?""likeCount"": (\d+),\R.+?""publishedAt"": ""(.+?)"",\R",matchh,Poss+StrLen(matchh))
      {
         y_sub_cmts .= "`n`n" matchh2 "`n" matchh3 "`n" matchh4 "`n" matchh5 "`n" matchh6 "`n" matchh7 "`n" matchh8 "`n`n"
      }

   GoSub, RedTransDelim
   }
   Else
      GoSub, RedTransDelim
}

Как быть в этом случае?