Page 1 of 1

Редактор: поиск/замена целыми словами с регулярными выражениями

Posted: Mon 18 Apr, 2016 23:17
by HaRT
Поскольку при поиске/замене в редакторе с “[x] Regular expressions” значение опции “[x] Whole words” игнорируется, я написал макрос, который позволяет сгладить это неудобство, пусть и не очень красивым способом — при включении галки “Только целые слова” изменяет регэксп дописыванием в начало и конец так, чтобы текст по нему находился только между границами слова (и чтобы номера/имена групп при этом не менялись); при выключении галки те префикс и суффикс убираются. И всё это происходит, только если включена опция “Регулярные выражения”.
  1. -- See http:// forum.farmanager.com/viewtopic.php?p=137190#p137190
  2. -- TODO extend to various RESearch dialogs
  3. local SEARCH_TXT_ITEM_POS =  5  -- in both Search and Replace
  4. local WHLWRD_CHK_ITEM_POS = 10  -- in both Search and Replace
  5. local REGEXP_CHK_ITEM_POS = 12  -- in both Search and Replace
  6.  
  7. Macro {
  8.   description = 'Search/Replace: smart toggle Whole Words for RegExp';
  9.   area = 'Dialog'; key = 'AltW';
  10.   condition = function()
  11.     return ( Dlg.Id == far.Guids.EditorSearchId or
  12.              Dlg.Id == far.Guids.EditorReplaceId )
  13.          and Dlg.GetValue(REGEXP_CHK_ITEM_POS) ~= 0
  14.   end;
  15.   action = function()
  16.     local prefix, suffix = '\\b(?:', ')\\b'
  17.     local searchText = Dlg.GetValue(SEARCH_TXT_ITEM_POS)
  18.     if Dlg.GetValue(WHLWRD_CHK_ITEM_POS) == 0 then
  19.       searchText = prefix .. searchText .. suffix
  20.     else
  21.       local prefLen, suffLen = prefix:len(), suffix:len()
  22.       if searchText:sub( 1, prefLen ) == prefix and
  23.          searchText:sub( -suffLen, -1 ) == suffix then
  24.         searchText = searchText:sub( prefLen + 1, -( suffLen + 1 ) )
  25.       else
  26.         searchText = nil  -- flag that no change is required
  27.       end
  28.     end
  29.     if searchText ~= nil then
  30.       Dlg.SetFocus(SEARCH_TXT_ITEM_POS)
  31.       Keys('CtrlY')  -- TODO preserve caret position, selection, etc
  32.       print(searchText)
  33.     end
  34.     Keys('AKey');
  35.   end;
  36. }
Прошу покритиковать. (Про идиому “condExpr and trueExpr or falseExpr” и про сравнение с nil знаю.)

Пожелание: хорошо бы аналогичную логику спрятать под капотом, чтобы поиск целыми словами просто работал и с регэкспами, притом не засоряя их.

Редактор: поиск/замена целыми словами с регулярными выражениями

Posted: Tue 19 Apr, 2016 06:06
by Shmuel
HaRT wrote: Прошу покритиковать.
Вроде и критиковать нечего, всё нормально.
В качестве мелкого усовершенствования, можно использовать стандартные имена гуидов, например far.Guids.EditorSearchId. Эти имена можно оперативно получить следующим макросом:

Редактор: поиск/замена целыми словами с регулярными выражениями

Posted: Tue 19 Apr, 2016 10:16
by fps
Если опцию выбирать мышкой, то не работает :)