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

Здесь обсуждается всё, что касается макросов.
Post Reply
User avatar
HaRT
Moderator
Posts: 9170
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 90 times
Been thanked: 177 times

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

Post by HaRT » Mon 18 Apr, 2016 23:17

Поскольку при поиске/замене в редакторе с “[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 знаю.)

Пожелание: хорошо бы аналогичную логику спрятать под капотом, чтобы поиск целыми словами просто работал и с регэкспами, притом не засоряя их.
Last edited by HaRT on Thu 01 Jan, 1970 01:00, edited 0 times in total.
Reason: Добавлены константы из far.Guids; вычеркнуто неактуальное, добавлено пожелание к разработчикам.
Фар есть инструмент, а не нянька. © 2009 DrKnS

Shmuel
Posts: 5928
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 23 times
Been thanked: 235 times

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

Post by Shmuel » Tue 19 Apr, 2016 06:06

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

fps
Posts: 209
Joined: Wed 20 Apr, 2005 06:39
Has thanked: 15 times
Been thanked: 6 times

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

Post by fps » Tue 19 Apr, 2016 10:16

Если опцию выбирать мышкой, то не работает :)

Post Reply

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