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

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

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

Post by able »

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

Встречал на просторах этого форума макрос, который автоматически копирует выделенные файлы (с помощью 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: 10863
Joined: Tue 30 Aug, 2005 17:21
Has thanked: 221 times
Been thanked: 358 times

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

Post by HaRT »

able wrote: Fri 26 Jul, 2019 09:39 он выдаёт ошибку
Скопируйте текст ошибки и спросите о ней в теме обсуждения того макроса. (Тут это будет офтопик.)
Фар есть инструмент, а не нянька. © 2009 DrKnS
User avatar
zg
zero-gravity
Posts: 6035
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 185 times
Contact:

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

Post by zg »

макрос-то на старом макроязыке, в третьем фаре — не поддерживается. где-то был конвертер.
Shmuel
Posts: 6836
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

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

Post by Shmuel »

Не только на старом макроязыке, но ещё и от плагина MacroLib.
Попробовал конвертером с параметром fml_file, конвертер его не взял, а разбираться особо нет времени.
User avatar
John Doe
Бюрократ
Posts: 13854
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 428 times
Contact:

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

Post by John Doe »

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 »

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

Тогда подскажите, пожалуйста, есть ли какая-либо возможность массово скопировать файл в выделенные папки через фар?
И можно ли это как-то провернуть через SFTP/SCP протокол?
Shmuel
Posts: 6836
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

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

Post by Shmuel »

able wrote: Sat 27 Jul, 2019 12:01 Спасибо за ответы, я так понял, что копать в этом направлении особого смысла нет.
Макрос из первого сообщения можно транслировать в актуальный формат для Фар3, если не конвертером, так вручную точно можно.
Но для этого нужно время: полчаса для тех, кто в теме, несколько побольше для новичков.
Shmuel
Posts: 6836
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

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

Post by Shmuel »

Надо сказать, в полчаса не уложился.
Тестирование минимальное.
multi-dest.lua.7z
(976 Bytes) Downloaded 56 times
User avatar
John Doe
Бюрократ
Posts: 13854
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 428 times
Contact:

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

Post by John Doe »

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 “Нужна помощь”