c++快速开发例子--查找替换

原创已于 2022-06-04 10:03:50 修改 · 238 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#linq #p2p #蓝桥杯

于 2022-06-04 10:00:36 首次发布

编程实例专栏收录该内容

25 篇文章

订阅专栏

本文介绍了如何在 TFormMain 的 RichEdit1 中使用 TFindDialog 和 TReplaceDialog 进行文本查找与替换，包括匹配模式设置和全词搜索。

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "mainform.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Find1Click(TObject *Sender)
{
FindDialog1->FindText = RichEdit1->SelText;
FindDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Replace1Click(TObject *Sender)
{
ReplaceDialog1->FindText = RichEdit1->SelText;
ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Find(TObject *Sender)
{
TSearchTypes st;
TFindDialog *cd;
int newpos;

if ((cd = dynamic_cast<TFindDialog *> (Sender)) == 0)
MessageBox(NULL, "Dynamic Cast Failed!", "Find/Rep", MB_OK);

if (cd->Options.Contains(frMatchCase))
st << stMatchCase;
if (cd->Options.Contains(frWholeWord))
st << stWholeWord;

if (RichEdit1->SelLength)
RichEdit1->SelStart += 1;

newpos = RichEdit1->FindText(cd->FindText,
RichEdit1->SelStart,
RichEdit1->Text.Length(),
st);

if (newpos != -1)
{
RichEdit1->SelStart = newpos;
RichEdit1->SelLength = cd->FindText.Length();
}
else
{
MessageBox(NULL, "End of document reached.", "Find/Rep", MB_OK);
RichEdit1->SelStart = 0;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::Replace(TObject *Sender)
{
if (RichEdit1->SelLength == 0)
Find(Sender);
else
{
RichEdit1->SelText = ReplaceDialog1->ReplaceText;
Find(Sender);
}

if (ReplaceDialog1->Options.Contains(frReplaceAll))
while (RichEdit1->SelLength !=0)
Replace(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::FormCreate(TObject *Sender)
{
RichEdit1->SelStart = 0;
}
//-----------------------------------------------------