Копирование выделенного блока в другой редактор

Здесь обсуждается всё, что касается макросов.
Post Reply
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Копирование выделенного блока в другой редактор

Post by buniak_a_h »

Возможно, кому-нибудь пригодится... Мелкий макрос, копирующий отмеченный кусок текста из одного редактора в другой.
Задача: на редактирование открыто несколько (не менее двух) файлов; надо отмеченный кусок скопировать из одного файла в другой. Часто требуется "компиляция" кусков текста из нескольких файлов в один. Предлагаемый макрос решает эту задачу.
  1. local OldRecip
  2.  
  3. Macro{
  4.  
  5. --  id="";
  6.  
  7.   area="Editor";
  8.  
  9.   key="AltE";
  10.  
  11.   description="Копирование выделенного текста в другой редактор";
  12.  
  13. --  filemask="";
  14.  
  15.   flags="EVSelection";
  16.  
  17. --  priority=50;
  18.  
  19. --  sortpriority=50;
  20.  
  21. --  condition=function(key) return true end;
  22.  
  23. action=function()
  24.  
  25.  local F=far.Flags
  26.  
  27.  local nW=far.AdvControl('ACTL_GETWINDOWCOUNT')
  28.  
  29.  local WinInfo
  30.  
  31.  local Editors={} --{{text='12345';cargo=1},{text='qwerty';cargo=2},{text='asdfg';cargo=3}}
  32.  
  33.  local sCurr=far.AdvControl('ACTL_GETWINDOWINFO', 0)
  34.  
  35.  for j=1,nW do
  36.  
  37.   WinInfo=far.AdvControl('ACTL_GETWINDOWINFO', j-1)
  38.  
  39.   if (WinInfo.Type == F.WTYPE_EDITOR) then
  40.  
  41.    if WinInfo.Name ~= editor.GetFileName(nil) then
  42.  
  43.     table.insert(Editors, {text=WinInfo.Name; AreaNo=j});
  44.  
  45.    end
  46.  
  47.   end
  48.  
  49.  end
  50.  
  51.  if #Editors > 0 then
  52.  
  53.   local SelIndex=0
  54.  
  55.   if OldRecip then
  56.  
  57.    for i,v in ipairs(Editors) do
  58.  
  59.     if v.text:lower() == OldRecip:lower() then
  60.  
  61.      SelIndex = i
  62.  
  63.     end
  64.  
  65.    end
  66.  
  67.   end
  68.  
  69.  
  70.  
  71.   local aCh=far.Menu({Title='Копирование отмеченного другой файл';SelectIndex=SelIndex}, Editors)
  72.  
  73.   if aCh then
  74.  
  75.    OldRecip = aCh.text
  76.  
  77.    local OldClip=mf.clip(5,2)
  78.  
  79.    mf.clip(1, Editor.SelValue )
  80.  
  81.    far.AdvControl('ACTL_SETCURRENTWINDOW', aCh.AreaNo-1)
  82.  
  83.    print(mf.clip(0))
  84.  
  85.    mf.clip(5,OldClip);
  86.  
  87.    if sCurr then
  88.  
  89.     for i=1,nW do
  90.  
  91.      local ww = far.AdvControl('ACTL_GETWINDOWINFO', i)
  92.  
  93.      if ww.Name == sCurr.Name and
  94.  
  95.         ww.Type == sCurr.Type then
  96.  
  97.       far.AdvControl('ACTL_SETCURRENTWINDOW', i)
  98.  
  99.       break
  100.  
  101.      end
  102.  
  103.     end
  104.  
  105.    end
  106.  
  107.   end
  108.  
  109.  end
  110.  
  111. end;
  112.  
  113. }
CopySel.lua.7z
(880 Bytes) Downloaded 83 times
ccaid
Posts: 908
Joined: Fri 12 Jun, 2009 16:04
Has thanked: 24 times
Been thanked: 6 times

Копирование выделенного блока в другой редактор

Post by ccaid »

компиляции искаропки:
Ctrl-<Gray +> Добавить блок в Буфер Обмена
Фар делают добрые люди
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Копирование выделенного блока в другой редактор

Post by buniak_a_h »

ccaid wrote: Sat 07 Apr, 2018 16:36 компиляции искаропки:
Ctrl-<Gray +> Добавить блок в Буфер Обмена
Спасибо, конечно... Но может, я не понял, Вы это к чему?
1. Обычный (виндовый) буфер обмена может содержать нужное. мой макрос не изменяет его (переключает на внутренний буфер ФАРа, затем восстанавливает)
2. Стандартная (для меня) ситуация: открыто несколько редакторов, разбираю (расфасовываю) один файл по нескольким. Одна и та же последовательность кнопок; легко ошибиться и скопировать не в тот файл, особенно когда от однообразной работы входишь в транс. Меню выбора файла для этого случая удобно.
ccaid
Posts: 908
Joined: Fri 12 Jun, 2009 16:04
Has thanked: 24 times
Been thanked: 6 times

Копирование выделенного блока в другой редактор

Post by ccaid »

на всякий случай указал минимальный, но всегда и всем доступный вариант накопления кусков текста.
если он чем-то ограничивает, то конечно, можно и скрипт сочинить.
2.
buniak_a_h wrote: Wed 04 Apr, 2018 22:52 Часто требуется "компиляция" кусков текста из нескольких файлов в один. Предлагаемый макрос решает эту задачу.
здесь ничего не говорится насчет расфасовки файла но нескольким. а вот для накопления кусков из нескольких файлов со вставкой результата в один файл как раз и справляется указанный мной вариант.
Фар делают добрые люди
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Копирование выделенного блока в другой редактор

Post by buniak_a_h »

ccaid wrote: Sun 08 Apr, 2018 07:59 на всякий случай указал минимальный, но всегда и всем доступный вариант накопления кусков текста
Спасибо.
Shmuel
Posts: 6820
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 528 times

Копирование выделенного блока в другой редактор

Post by Shmuel »

Как для накопления, так и для расфасовки, можно вполне обойтись без хранения данных в буфере обмена (ни в каком из них). Текст можно хранить, либо накапливать просто в переменных макроса.
User avatar
buniak_a_h
Posts: 4236
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 643 times
Contact:

Копирование выделенного блока в другой редактор

Post by buniak_a_h »

Shmuel wrote: Sun 08 Apr, 2018 08:34 Как для накопления, так и для расфасовки, можно вполне обойтись без хранения данных в буфере обмена (ни в каком из них). Текст можно хранить, либо накапливать просто в переменных макроса.
Знаю, естественно. Возникли какие-то странности с записью строки в приёмный редактор (ни Editor.SetStr, ни editor.SetString, ни editor.InsertText, ни просто print() ни к чему не приводили). Флаг, включающий отображение изменений при выполнении макроса (не помню, как называется) положения не исправлял. К нужному результату приводила вставка far.Show, но так невозможно было работать. Разбираться я не стал - для моей работы мне хватило копирования через буфер, а времени жалко.
Post Reply

Return to “Обсуждение макросов”