Выделение и перенос

Столкнулись с проблемой в использовании Far? Здесь можно получить помощь.
Post Reply
Ksen
Posts: 1
Joined: Sat 27 Apr, 2019 19:08

Выделение и перенос

Post by Ksen »

Нужно выделить через один файлы в папке, их порядком 4х тысяч. Как это сделать, помогите новичку :crazy:
Shmuel
Posts: 6840
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

Выделение и перенос

Post by Shmuel »

Вот 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.
Post Reply

Return to “Нужна помощь”