Серый форум — AHK:Прошу помощи в совмещение трех скриптов в один

Re: AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (edea28_) — Mon, 01 Mar 2021 12:19:23 +0000

Я вроде бы понял в чем проблема. При исполнения первого скрипта , слетает курсор с текста и по этому следующие скрепты которые работают с текстом не исполняются.

Re: AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (edea28_) — Mon, 01 Mar 2021 11:37:14 +0000

KusochekDobra
Никакой полноценно не срабатывает, только MsgBox срабатывает об ошибки что текст не скопирован. Может есть идеи ?


^vkA4::
WinActivate, ahk_class Shell_TrayWnd
fileappend, %ClipboardAll%, C:\home\test1.txt
if errorlevel = 0
   msgbox done
      sleep 200

SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43}    ;  ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
   MsgBox, Буфер обмена пуст!
   Return
 }   
MyVar = %clipboard%
Clipboard := RegExReplace(Clipboard, "s).*?\R?")
SendInput, ^{vk56}     ;  ctrl+V
     sleep 200
WinActivate, ahk_class Shell_TrayWnd
FileRead, Clipboard, *c C:\home\test1.txt
WinActivate, ahk_class Photoshop
return

Re: AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (KusochekDobra) — Mon, 01 Mar 2021 10:54:33 +0000

А return и клавиши активации, Вы как убирали? Все?
Не забывайте так же, что между инструкциями, для надёжности можно, да и наверное стоит, в Вашем случае поставить Sleep`ы. Хоткеи же Вы тоже не одновременно нажимаете, или ищите, КАК перед выполнением следующих инструкций убедиться, что предыдущие выполнились корректно и добавьте эту обработку в сценарий.

Re: AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (edea28_) — Mon, 01 Mar 2021 10:19:20 +0000

KusochekDobra
Это не странный вопрос, прошу в помощи в связание скриптов.
Если вставить в таком порядке как надо, ничего от этого не изменится , я по этому попросил помощи в связание скриптов.


^vkDE::
WinActivate, ahk_class Shell_TrayWnd
fileappend, %ClipboardAll%, C:\home\test1.txt
if errorlevel = 0
   msgbox done
return


^vkA4::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43}    ;  ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
   MsgBox, Буфер обмена пуст!
   Return
 }   
StringReplace, ClipBoard, ClipBoard, ,, All 
MyVar = %clipboard%
Clipboard := RegExReplace(Clipboard, "s).*?\R?")
SendInput, ^{vk56}     ;  ctrl+V
return

^vkDC::
WinActivate, ahk_class Shell_TrayWnd
FileRead, Clipboard, *c C:\home\test1.txt
WinActivate, ahk_class Photoshop
return

Если убрать return и клавиши активации , по прежнему ничего не работает.

Re: AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (KusochekDobra) — Mon, 01 Mar 2021 09:37:12 +0000

Это очень странный вопрос.
Настолько же странный, как если бы Вы спросили: "Как из трёх разных чашек высыпать сахар в одну?"
Если ответ не очевиден, то я не знаю, как на него ответить.

Re: AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (edea28_) — Mon, 01 Mar 2021 08:45:53 +0000

KusochekDobra
Так как мне связать чтоб от одной клавиши сработали все три?

Re: AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (KusochekDobra) — Mon, 01 Mar 2021 08:32:16 +0000

Сценарий всегда выполняется в том же порядке, как Вы читаете текст. Если разместить код всех примеров в одном файле в порядке описания выше — он так и выполнится.

AHK:Прошу помощи в совмещение трех скриптов в один

null@example.com (edea28_) — Mon, 01 Mar 2021 07:59:56 +0000

Имею три скрипта работающие отдельно, но чтоб все заработало как надо хочу совместить в один полноценный скрипт.
По задумки скрипты должны по очереди срабатывать
Первый скрипт ( копирует существующий буфер обмена в txt)


^vkDE::
WinActivate, ahk_class Shell_TrayWnd
fileappend, %ClipboardAll%, C:\home\test1.txt
if errorlevel = 0
   msgbox done
return

Второй скрипт выполняет ctrl A ctrl C всего текста и удаляет тег


^vkA4::
SetBatchLines, -1
ClipBoard =
SendInput, ^{vk41}^{vk43}    ;  ctrl+A crl+C
ClipWait, 2
if ErrorLevel
{
   MsgBox, Буфер обмена пуст!
   Return
 }   
StringReplace, ClipBoard, ClipBoard,

,, All 
MyVar = %clipboard%
Clipboard := RegExReplace(Clipboard, "s).*?

\R?")
SendInput, ^{vk56}     ;  ctrl+V
return

Третий скрипт возвращает самый первый буфер обмена который находится в txt документе.


^vkDC::
WinActivate, ahk_class Shell_TrayWnd
FileRead, Clipboard, *c C:\home\test1.txt
WinActivate, ahk_class Photoshop
return

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