Как повторить клавиатурный макрос N раз?

Хотите говорить о Far и не знаете, куда обратиться?
Shmuel
Posts: 5041
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 11 times
Been thanked: 133 times

Как повторить клавиатурный макрос N раз?

Post by Shmuel » Mon 12 Dec, 2016 18:34

Latest post of the previous page:

HaRT wrote: ока даже не представляю, как к нему подступиться.
Очень просто - выбросить condition и добавить её код в сам макрос (посредством if).

User avatar
HaRT
Moderator
Posts: 7982
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 66 times
Been thanked: 97 times

Как повторить клавиатурный макрос N раз?

Post by HaRT » Mon 12 Dec, 2016 19:19

Shmuel wrote: выбросить condition и добавить её код в сам макрос (посредством if)
Спасибо, в данном случае это ещё и исправило ошибку в самом повторяемом макросе. ;)
А вот как бы ещё из нашего макроса–повторителя вывести окошко типа “Теперь нажмите кнопкосочетание”, которое бы закрывалось само, когда клавиша нажата? (Ну и хорошо бы иметь возможность отмены мышкой.) С far.Message у меня что-то не получается (что и не странно, учитывая модальность выводимой диаложки).
Фар есть инструмент, а не нянька. © 2009 DrKnS

Shmuel
Posts: 5041
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 11 times
Been thanked: 133 times

Как повторить клавиатурный макрос N раз?

Post by Shmuel » Mon 12 Dec, 2016 19:39

HaRT wrote: С far.Message у меня что-то не получается
Задавайте параметр Buttons равным "".

User avatar
HaRT
Moderator
Posts: 7982
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 66 times
Been thanked: 97 times

Как повторить клавиатурный макрос N раз?

Post by HaRT » Mon 12 Dec, 2016 20:08

Shmuel wrote: Задавайте параметр Buttons равным "".
Спасибо, теперь вообще отлично!
Code: [Select all] [Expand/Collapse] [Download] (Common_RepeatShortcut.lua)
  1. -- See <a href="http://forum.farmanager.com/" class="postlink">http://forum.farmanager.com/</a> viewtopic.php?p=141993#p141993
  2.  
  3. local breakBy = 'Break'  -- press CtrlPause
  4.  
  5. Macro {
  6.  
  7.   area='Common'; key='CtrlShiftR'; description='Repeat shortcut/macro';
  8.  
  9.   action=function()
  10.  
  11.     local title = 'Repeat shortcut/macro'
  12.  
  13.     local input = far.InputBox(
  14.  
  15.       win.Uuid('EF2ACCC7-AD34-4523-8177-295EC05B3F02'), title, '&Times')
  16.  
  17.     local num = tonumber(input)
  18.  
  19.     if num and num>0 then
  20.  
  21.       far.Message('Press the shortcut now. Cancel by '..breakBy..'.', title, '')
  22.  
  23.       local key = mf.waitkey(0,0)
  24.  
  25.       if key ~= breakBy then
  26.  
  27.         if eval(key,2)==-2 then
  28.  
  29.           for _=1,num do Keys(key) end
  30.  
  31.         else
  32.  
  33.           for _=2,num do eval(key,2) end
  34.  
  35.         end
  36.  
  37.       end
  38.  
  39.     end
  40.  
  41.   end;
  42.  
  43. }
Перевесил в область Common, переназначил на [b]CtrlShiftR[/b].
Last edited by HaRT on Thu 01 Jan, 1970 01:00, edited 0 times in total.
Reason: Исправлена возможность отмены ввода кнопкосочетания (по умолчанию — CtrlPause)
Фар есть инструмент, а не нянька. © 2009 DrKnS

Shmuel
Posts: 5041
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 11 times
Been thanked: 133 times

Как повторить клавиатурный макрос N раз?

Post by Shmuel » Mon 12 Dec, 2016 20:44

for i=1,num do Keys(key); local _ = i; end - уж очень коряво.
Используйте _ вместо i для подавления варнинга.

User avatar
HaRT
Moderator
Posts: 7982
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 66 times
Been thanked: 97 times

Как повторить клавиатурный макрос N раз?

Post by HaRT » Mon 12 Dec, 2016 21:05

Shmuel wrote: Используйте _ вместо i для подавления варнинга.
Спасибо, исправил.
Заодно добавил возможность отмены ввода кнопкосочетания (по умолчанию — CtrlPause).
Фар есть инструмент, а не нянька. © 2009 DrKnS

iva
Posts: 123
Joined: Sat 02 Nov, 2013 21:32
Been thanked: 3 times

Как повторить клавиатурный макрос N раз?

Post by iva » Mon 12 Dec, 2016 21:34

мне пришлось поставить скобки в 13 строке

Code: Select all

 if not (key == breakBy) then
Или это у меня что-то не так работает?

Shmuel
Posts: 5041
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 11 times
Been thanked: 133 times

Как повторить клавиатурный макрос N раз?

Post by Shmuel » Mon 12 Dec, 2016 22:11

iva wrote: мне пришлось поставить скобки в 13 строке
Правильно. Там баг.
Можно обойтись и без скобок: if key ~= breakBy then.

User avatar
HaRT
Moderator
Posts: 7982
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 66 times
Been thanked: 97 times

Как повторить клавиатурный макрос N раз?

Post by HaRT » Mon 12 Dec, 2016 22:24

Shmuel wrote:
iva wrote: мне пришлось поставить скобки в 13 строке
Правильно. Там баг.
Можно обойтись и без скобок: if key ~= breakBy then.
Спасибо, исправил.
Фар есть инструмент, а не нянька. © 2009 DrKnS

User avatar
alex86m6
Posts: 20
Joined: Fri 27 Mar, 2015 12:13
Has thanked: 1 time

Как повторить клавиатурный макрос N раз?

Post by alex86m6 » Tue 13 Dec, 2016 11:17

HaRT wrote:
Shmuel wrote:
iva wrote: мне пришлось поставить скобки в 13 строке
Правильно. Там баг.
Можно обойтись и без скобок: if key ~= breakBy then.
Спасибо, исправил.
Поместите +/- окончательный вариант :-)
Заказчик-то я, если вспомните :-)

User avatar
HaRT
Moderator
Posts: 7982
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 66 times
Been thanked: 97 times

Как повторить клавиатурный макрос N раз?

Post by HaRT » Tue 13 Dec, 2016 12:33

alex86m6 wrote: +/- окончательный вариант
http://forum.farmanager.com/viewtopic.p ... 93#p141993
Фар есть инструмент, а не нянька. © 2009 DrKnS

User avatar
alex86m6
Posts: 20
Joined: Fri 27 Mar, 2015 12:13
Has thanked: 1 time

Как повторить клавиатурный макрос N раз?

Post by alex86m6 » Fri 16 Dec, 2016 11:53

Всем - Большое Спасибо за помщь.

Post Reply

Return to “Обсуждение Far Manager”

Who is online

Users browsing this forum: No registered users and 2 guests