скопировать на клипбоард имя файл под курсором при наличии помеченных

Столкнулись с проблемой в использовании Far? Здесь можно получить помощь.
Post Reply
lvmm
Posts: 56
Joined: Thu 15 Apr, 2021 14:31
Has thanked: 5 times
Been thanked: 1 time

скопировать на клипбоард имя файл под курсором при наличии помеченных

Post by lvmm »

Умеет ли фар копировать на клипбоард имя одного файла под курсором, если на панели есть помеченные файлы? Макро Keys(\"Subtract Multiply NumEnter CtrlNum0 CtrlM\") я написал, но не изобрел ли я велосипед? И потом, он оставляет звездочку в диалоге пометки и иногда сдвигает файлы в панели.
Last edited by lvmm on Mon 19 Sep, 2022 08:42, edited 1 time in total.
Shmuel
Posts: 6565
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 31 times
Been thanked: 452 times

скопировать на клипбоард имя файл под курсором при наличии помеченных

Post by Shmuel »

Code: Select all

Macro {
  area="Shell"; key="F1"; -- поменяйте ключ
  action=function()
    local a = APanel.Current
    if not a:find("\\") then a=APanel.Path.."\\"..a end
    far.CopyToClipboard(a)
  end;
}
lvmm
Posts: 56
Joined: Thu 15 Apr, 2021 14:31
Has thanked: 5 times
Been thanked: 1 time

скопировать на клипбоард имя файл под курсором при наличии помеченных

Post by lvmm »

Спасибо. А можно заставить фар перезагрузить макро из профайла без выхода?
User avatar
buniak_a_h
Posts: 3608
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 182 times
Been thanked: 534 times
Contact:

скопировать на клипбоард имя файл под курсором при наличии помеченных

Post by buniak_a_h »

lvmm
  1. Если нужен не полный путь, а только то, что на панели, то: если комстрока пустая, то можно ещё CtrlEnter CtrlIns Esc. Ну или просто far.CopyToClipboard(APanel.Current)
  2. Если нужен полный путь, то CtrlF BackSpace CtrlC или то, что Shmuel написал
lvmm wrote: Mon 19 Sep, 2022 12:12 А можно заставить фар перезагрузить макро из профайла без выхода?
В комстроке macro:load
Last edited by buniak_a_h on Mon 19 Sep, 2022 12:18, edited 2 times in total.
Post Reply

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