16. Разработать процедуру поиска по информации Memo-поля
(*Term). Найти записи, в которых есть слова, заканчивающиеся Term (левое усечение).
(Term*). Найти записи, в которых есть слова, начинающиеся Term (правое усечение)
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
// инициализация приложения
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
int i;
AnsiString str = "";
BYTE b;
StartFind = false;// поиск не начат
qnt = 118;
// заполняем массив буквами русского и латинского алфавита
for(i=65; i<255; i++)
{
if( ( i > 90 && i < 97 ) || ( i > 122 && i < 192 ) ) continue;
b = i;
str += (char)b;
}
alf = new char[qnt];
strcpy(alf, str.c_str());
}
//---------------------------------------------------------------------------
// результаты поиска
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
// текст результата поиска
AnsiString str = "в тексте №" + IntToStr(atoi(&((TWinControl*)Sender)->Name.c_str()[8]));
// если поиск начат и результат положительный и он еще не указан, то указываем результат
if( StartFind && !StaticText1->Caption.Pos(str) ) StaticText1->Caption = StaticText1->Caption + str + "\r\n";
}
//---------------------------------------------------------------------------
// ищем выражения в предложении
void __fastcall TForm1::FindTerm(TRichEdit* re, AnsiString Term, int type, bool whole)
{
int i, j, k, end = re->Text.Length();
bool res;
// если оба выражения найдены в тексте
if( re->Text.SubString(1, end-1).Pos(Term) )
{
i = 1; // начало текста
j = 0;
k = Term.Length();
// ищем выражение
while(i)
{
i = re->Text.SubString(i, end - i).Pos(Term);
if( i ) // если найдено
{
i += j;
// проверяем - соблюдаются ли условия поиска
if( type ) res = IsStartOrEnd(re, i+Term.Length()-1);
else res = IsStartOrEnd(re, i-2);
if( res ) // если условия поиска соблюдены, то подчеркиваем найденное
{
if( whole ) // если нужно подчеркнуть слово полность
{
if( type ) // правое усечение
{
k = i;
res = false;
while( !res ) // ищем начало слова
{
res = IsStartOrEnd(re, i);
if( !res ) i -= 1;
}
i += 2;
k = k - i + Term.Length();
re->SelStart = i-1;
re->SelLength = k;
re->SelAttributes->Style = TFontStyles() << fsUnderline;
}
else // левое усечение
{
k = i;
i += Term.Length();
res = false;
while( !res ) // ищем конец слова
{
res = IsStartOrEnd(re, i);
if( !res ) i += 1;
}
re->SelStart = k - 1;
k = i - k + 1;
re->SelLength = k;
re->SelAttributes->Style = TFontStyles() << fsUnderline;
}
}
else // если нужно подчеркнуть только выражение
{
re->SelStart = i-1;
re->SelLength = Term.Length();
re->SelAttributes->Style = TFontStyles() << fsUnderline;
}
}
i += k;
j = i-1;
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int i, start, end;
TRichEdit* re;
StaticText1->Caption = ""; // очищаем предыдущие результаты поиска
// ищем поля с текстом на форме по имени компонентов
for(i=0; i
{
if( Components[i]->Name.Pos("RichEdit") ) // если найдено
{
re = (TRichEdit*)Components[i];
if( !re->Text.Length() ) continue; // если текст отсутствует ищем другое поле
// убираем предыдущие подчеркивания
re->SelectAll();
re->SelAttributes->Style = TFontStyles() >> fsUnderline;
StartFind = true; // указываем, что поиск начат
// ищем выражения в тексте с учетом условий
FindTerm(re, LabeledEdit1->Text, RadioGroup1->ItemIndex, CheckBox1->Checked);
StartFind = false; // поиск завершен
}
}
if( StaticText1->Caption == "" ) StaticText1->Caption = "ничего не найдено"; // отрицательный результат
}
//---------------------------------------------------------------------------
// проверяем выполнение условий поиска
bool __fastcall TForm1::IsStartOrEnd(TRichEdit* re, int index)
{
int i;
bool res = true;
for(i=0; i
{
if( re->Text.c_str()[index] == alf[i] ) // если указанный символ является буквой, то условия поиска не выполняются
{
res = false;
break;
}
}
if( index < 0 ) res = true;
return res;
}
//---------------------------------------------------------------------------
// освобождаем память
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete [] alf;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include
#include
#include
#include
#include
#include
#include
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TGroupBox *GroupBox1;
TRichEdit *RichEdit1;
TGroupBox *GroupBox2;
TRichEdit *RichEdit2;
TGroupBox *GroupBox3;
TRichEdit *RichEdit3;
TGroupBox *GroupBox4;
TLabeledEdit *LabeledEdit1;
TRadioGroup *RadioGroup1;
TBitBtn *BitBtn1;
TGroupBox *GroupBox5;
TStaticText *StaticText1;
TCheckBox *CheckBox1;
void __fastcall RichEdit1Change(TObject *Sender);
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
private: // User declarations
// функция поиска выражений в тексте, re - поле с текстом, Term - выражение, type - условия поиска, whole - полностью подчеркнуть слово или нет
void __fastcall FindTerm(TRichEdit* re, AnsiString Term, int type, bool whole);
// функция проверки условий поиска, re - поле с текстом, index - положение проверочного символа в тексте
bool __fastcall IsStartOrEnd(TRichEdit* re, int index);
bool StartFind; // флаг начала поиска
char* alf; // массив символов
int qnt; // размерность массива alf
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
|
Главная
Каталог файлов
