Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » FAR Manager (часть 5)

Модерирует : gyra, Maz

Maz (15-01-2020 17:38): FAR Manager (часть 6)  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

citPiks



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
-- 2 макроса детекта GREP`ом плагина 'LuaFAR Search' русских букв в ключах макросов Far`а
-- составил citPiks
 
local lfsPlug = "8E11EA75-0303-4374-AC60-D1E38F865449" -- гуид плагина LuaFAR Search
local lfsMenu = "3D5E7985-3B5D-4777-A572-BA7C621B3731" -- гуид меню плагина LuaFAR Search
local regkey1 = "[\\W]key *?= *?([\"\'])[^\'\"]*[А-ЯЁа-яё][^\'\"]*\\1" -- регексп поиска русских букв в ключах макросов
local regkey2 = "(?:[;\\s]|^)key *?= *?([\"\'])[^\"\']*?[А-ЯЁа-яё][^\"\']*?\\1"
-- альтернативный регексп поиска русских букв в ключах макросов
-- регекспы составил Alexyz21, см. в теме http://forum.ru-board.com/topic.cgi?forum=5&topic=49572&start=2640#11
 
Macro {
description="детектить GREP`ом русские буквы в key-полях макросов 1";
area="Shell"; key="CtrlAltG";
action=function()
  Plugin.Menu(lfsPlug,lfsMenu) Keys("3") -- вызвать диалог "LF Search: Grep"
  Keys("CtrlY * . l u a , * . m o o n") -- задать маску искомых файлов
  Dlg.SetFocus(11) Keys("Add") -- установить: [x] Регулярное выражение
  Dlg.SetFocus(5) Keys("CtrlY"..regkey1) -- перейти в поле "Искать:" и выставить в нём первый регексп
  Keys("Tab CtrlY") -- перейти в поле "Пропускать:" и очистить его
  Dlg.SetFocus(14) Keys("Subtract") -- установить: [ ] Учитывать регистр
  Dlg.SetFocus(13) Keys("CtrlDown End Up Enter") -- перейти на позицию "Библиотека:" и установить "PCRE"
  Dlg.SetFocus(19) -- перейти на позицию "Область поиска:"
  Keys("CtrlDown Home Enter") -- установить: "От текущей папки"
  Dlg.SetFocus(20) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
  Dlg.SetFocus(21) Keys("Subtract") -- установить: [ ] Фильтр папок
  Dlg.SetFocus(23) Keys("Subtract") -- установить: [ ] Фильтр файлов
  Dlg.SetFocus(26) Keys("Add") -- установить: [x] Показывать номера строк
  Dlg.SetFocus(27) Keys("Add") -- установить: [x] Подсветить вхождения
  Dlg.SetFocus(28) Keys("Subtract") -- установить: [ ] Инверсный поиск
  Dlg.SetFocus(30) Keys("CtrlY 0") -- установить: "Строк контекста, перед:   0"
  Dlg.SetFocus(32) Keys("CtrlY 0") -- установить: "Строк контекста, после:   0"
  Dlg.SetFocus(34) -- перейти на кнопку { ОК }
  Keys("Enter")
end
}
 
Macro {
description="детектить GREP`ом русские буквы в key-полях макросов 2";
area="Shell"; key="CtrlAltG";
action=function()
  Plugin.Menu(lfsPlug,lfsMenu) Keys("3") -- вызвать диалог "LF Search: Grep"
  Keys("CtrlY * . l u a , * . m o o n") -- задать маску искомых файлов
  Dlg.SetFocus(11) Keys("Add") -- установить: [x] Регулярное выражение
  Dlg.SetFocus(5) Keys("CtrlY"..regkey2) -- перейти в поле "Искать:" и выставить в нём альтернативный регексп
  Keys("Tab CtrlY") -- перейти в поле "Пропускать:" и очистить его
  Dlg.SetFocus(14) Keys("Subtract") -- установить: [ ] Учитывать регистр
  Dlg.SetFocus(13) Keys("CtrlDown End Up Enter") -- перейти на позицию "Библиотека:" и установить "PCRE"
  Dlg.SetFocus(19) -- перейти на позицию "Область поиска:"
  Keys("CtrlDown Home Enter") -- установить: "От текущей папки"
  Dlg.SetFocus(20) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
  Dlg.SetFocus(21) Keys("Subtract") -- установить: [ ] Фильтр папок
  Dlg.SetFocus(23) Keys("Subtract") -- установить: [ ] Фильтр файлов
  Dlg.SetFocus(26) Keys("Add") -- установить: [x] Показывать номера строк
  Dlg.SetFocus(27) Keys("Add") -- установить: [x] Подсветить вхождения
  Dlg.SetFocus(28) Keys("Subtract") -- установить: [ ] Инверсный поиск
  Dlg.SetFocus(30) Keys("CtrlY 0") -- установить: "Строк контекста, перед:   0"
  Dlg.SetFocus(32) Keys("CtrlY 0") -- установить: "Строк контекста, после:   0"
  Dlg.SetFocus(34) -- перейти на кнопку { ОК }
  Keys("Enter")
end
}

Всего записей: 373 | Зарегистр. 26-06-2016 | Отправлено: 10:35 24-08-2019
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » FAR Manager (часть 5)
Maz (15-01-2020 17:38): FAR Manager (часть 6)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru