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

Re: AHK: Задание для скрипта в .txt

null@example.com (serzh82saratov) — Sun, 20 Apr 2014 18:40:09 +0000

Но я не пойму, вам же так надо было:


FileRead, str, C:\Users\sergey\Desktop\new  2.txt 
arr := StrSplit(str, "`n", "`r"), i := 0
Loop % arr.MaxIndex()/2  {     
    sendinput % arr[++i] 
    sleep % arr[++i] 
}

Re: AHK: Задание для скрипта в .txt

null@example.com (serzh82saratov) — Sun, 20 Apr 2014 18:37:03 +0000

Тогда уж так:


FileRead, str, play.txt 
arr := StrSplit(str, "`n", "`r"), i := 0
Loop % arr.MaxIndex()/2  
     fileappend, % "sleep " arr[++i] "`nsendinput " arr[++i] "`n", rec.txt

Re: AHK: Задание для скрипта в .txt

null@example.com (BashkaMen) — Sun, 20 Apr 2014 18:31:56 +0000

serzh82saratov пишет:


FileRead, str, C:\Users\sergey\Desktop\new  2.txt 
arr := StrSplit(str, "`n", "`r"), i := 0
Loop % arr.MaxIndex()/2  {     
    MsgBox % "sendinput " arr[++i] 
    MsgBox % "sleep " arr[++i] 
}

Спасибо работает! чуть переделал под себя.

FileRead, str, play.txt 
arr := StrSplit(str, "`n", "`r"), i := 0
Loop % arr.MaxIndex()/2  { 
fileappend, % "sleep " arr[++i], rec.txt
fileappend, `n, rec.txt 
fileappend, % "sendinput " arr[++i], rec.txt
fileappend, `n, rec.txt 
}

Re: AHK: Задание для скрипта в .txt

null@example.com (serzh82saratov) — Sun, 20 Apr 2014 17:12:05 +0000


FileRead, str, C:\Users\sergey\Desktop\new  2.txt 
arr := StrSplit(str, "`n", "`r"), i := 0
Loop % arr.MaxIndex()/2  {     
    MsgBox % "sendinput " arr[++i] 
    MsgBox % "sleep " arr[++i] 
}

На случай пустых строк и пробелов по краям.


arr := [], i := 0
Loop, read, C:\Users\sergey\Desktop\new  2.txt 
    If A_LoopReadLine is not space
        arr.Insert(Trim(A_LoopReadLine))
Loop % arr.MaxIndex()/2  {     
    MsgBox % "sendinput " arr[++i] 
    MsgBox % "sleep " arr[++i] 
}

Re: AHK: Задание для скрипта в .txt

null@example.com (_Квас) — Sun, 20 Apr 2014 16:48:21 +0000

Ну тогда можно сделать так:

Gui, Add, Edit, vEdit, Введите кол-во строк
Gui, add, button, gbutton, ok
Gui, Show
return

button:
Gui, Submit
Loop %Edit%
FileReadLine, text%A_Index%, play.txt, %A_Index%
return

!1::
loop % Edit/=2
{
num++
sendinput, % text%num%
num++
sleep % text%num%
}
return

GuiClose:
ExitApp

Re: AHK: Задание для скрипта в .txt

null@example.com (BashkaMen) — Sun, 20 Apr 2014 11:10:04 +0000

_Квас пишет:

Первое, что пришло в голову:
Loop 12
FileReadLine, test%A_Index%, Play.txt, %A_Index%
return

!1::
sendinput, {%test1%}
sleep %test2%
sendinput, {%test3%}
sleep %test4%
sendinput, {%test5%}
sleep %test6%
sendinput, {%test7%}
sleep %test8%
sendinput, {%test9%}
sleep %test10%
sendinput, {%test11%}
sleep %test12%
Можно конечно код более оптимальнее придумать, но мне пока думать лень.

такой же код и у меня, но а вдруг там будет 1000 строк.

Re: AHK: Задание для скрипта в .txt

null@example.com (_Квас) — Sun, 20 Apr 2014 07:41:52 +0000

Первое, что пришло в голову:

Loop 12
FileReadLine, test%A_Index%, Play.txt, %A_Index%
return

!1::
sendinput, {%test1%}
sleep %test2%
sendinput, {%test3%}
sleep %test4%
sendinput, {%test5%}
sleep %test6%
sendinput, {%test7%}
sleep %test8%
sendinput, {%test9%}
sleep %test10%
sendinput, {%test11%}
sleep %test12%

Можно конечно код более оптимальнее придумать, но мне пока думать лень.

AHK: Задание для скрипта в .txt

null@example.com (BashkaMen) — Sat, 19 Apr 2014 22:52:14 +0000

Здравствуйте! Писал скрипт и столкнулся с проблемой. Есть файл "Play.txt" он выглядит где-то так:

Перед буквой "W" строка. Буквы и цифры будут разными. Нужно что б при нажатии скрипт читал строки по очереди и исполнял то что написано, тоесть если это буква - нажать её потом будет задержка (sleep) и сново буква.
В данном случае скрипт должен сделать такое действие:

sendinput, {w}
sleep 9766
sendinput, {b}
sleep 327
sendinput, {d}
sleep 219
sendinput, {h}
sleep 171
sendinput, {e}
sleep250
sendinput, {y}
sleep 234