Серый форум — AHK: Чтение текстового файла и символов в нём.

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 03:24:00 +0000

Malcev, вы гений просто! Спасибо!

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (Malcev) — Thu, 19 Oct 2017 03:16:22 +0000

Ужасный код.
Можно так:

String := 12345678, Start := 1, Length := 5

loop
{
   if ((NewString := SubStr(String, Start, Length)) = "")
      break
   Send % NewString "{Enter}"
   Start+=Length
   Sleep 2000
}
msgbox done

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 03:01:48 +0000

Malcev, хм, тут он просто по Loop'у вставляет все строки, но задержки нету, между вставкой каждой строки.

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 02:53:02 +0000

Вот полный код в общем:

String = 12345678

    Loop, Parse, String
{
   if (A_Index >= 0 and A_Index  <= 5)
d .= A_LoopField
   if (A_Index >= 6 and A_Index  <= 10)
e .= A_LoopField
   if (A_Index >= 11 and A_Index  <= 15)
w .= A_LoopField
   if (A_Index >= 16 and A_Index  <= 20)
u .= A_LoopField
    }
    
SendInput, % d "{Enter}"
Sleep 2000
SendInput, % e "{Enter}"
Sleep 2000
SendInput, % w "{Enter}"
Sleep 2000
SendInput, % u "{Enter}"
Sleep 2000

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 02:47:24 +0000

А всё сообразил, тут тогда поможет код svoboden.

String = zxcvbnmasdfgjqwert

    Loop, Parse, String
{
   if (A_Index >= 0 and A_Index  <= 5)
d .= A_LoopField
   if (A_Index >= 6 and A_Index  <= 10)
e .= A_LoopField
   if (A_Index >= 11 and A_Index  <= 15)
w .= A_LoopField
   if (A_Index >= 16 and A_Index  <= 20)
u .= A_LoopField
    }
    
n := d "`n" e "`n" w "`n" u
    
MsgBox % n

Тут он сможет посылать каждую строку с задержкой 2000.

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (Malcev) — Thu, 19 Oct 2017 02:45:27 +0000

Сможет, если вы будете посылать ее в цикле, а потом ставить задержку.

loop 5
{
   Send % A_Index
   Sleep 2000
}

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 02:42:12 +0000

То есть каждая строка не сможет вставляться с задержкой 2000?

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (Malcev) — Thu, 19 Oct 2017 02:41:07 +0000

И не получится.
Посылайте каждую строку в цикле.

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 02:35:48 +0000

Malcev, это я просто поэкспериментировал, у меня не получилось.

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (Malcev) — Thu, 19 Oct 2017 02:29:36 +0000

А с чего вы взяли, что так можно ставить задержку:
Send Sleep 1000?

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 01:25:34 +0000

Вот я попробовал сделать, у меня получилось такое:

String = zxcvbnmasdfgjqweryuizxcvbnmasdfgjqweryuiasdfgdf
w := 1

Output := StrLen(String)
n := Output / 5

loop % n {
a := SubStr(String, w, 5)
w += 5
d .= a "{Enter}" "{sleep 3000}"
}

SendInput, % d

Или:

String := "zxcvbnmasdfgjqwerty", n := 5
SendInput % RegexReplace(String, ".{" n "}", "$0{Enter}{sleep 3000}")

Тут он вставляет первую переменную, нажимает Enter, ждёт 3 секунды, а затем он вставляет в другие строчки следующие переменные, с Enter, но без Sleep 3000, как сделать, чтобы Sleep 3000 применялось к каждой строчке?

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 00:41:17 +0000

Malcev, Svoboden, спасибо за помощь, код правда получился хороший. Но у меня еще возникла одна проблема:
Можно ли сделать так, чтобы каждая строка в коде, которая выводится в Msgbox, короче так:
В общем должно получиться так:
SendInput, нажатие F6 текст 1-ой строки Нажатие Enter, задержка 2 секунды, затем след. строка.
SendInput, нажатие F6 текст 2-ой строки Нажатие Enter задержка 2 секунды, затем след. строка.
SendInput, нажатие F6 текст 3-ой строки Нажатие Enter задержка 2 секунды, затем след. строка.
SendInput, нажатие F6 текст 4-ой строки Нажатие Enter задержка 2 секунды, затем след. строка.
И так далее... все последующиеся..
Спасибо заранее.

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Thu, 19 Oct 2017 00:36:24 +0000

Спасибо.

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (svoboden) — Thu, 19 Oct 2017 00:01:40 +0000

Есть еще такой вариант:

String = zxcvbnmasdfgjqweryuizxcvbnmasdfgjqweryuiasdfgdf
w := 1

Output := StrLen(String)
n := Output / 5

loop % n + 1 {
a := SubStr(String, w, 5)
w += 5
d .= a "`n"
}

MsgBox % d

Re: AHK: Чтение текстового файла и символов в нём.

null@example.com (sanniauto) — Wed, 18 Oct 2017 23:44:17 +0000

svoboden, Malcev, спасибо вам за помощь! Как раз то, что я хотел!