Копирование файла в выделенные папки

Столкнулись с проблемой в использовании макросов? Здесь можно получить помощь.
Post Reply
able
Posts: 2
Joined: Fri 26 Jul, 2019 09:32
Has thanked: 2 times

Копирование файла в выделенные папки

Post by able » Fri 26 Jul, 2019 09:39

Здравствуйте!

Встречал на просторах этого форума макрос, который автоматически копирует выделенные файлы (с помощью process multiple destinations) на одной панели во все выделенные категории другой, однако, установив его, он выдаёт ошибку (Far Manager 3).

И ещё подскажите, пожалуйста, будет ли он работать с NetBox (нужно выделенный файл скопировать во все выделенные каталоги на удалённой машине)? Если есть какие-нибудь другие пути, не через макрос, с радостью выслушаю. Спасибо!

Code: Select all

macro
  Key="F5 F6" Cond="PanelType:0"
  Descr="Autoappend single file name to the Copy/Move destination or Copy to selected folders on passive panel"
{{
  $if (Key(#Akey)=="F5" && !APanel.Plugin && (PPanel.SelCount>=1) && !PPanel.Plugin)
    %dest="";
    %i=1;
    %p=PPanel.Path+"\\";
    $while (%i<=PPanel.ItemCount)
      $If (panel.item(1,%i,8) && (panel.item(1,%i,2) & 16))
        %s=%p+panel.item(1,%i,0);
        $if (index(%s,";")>=0 || index(%s,",")>=0)
          %s="\""+%s+"\"";
        $end
        %dest=%dest+%s+";";
      $End
      %i=%i+1;
    $End

    $if (%dest!="")
      F5
      // Far3 - w/o brackets
      $if (!Dialog || (!="FCEF11C4-5490-451D-8B4A-62FA03F52759" && !="{FCEF11C4-5490-451D-8B4A-62FA03F52759}"))
        $Exit
      $end

      Del print(%dest)
      AltM // english interface!
      Add
      AltO // english interface!

      $Exit
    $end
  $end

  $if (!PPanel.Plugin && APanel.SelCount<2 && PPanel.Visible && APanel.Path!=PPanel.Path)
    Clip(5,2) CtrlShiftIns %f=replace(Clip(0),"\"","");
    $if ((panel.fattr(0,%f) & 0x10) == 0)
      eval(Key(#Akey))
      End
      print(%f)
      Home ShiftEnd
    $else
      eval(Key(#Akey))
    $end
  $Else
    eval(Key(#Akey))
  $end

  // Clear "Filter" checkbox
  $if (Dialog && (=="FCEF11C4-5490-451D-8B4A-62FA03F52759" || =="{FCEF11C4-5490-451D-8B4A-62FA03F52759}"))
    $if (env("FARLANG")=="English")
      AltU
      $if (Dlg.CurPos==15)
        Subtract AltO
      $end
    $else
      $rep(5) ShiftTab $end
      $if (Dlg.CurPos==15)
        Subtract $rep(5) Tab $end
      $end
    $end
  $end

  $if (Key(#Akey)=="F5")
    AltM // english interface!
    Subtract
    AltO // english interface!
  $end
}}

User avatar
HaRT
Moderator
Posts: 8751
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 81 times
Been thanked: 148 times

Копирование файла в выделенные папки

Post by HaRT » Fri 26 Jul, 2019 11:28

able wrote:
Fri 26 Jul, 2019 09:39
он выдаёт ошибку
Скопируйте текст ошибки и спросите о ней в теме обсуждения того макроса. (Тут это будет офтопик.)
Фар есть инструмент, а не нянька. © 2009 DrKnS

User avatar
zg
zero-gravity
Posts: 5549
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 87 times
Contact:

Копирование файла в выделенные папки

Post by zg » Fri 26 Jul, 2019 11:29

макрос-то на старом макроязыке, в третьем фаре — не поддерживается. где-то был конвертер.

Shmuel
Posts: 5789
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 22 times
Been thanked: 210 times

Копирование файла в выделенные папки

Post by Shmuel » Fri 26 Jul, 2019 11:44

Не только на старом макроязыке, но ещё и от плагина MacroLib.
Попробовал конвертером с параметром fml_file, конвертер его не взял, а разбираться особо нет времени.

User avatar
John Doe
Бюрократ
Posts: 12287
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 33 times
Been thanked: 164 times

Копирование файла в выделенные папки

Post by John Doe » Fri 26 Jul, 2019 11:48

Shmuel wrote:
Fri 26 Jul, 2019 11:44
конвертер его не взял
Видимо из-за #Akey
Хотя нет.

Проще заново написать, чем вспоминать эти древности.
able wrote:
Fri 26 Jul, 2019 09:39
И ещё подскажите, пожалуйста, будет ли он работать с NetBox
Не будет.
Last edited by John Doe on Fri 26 Jul, 2019 11:55, edited 1 time in total.

able
Posts: 2
Joined: Fri 26 Jul, 2019 09:32
Has thanked: 2 times

Копирование файла в выделенные папки

Post by able » Sat 27 Jul, 2019 12:01

Спасибо за ответы, я так понял, что копать в этом направлении особого смысла нет.

Тогда подскажите, пожалуйста, есть ли какая-либо возможность массово скопировать файл в выделенные папки через фар?
И можно ли это как-то провернуть через SFTP/SCP протокол?

Shmuel
Posts: 5789
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 22 times
Been thanked: 210 times

Копирование файла в выделенные папки

Post by Shmuel » Sat 27 Jul, 2019 13:36

able wrote:
Sat 27 Jul, 2019 12:01
Спасибо за ответы, я так понял, что копать в этом направлении особого смысла нет.
Макрос из первого сообщения можно транслировать в актуальный формат для Фар3, если не конвертером, так вручную точно можно.
Но для этого нужно время: полчаса для тех, кто в теме, несколько побольше для новичков.

Shmuel
Posts: 5789
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 22 times
Been thanked: 210 times

Копирование файла в выделенные папки

Post by Shmuel » Sat 27 Jul, 2019 15:50

Надо сказать, в полчаса не уложился.
Тестирование минимальное.
multi-dest.lua.7z
(976 Bytes) Downloaded 11 times

User avatar
John Doe
Бюрократ
Posts: 12287
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 33 times
Been thanked: 164 times

Копирование файла в выделенные папки

Post by John Doe » Sat 27 Jul, 2019 16:31

able wrote:
Sat 27 Jul, 2019 12:01
Тогда подскажите, пожалуйста, есть ли какая-либо возможность массово скопировать файл в выделенные папки через фар?
Я не смотрел макрос Shmuel, но сам пользуюсь другим приёмом: копирую в буфер список нужных папок, а в диалоге копирования вставляю с помощью такого макроса viewtopic.php?p=129255#p129255
able wrote:
Sat 27 Jul, 2019 12:01
И можно ли это как-то провернуть через SFTP/SCP протокол?
Средствами фара - сложно. Проще подыскать более продходящую утилиту (которую можно будет привязать и к фару)

Post Reply

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