Russian Belarusian English German Japanese Ukrainian

FindDialog и ReplaceDialog - диалоги поиска и замены текста

CuBook05

Компоненты FindDialog и ReplaceDialog, вызывающие диалоги поиска и замены фрагментов текста, очень похожи и имеют одинаковые свойства, кроме одного, задающего заменяющий текст в компоненте ReplaceDialog. Такое сходство не удивительно, поскольку ReplaceDialog - производный класс от FindDialog.
 
 
 
Компоненты имеют следующие основные свойства:
Название Значение
FindText Текст, заданный пользователем для поиска или замены. Программно может быть установлен как начальное значение, предлагаемое пользователю.
ReplaceText Только в компоненте ReplaceDialog - текст, который должен заменять FindText.
Position Позиция левого верхнего угла диалогового окна, заданная типом TPoint - записью, содержащей поля X (экранная координата по горизонтали) и Y (экранная координата по вертикали).
Left Координата левого края диалогового окна, то же, что Position.X.
Top Координата верхнего края диалогового окна, то же, что Position.Y.
Options Множество опций.
 
Последний параметр Options может содержать следующие свойства:
Название Значение
frDisableMatchCase Делает недоступным индикатор С учетом регистра в диалоговом окне.
frDisableUpDown Делает недоступными в диалоговом окне кнопки Вверх и Вниз группы Направление, определяющие направление поиска.
frDisableWholeWord Делает недоступным индикатор Только слово целиком в диалоговом окне.
frDown Выбирает кнопку Вниз группы Направление при открытии диалогового окна. Если эта опция не установлена, то выбирается кнопка Вверх.
frFindNext Эта опция включается автоматически, когда пользователь в диалоговом окне щелкает на кнопке Найти далее, и выключается при закрытии диалога.
frHideMatchCase Удаляет индикатор С учетом регистра из диалогового окна.
frHideWholeWord Удаляет индикатор Только слово целиком из диалогового окна.
frHideUpDown Удаляет кнопки Вверх и Вниз из диалогового окна.
frMatchCase Этот флаг включается и выключается, если пользователь включает и выключает опцию С учетом регистра в диалоговом окне. Можно установить эту опцию по умолчанию во время проектирования, чтобы при открытии диалога она была включена.
frReplace Применяется только для ReplaceDialog. Этот флаг устанавливается системой, чтобы показать, что текущее (и только текущее) найденное значение FindText должно быть заменено значением ReplaceText.
frReplaceAll Применяется только для ReplaceDialog. Этот флаг устанавливается системой, чтобы показать, что все найденные значения FindText должны быть заменены значениями ReplaceText.
frShowHelp Задает отображение кнопки Справка в диалоговом окне.
frWholeWord Этот флаг включается и выключается, если пользователь включает и выключает опцию Только слово целиком в диалоговом окне. Можно установить эту опцию по умолчанию во время проектирования, чтобы при открытии диалога она была включена.
 
Сами по себе компоненты FindDialog и ReplaceDialog не осуществляют ни поиска, ни замены. Они только обеспечивают интерфейс с пользователем. А поиск и замену надо осуществлять программно. Для этого можно пользоваться событием OnFind, происходящим, когда пользователь нажал в диалоге кнопку Найти далее, и событием OnReplace, возникающим, если пользователь нажал кнопку Заменить или Заменить все. В событии OnReplace узнать, какую именно кнопку нажал пользователь, можно по значениям флагов frReplace и frRepIaceAll.
 
Поиск заданного фрагмента в компоненте RichEdit легко проводить, используя его метод FindText, объявленный следующим образом:
int __fastcall FindText(const System::AnsiString SearchStr, int StartPos, int Length, TSearchTypes Options);
Этот метод ищет в тексте RichEdit фрагмент, заданный параметром SearchStr. Поиск производится, начиная с позиции StartPos (позиция первого символа текста считается нулевой), на протяжении Length символов. Параметр Options является множеством, которое может содержать элементы stWhoIeWord (поиск только целого слова) и stMatchCase (поиск с учетом регистра). Метод возвращает позицию найденного вхождения. Если заданный фрагмент не найден, возвращается -1.
 
Ниже приведен код, осуществляющий поиск заданного фрагмента в тексте компонента RichEdit1. Вызвать диалог поиска можно операторами:
/* начальное значение текста поиска - текст, выделенный в RichEdit1 */
FindDialog1->FindText = RichEdit1->SelText;
FindDialog1->Execute();
Они задают в качестве начального значения для поиска текст, выделенный в окне RichEdit1, и затем вызывают диалог поиска FindDialog1. Обработчик события OnFind компонента FindDialog1 может иметь вид:
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
int FoundAt, StartPos, ToEnd;
TSearchTypes Option;
/* если было выделение, то поиск идет, начиная с его последнего символа, иначе с позиции курсора */
StartPos = RichEdit1->SelStart;
if(RichEdit1->SelLength)
StartPos += RichEdit1->SelLength;
/* ToEnd - длина текста, начиная с первой позиции поиска и до конца */
ToEnd = RichEdit1->Text.Length() - StartPos;
/* поиск целого слова или нет в зависимости от установки пользователя */
if(FindDialog1->Options.Contains(frWholeWord))
Option << stWholeWord;
else Option >> stWholeWord;
/* поиск с учетом или без учета регистра в зависимости от установки пользователя */
if(FindDialog1->Options.Contains(frMatchCase))
Option << stMatchCase;
else Option >> stMatchCase;
FoundAt = RichEdit1->FindText(FindDialog1->FindText, StartPos, ToEnd, Option);
if(FoundAt != -1) // если найдено
{
RichEdit1->SetFocus();
RichEdit1->SelStart = FoundAt;
RichEdit1->SelLength = FindDialog1->FinaText.Length();
}
else ShowMessage("Текст '" + FindDialog1->FindText + "' не найден");
}
Функция FindDialog1Find срабатывает, когда пользователь нажал в диалоге кнопку Найти далее. Комментарии в тексте этой функции поясняют этапы поиска. Сначала производится установка области текста (переменные StartPos и ToEnd), в которой проводится поиск. Затем устанавливаются атрибуты поиска формируется множество Option в зависимости от установленных пользователем опций. Затем методом FindText проводится сам поиск. Если нового вхождения искомого текста не найдено (метод FindText вернул -1), то пользователю выдается сообщение об этом с помощью функции ShowMessage.
 
Приведенный пример относился к поиску в компоненте RichEdit. Для организации поиска в тексте компонента Memo удобно использовать метод Pos класса AnsiString, который объявлен следующим образом:
int __fastcall Pos(const AnsiString& subStr) const;
Метод возвращает индекс первого символа первого вхождения подстроки subStr в строку, к которой применяется этот метод. Индексы начинаются с 1. Если subStr не содержится в строке, то возвращается 0.
 
Для организации поиска потребуются еще две функции класса AnsiString: SubString и LowerCase. Первая из них определена как:
AnsiString __fastcall substring(int index, int count) const;
Она возвращает подстроку, начинающуюся с символа в позиции index и содержащую count символов.
 
Функция LowerCase, определенная как:
AnsiString __fastcall LowerCase() const;
возвращает строку символов S, переведенную в нижний регистр.
 
Теперь можно рассмотреть пример организации поиска. Пусть в приложении имеется компонент Memo1 и при выборе раздела меню MFind нужно организовать поиск в тексте, содержащемся в Memo1. Для упрощения задачи исключим опцию поиска только целых слов и опцию поиска вверх от положения курсора. Программа, реализующая поиск, может иметь следующий вид:
void __fastcall TForm1::MFindClick(TObject *Sender)
{
/* начальное значение текста поиска - текст, выделенный в Memo1 */
FindDialog1->FindText = Memo1->SelText;
FindDialog1->Execute();
}
//-----------------------------
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
int FoundAt, StartPos, ToEnd;
/* если было выделение, то поиск идет, начиная с его последнего символа, иначе с позиции курсора */
StartPos = Memo1->SelStart;
if(Memo1->SelLength)
StartPos += Memo1->SelLength;
/* ToEnd - длина текста, начиная с первой позиции поиска и до конца */
ToEnd = Memo1->Text.Length() - StartPos;
/* поиск с учетом или без учета регистра в зависимости от установки пользователя */
if(FindDialog1->Options.Contains(frMatchCase))
FoundAt = StartPos + Memo1->Text.substring(StartPos+1, ToEnd).Pos(FindDialog1->FindText);
else
FoundAt = StartPos + Memo1->Text.substring(StartPos+1, ToEnd).LowerCase().Pos(FindDialog1->FindIext.LowerCase());
if(FoundAt != StartPos) // если найдено
{
Memo1->SetFocus();
Memo1->SelStart = FoundAt-1;
Memo1->SelLength = FindDialog1->FindText.Length();
}
else ShowMessage("Текст '" + FindDialog1->FindText + "' не найден");
}
Программа аналогична приведенной ранее для компонента RichEdit и отличается только несколькими операторами, осуществляющими непосредственно поиск. 
При реализации команды Заменить приведенные выше процедуры можно оставить теми же самыми, заменив в них FindDialog1 на ReplaceDialog1. Дополнительно можно написать процедуру обработки события OnReplace компонента ReplaceDialog1. Кроме того желательно обеспечить, чтобы при нажатии пользователем в диалоге клавиши Заменить все программа просматривала бы весь текст и проводила все замены без дополнительных вопросов пользователю. Для этого можно в конце обработчика события OnFind вставить оператор, который в случае, если пользователь нажал в диалоге клавишу Заменить все, вызывал бы обработчик события OnReplace. В итоге текст, обеспечивающий замену в компоненте RichEdit, может иметь вид:
void __fastcall TForm1::ReplaceDialog1Find(TObject *Sender)
{
// Если нажата кнопка "Заменить все", то уход на замену
if(ReplaceDialog1->Options.Contains(frReplaceAll))
ReplaceDialog1Replace(Sender);
}
//-----------------------------
void __fastcall TForm1::ReplaceDialog1Replace(TObject *Sender)
{
if(RichEdit1->SelText != "") // Если есть выделенный текст Замена выделенного текста
RichEdit1->SelText = ReplaceDialog1->ReplaceText;
else if(ReplaceDialog1->Options.Contains(frReplace))
{
ShowMessage("Текст '" + ReplaceDialog1->FindText + "' не найден");
return;
}
// Если нажата кнопка "Заменить все", то уход на поиск
if(ReplaceDialog1->Options.Contains(frReplaceAll))
ReplaceDialog1Find(Sender);
}
В функции ReplaceDialog1Find в конце поиска очередного вхождения искомого фрагмента в текст проверяется нажатие пользователем кнопки Заменить все. Если она нажата, то происходит обращение к функции ReplaceDialog1Replace, в которой осуществляется замена текста, после чего сразу автоматически опять вызывается функция ReplaceDialog1Find. Таким образом без остановок просматриваются и заменяются все вхождения искомого фрагмента в текст. Если же кнопка Заменить все не нажата, то программа останавливается и ждет, пока пользователь нажмет в диалоге кнопку Найти далее или Заменить. Если нажимается кнопка Найти далее, то производится следующий вызов ReplaceDialog1Find. А при нажатии кнопки Заменить вызывается функция ReplaceDialog1Replace, которая заменяет выделенный текст.
 
Приведенные коды рассчитаны на компонент RichEdit. Для компонента Memo в них просто надо заменить RichEdit1 на Memo1.
Если заметили ошибку, выделите фрагмент текста и нажмите Ctrl+Enter

Добавить комментарий


Защитный код Обновить