Серый форум — AHK: Поиск последовательности.

Re: AHK: Поиск последовательности.

null@example.com (serzh82saratov) — Mon, 02 Oct 2017 20:51:32 +0000

aktor311 пишет:

Здесь последовательность ******* самая длинная в порядке возрастания.

Я про порядок возрастания так понял. Пусть ТС уточнит... Ну а так, да, во втором посте я также предположил.

Re: AHK: Поиск последовательности.

null@example.com (Malcev) — Mon, 02 Oct 2017 20:45:28 +0000

А что он должен показать?
Как я понял задание, то либо 1+2+3+4, либо 5+6+7+8.
В зхадание не уточняется какую последовательность показывать при одинаковых сериях, поэтому я выбрал первую.

Re: AHK: Поиск последовательности.

null@example.com (serzh82saratov) — Mon, 02 Oct 2017 20:38:27 +0000

Может быть, так:

str = 68376123454132178

Loop, Parse, % (str, l := s := 0, pr := "", a := {})
	f := A_LoopField, (f - pr = 1) ? (s += f, (a[++l] < s && a[l] := s)) : (l := 1, s := f), pr := f

MsgBox % str "`n`nсумма: " a[a.MaxIndex()] "`nдлинна последовательности: " a.MaxIndex()

Malcev
Насколько я понял, неможно.

str = 123405678
Prev := "", n := MaxN := Sum := MaxSum := 0
Loop, Parse, str
{
   if (A_LoopField -1 = Prev)
      Sum += A_LoopField, n++
   else
      Sum := A_LoopField, n := 1
   if (n > maxN)
      maxN := n, MaxSum := Sum
   Prev := A_LoopField
}
msgbox % MaxSum

Re: AHK: Поиск последовательности.

null@example.com (Malcev) — Mon, 02 Oct 2017 15:02:27 +0000

Так можно:

str = 68376123454132178
Prev := "", n := MaxN := Sum := MaxSum := 0
Loop, Parse, str
{
   if (A_LoopField -1 = Prev)
      Sum += A_LoopField, n++
   else
      Sum := A_LoopField, n := 1
   if (n > maxN)
      maxN := n, MaxSum := Sum
   Prev := A_LoopField
}
msgbox % MaxSum

Re: AHK: Поиск последовательности.

null@example.com (svoboden) — Mon, 02 Oct 2017 13:29:37 +0000

Заметил ошибку у многоуважаемого serzh82saratov. У меня такой код выдает - 15:

str = 68376123454132178

 if str contains 1
q := 1
 if str contains 12
q := 1+2
 if str contains 123
q := 1+2+3
 if str contains 1234
q := 1+2+3+4
 if str contains 12345
q := 1+2+3+4+5
 if str contains 123456
q := 1+2+3+4+5+6
 if str contains 1234567
q := 1+2+3+4+5+6+7
 if str contains 12345678
q := 1+2+3+4+5+6+7+8
 if str contains 123456789
q := 1+2+3+4+5+6+7+8+9

MsgBox % q

, а в коде serzh82saratov - 14.

Re: AHK: Поиск последовательности.

null@example.com (serzh82saratov) — Sat, 23 Sep 2017 18:21:38 +0000

Gui, Add, ListBox, x10 y10 w200 h240 vDm
Gui, Add, Button, y+ w200 h30 gSave1, Добавить цифры
Gui, Show,,%A_ScriptName%
return

Save1: 
	MsgBox, Запущено
	Input, Твои_цифры, L10, Esc
	GuiControl,,Dm,%Твои_цифры%
	MsgBox, Введено
	str := Твои_цифры
	Loop, Parse, % (str "0", l := r := s := 0, pr := "") 
		f := A_LoopField, (pr = "" || f - pr = 1) ? (pr := f, l++, s += f) 
		: ((l > r && (r := l, m := s)), l := s := 0, pr := "")

	MsgBox, % m
	return
	
GuiClose:
GuiEscape:
	ExitApp

Так работает, только зачем.

Re: AHK: Поиск последовательности.

null@example.com (aktor311) — Sat, 23 Sep 2017 17:37:10 +0000

stealzy
GuiControl использую что бы цифры, которые я ввел через Input, были показаны в Listbox.

Gui, Add, ListBox, x10 y10 w200 h240 vDm
Gui, Add, Button, y+ w200 h30 gSave1, Добавить цифры
Gui, Show,,%A_ScriptName%

Save1:
MsgBox, Запущено
Input , Твои_цифры, L10, Esc
GuiControl,,Dm,%Твои_цифры%
MsgBox, Введено
str := Dm
Loop, Parse, % (str "0", l := r := s := 0, pr := "") 
	f := A_LoopField, (pr = "" || f - pr = 1) ? (pr := f, l++, s += f) 
	: ((l > r && (r := l, m := s)), l := s := 0, pr := "")

MsgBox, % Dm
return
GuiClose:
GuiEscape:
ExitApp

Поменял выход на Dm. Ничего не изменилось.

Re: AHK: Поиск последовательности.

null@example.com (stealzy) — Sat, 23 Sep 2017 17:15:25 +0000

MsgBox % "Введено " Dm ; что на входе, то и на выходе

Зачем там GuiControl? Справку хоть посмотрите по команде, у вас там ахинея в параметрах.

Re: AHK: Поиск последовательности.

null@example.com (aktor311) — Sat, 23 Sep 2017 16:51:38 +0000

Спасибо.
Не подскажите, почему в конце в Msgbox не выводится ничего?

Gui, Add, ListBox, x10 y10 w200 h240 vDm
Gui, Add, Button, y+ w200 h30 gSave1, Добавить цифры
Gui, Show,,%A_ScriptName%
return
Save1:
MsgBox, Запущено
Input , Твои_цифры, L10, Esc
GuiControl,,Dm,%Твои_цифры%
MsgBox, Введено
str := Dm
Loop, Parse, % (str "0", l := r := s := 0, pr := "") 
	f := A_LoopField, (pr = "" || f - pr = 1) ? (pr := f, l++, s += f) 
	: ((l > r && (r := l, m := s)), l := s := 0, pr := "")

MsgBox, % m
return
GuiClose:
GuiEscape:
ExitApp

Re: AHK: Поиск последовательности.

null@example.com (serzh82saratov) — Sat, 23 Sep 2017 13:20:23 +0000

Или так.

str = 123406789

Loop, Parse, % (str "0", l := r := s := m := 0, pr := "") 
	f := A_LoopField, (pr = "" || f - pr = 1) ? (pr := f, l++, s += f) 
	: ((l >= r && (r := l, m := s > m ? s : m)), l := s := 0, pr := "")
 
MsgBox % m

Re: AHK: Поиск последовательности.

null@example.com (serzh82saratov) — Sat, 23 Sep 2017 13:10:05 +0000

str = 12345651784132156

Loop, Parse, % (str "0", l := r := s := 0, pr := "") 
	f := A_LoopField, (pr = "" || f - pr = 1) ? (pr := f, l++, s += f) 
	: ((l > r && (r := l, m := s)), l := s := 0, pr := "")
 
MsgBox % m

AHK: Поиск последовательности.

null@example.com (aktor311) — Sat, 23 Sep 2017 11:58:40 +0000

Возможно ли в AHK после введения цифр 0-9 (0123456789) в произвольном порядке, выполнить поиск максимально большой серии последовательных цифр в порядке возрастания, а потом сложить все цифры содержащиеся в этой серии?
Например:
12345651784132156
Здесь последовательность 123456 самая длинная в порядке возрастания.
И нужно сделать это:
1+2+3+4+5+6=21
Это все должно быть автоматизированно, кроме ввода самих цифр. Они вводятся с клавиатуры через Input.
Если возможно, то прошу помочь.