FAR Manager (часть 5) - [2338] :: Программы :: Компьютерный форум Ru.Board

--[=[
Макросы нативного поиска в папке и подпапках файлов с метками BOM
(UTF-32 BE, UTF-32 LE, UTF-16 BE, UTF-16 LE, UTF-8)
составил citPiks

При их составлении использована информация о BOM c форума http://forum.ru-board.com
Особая благодарность за помощь Alexyz21, Victor_VG, shmuz и Pasha_ZZZ

Меню формируетя автоматически благодаря свойству lua-макросов при назначении нескольких
макросов на один и тот же ключ выводить меню выбора оперативно нужного
макроса. Запускаются ключом CtrlAltB
]=]--

Macro {
description="найти файлы с BOM UTF-32 LE";
area="Shell"; sortpriority=50;
key="CtrlAltB";
action=function()
Keys("AltF7 CtrlY * . *") -- задать маску искомых файлов в диалоге поиска
Dlg.SetFocus(13) Keys("Add") -- установить: [x] Искать 16-ричный код
Dlg.SetFocus(14) Keys("Subtract") -- установить: [ ] Не содержащих
Dlg.SetFocus(15) Keys("Subtract") -- установить: [ ] Искать в архивах
Dlg.SetFocus(17) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
Dlg.SetFocus(18) Keys("Subtract") -- установить: [ ] Искать в альтернативных потоках
Dlg.SetFocus(7) -- перейти на позицию "Содержащих 16-ричный код:"
Keys("CtrlY F F Space F E Space 0 0 Space 0 0") -- выставить код FF FE 00 00 (для UTF-32 LE)
Dlg.SetFocus(28) -- перейти на кнопку [ Дополнительно ]
Keys("Enter CtrlY 4 Tab CtrlY D , S , A Tab CtrlY 1 4 , 1 3 , 0 Enter") -- в позиции "Искать только в первых:" выставить 4
-- при этом поля "Типы колонок" и "Ширина колонок" очистить и установить умолчальные значения
Dlg.SetFocus(22) -- перейти на позицию "Выберите область поиска:"
Keys("CtrlDown End 2*Up Enter") -- установить: "С текущей папки"
Dlg.SetFocus(25) -- перейти на кнопку [ Искать ]
Keys("Enter")
--Keys("3*Tab Enter") -- вывести результат на временную панель
end
}

Macro {
description="найти файлы с BOM UTF-32 BE";
area="Shell"; sortpriority=40;
key="CtrlAltB";
action=function()
Keys("AltF7 CtrlY * . *") -- задать маску искомых файлов в диалоге поиска
Dlg.SetFocus(13) Keys("Add") -- установить: [x] Искать 16-ричный код
Dlg.SetFocus(14) Keys("Subtract") -- установить: [ ] Не содержащих
Dlg.SetFocus(15) Keys("Subtract") -- установить: [ ] Искать в архивах
Dlg.SetFocus(17) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
Dlg.SetFocus(18) Keys("Subtract") -- установить: [ ] Искать в альтернативных потоках
Dlg.SetFocus(7) -- перейти на позицию "Содержащих 16-ричный код:"
Keys("CtrlY 0 0 Space 0 0 Space F E Space F F") -- выставить код FF FE (для UTF-32 BE)
Dlg.SetFocus(28) -- перейти на кнопку [ Дополнительно ]
Keys("Enter CtrlY 4 Tab CtrlY D , S , A Tab CtrlY 1 4 , 1 3 , 0 Enter") -- в позиции "Искать только в первых:" выставить 4
-- при этом поля "Типы колонок" и "Ширина колонок" очистить и установить умолчальные значения
Dlg.SetFocus(22) -- перейти на позицию "Выберите область поиска:"
Keys("CtrlDown End 2*Up Enter") -- установить: "С текущей папки"
Dlg.SetFocus(25) -- перейти на кнопку [ Искать ]
Keys("Enter")
--Keys("3*Tab Enter") -- вывести результат на временную панель
end
}

Macro {
description="найти файлы с BOM UTF-16 LE";
area="Shell"; sortpriority=30;
key="CtrlAltB";
action=function()
Keys("AltF7 CtrlY * . *") -- задать маску искомых файлов в диалоге поиска
Dlg.SetFocus(13) Keys("Add") -- установить: [x] Искать 16-ричный код
Dlg.SetFocus(14) Keys("Subtract") -- установить: [ ] Не содержащих
Dlg.SetFocus(15) Keys("Subtract") -- установить: [ ] Искать в архивах
Dlg.SetFocus(17) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
Dlg.SetFocus(18) Keys("Subtract") -- установить: [ ] Искать в альтернативных потоках
Dlg.SetFocus(7) -- перейти на позицию "Содержащих 16-ричный код:"
Keys("CtrlY F F Space F E") -- выставить код FF FE (для UTF-16 LE)
Dlg.SetFocus(28) -- перейти на кнопку [ Дополнительно ]
Keys("Enter CtrlY 2 Tab CtrlY D , S , A Tab CtrlY 1 4 , 1 3 , 0 Enter") -- в позиции "Искать только в первых:" выставить 2
-- при этом поля "Типы колонок" и "Ширина колонок" очистить и установить умолчальные значения
Dlg.SetFocus(22) -- перейти на позицию "Выберите область поиска:"
Keys("CtrlDown End 2*Up Enter") -- установить: "С текущей папки"
Dlg.SetFocus(25) -- перейти на кнопку [ Искать ]
Keys("Enter")
Keys("3*Tab Enter Multiply") -- вывести результат на временную панель и выделить все файлы на ней

Keys("F5 CtrlY % T E M P % \\ U T F 1 6 L E \\") -- задать целевой путь в диалоге копирования
Keys("Tab Add") -- установить опцию "Права доступа: (•) По умолчанию"
Keys("Tab CtrlDown Home Down Enter") -- установить: Уже существующие файлы: Вместо
Keys("Tab Subtract") -- установить: [ ] Копировать содержимое символических ссылок
Keys("Tab Subtract") -- установить: [ ] Обрабатывать несколько имён файлов
Keys("Tab Subtract") -- установить: [ ] Использовать фильтр
Keys("Tab") -- перейти на кнопку [ Копировать ]
Keys("Enter")
mf.print("goto:%TMP%\\bom\\") Keys("Enter")

Keys("AltF7 CtrlY * . *") -- задать маску искомых файлов в диалоге поиска
Dlg.SetFocus(13) Keys("Add") -- установить: [x] Искать 16-ричный код
Dlg.SetFocus(14) Keys("Add") -- установить: [x] Не содержащих
Dlg.SetFocus(15) Keys("Subtract") -- установить: [ ] Искать в архивах
Dlg.SetFocus(17) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
Dlg.SetFocus(18) Keys("Subtract") -- установить: [ ] Искать в альтернативных потоках
Dlg.SetFocus(7) -- перейти на позицию "Содержащих 16-ричный код:"
Keys("CtrlY F F Space F E Space 0 0 Space 0 0") -- выставить код FF FE 00 00 (для исключения не UTF-16 LE)
Dlg.SetFocus(28) -- перейти на кнопку [ Дополнительно ]
Keys("Enter CtrlY 4 Tab CtrlY D , S , A Tab CtrlY 1 4 , 1 3 , 0 Enter") -- в позиции "Искать только в первых:" выставить 4
-- при этом поля "Типы колонок" и "Ширина колонок" очистить и установить умолчальные значения
Dlg.SetFocus(22) -- перейти на позицию "Выберите область поиска:"
Keys("CtrlDown End 2*Up Enter") -- установить: "С текущей папки"
Dlg.SetFocus(25) -- перейти на кнопку [ Искать ]
Keys("Enter")
--Keys("3*Tab Enter") -- вывести результат на временную панель

end
}

Macro {
description="найти файлы с BOM UTF-16 BE";
area="Shell"; sortpriority=20;
key="CtrlAltB";
action=function()
Keys("AltF7 CtrlY * . *") -- задать маску искомых файлов в диалоге поиска
Dlg.SetFocus(13) Keys("Add") -- установить: [x] Искать 16-ричный код
Dlg.SetFocus(14) Keys("Subtract") -- установить: [ ] Не содержащих
Dlg.SetFocus(15) Keys("Subtract") -- установить: [ ] Искать в архивах
Dlg.SetFocus(17) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
Dlg.SetFocus(18) Keys("Subtract") -- установить: [ ] Искать в альтернативных потоках
Dlg.SetFocus(7) -- перейти на позицию "Содержащих 16-ричный код:"
Keys("CtrlY F E Space F F") -- выставить код FF FE (для UTF-16 BE)
Dlg.SetFocus(28) -- перейти на кнопку [ Дополнительно ]
Keys("Enter CtrlY 2 Tab CtrlY D , S , A Tab CtrlY 1 4 , 1 3 , 0 Enter") -- в позиции "Искать только в первых:" выставить 2
-- при этом поля "Типы колонок" и "Ширина колонок" очистить и установить умолчальные значения
Dlg.SetFocus(22) -- перейти на позицию "Выберите область поиска:"
Keys("CtrlDown End 2*Up Enter") -- установить: "С текущей папки"
Dlg.SetFocus(25) -- перейти на кнопку [ Искать ]
Keys("Enter")
--Keys("3*Tab Enter") -- вывести результат на временную панель
end
}

Macro {
description="найти файлы с BOM UTF-8";
area="Shell"; sortpriority=10; selected=true;
key="CtrlAltB";
action=function()
Keys("AltF7 CtrlY * . *") -- задать маску искомых файлов в диалоге поиска
Dlg.SetFocus(13) Keys("Add") -- установить: [x] Искать 16-ричный код
Dlg.SetFocus(14) Keys("Subtract") -- установить: [ ] Не содержащих
Dlg.SetFocus(15) Keys("Subtract") -- установить: [ ] Искать в архивах
Dlg.SetFocus(17) Keys("Subtract") -- установить: [ ] Искать в символических ссылках
Dlg.SetFocus(18) Keys("Subtract") -- установить: [ ] Искать в альтернативных потоках
Dlg.SetFocus(7) -- перейти на позицию "Содержащих 16-ричный код:"
Keys("CtrlY E F Space B B Space B F") -- выставить код EF BB BF (для UTF-8)
Dlg.SetFocus(28) -- перейти на кнопку [ Дополнительно ]
Keys("Enter CtrlY 3 Tab CtrlY D , S , A Tab CtrlY 1 4 , 1 3 , 0 Enter") -- в позиции "Искать только в первых:" выставить 3
-- при этом поля "Типы колонок" и "Ширина колонок" очистить и установить умолчальные значения
Dlg.SetFocus(22) -- перейти на позицию "Выберите область поиска:"
Keys("CtrlDown End 2*Up Enter") -- установить: "С текущей папки"
Dlg.SetFocus(25) -- перейти на кнопку [ Искать ]
Keys("Enter")
--Keys("3*Tab Enter") -- вывести результат на временную панель
end
}

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