Выделение и перенос
Выделение и перенос
Нужно выделить через один файлы в папке, их порядком 4х тысяч. Как это сделать, помогите новичку
-
- Posts: 6840
- Joined: Thu 23 Mar, 2006 21:36
- Location: Israel
- Has thanked: 41 times
- Been thanked: 530 times
Выделение и перенос
Вот 2 макроса-варианта, назначенных на разные клавиши. Каждый из них может требовать доработки, но это уже делайте сами.
Code: Select all
Macro {
area="Shell"; key="CtrlShiftA";
action=function()
local t = {}
for i=2,panel.GetPanelInfo(nil,1).ItemsNumber,2 do
local item = panel.GetPanelItem(nil, 1, i)
if not item.FileAttributes:find"d" then
t[#t+1]=i
end
end
panel.SetSelection(nil,1,t,true)
panel.RedrawPanel(nil,1)
end;
}
Macro {
area="Shell"; key="CtrlShiftB";
action=function()
Keys("Home")
while not APanel.Eof do
while APanel.Folder do Keys"Down" end
Keys("Ins Down")
end
end;
}
Last edited by Shmuel on Mon 29 Apr, 2019 10:31, edited 1 time in total.