字符串在文本文件中的定位查找

[cymcym]

如何根据一串固定不变的字符在文本文件中查找,并最终读取它所在的整行文本内容呢?

[xgming]

很简单，一行一行读出来，再比较。

[cymcym]

拜托楼上的说详细一点,谢谢!

[happyct]

一、
void get_next(STR t,int next[t.len])
{
int j=0,k=-1;
next[0]=0;
while(j<t.strlen-1)
{
if(k==-1 || t.char[j]==t.char[k])
{
j++;
k++;
next[j-1]=k;
}else{
k=next[k-1];
}
}
定位函数：
int index_kmp(STR s,STR t)
{
int i=-1,j=-1;
while(j<=s.strlen && j<=t.strlen)
{
if(j==-1 || s.char[i]==t.char[j])
{
i++;
j++;
}else{
j=next[j-1];
}
}
if(j>t.strlen)
return i-t.strlen;
else
return 0;
}

二、
FindText 建立查找文本对话框

[happyct]

这个是记事本查找和替换的代码
void __fastcall TMainEditForm::Find1_oldClick(TObject *Sender)
{
FindDialog1->Position =
Point(RichEdit1->Left + RichEdit1->Width/2,
RichEdit1->Top+RichEdit1->Height/2);
if(RichEdit1->SelLength>0)
FindDialog1->FindTextA=RichEdit1->SelText;
else
{
if(Clipboard()->HasFormat(CF_TEXT)||(Clipboard()->HasFormat(CF_OEMTEXT)))
FindDialog1->FindTextA=Clipboard()->AsText;
}
FindDialog1->Execute();

}
//---------------------------------------------------------------------------
void __fastcall TMainEditForm::FindDialog1Find(TObject *Sender)
{
TFindDialog *dlg=(TFindDialog *)Sender;
int FoundAt, StartPos, ToEnd;
if (RichEdit1->SelLength!=0)
StartPos = RichEdit1->SelStart
+ RichEdit1->SelLength;
else
StartPos = RichEdit1->SelStart;
ToEnd = RichEdit1->Text.Length() - StartPos;
FoundAt = RichEdit1->FindText(dlg->FindText,
StartPos, ToEnd, TSearchTypes()<< stMatchCase);
if (FoundAt != -1)
{
RichEdit1->SetFocus();
RichEdit1->SelStart = FoundAt;
RichEdit1->SelLength = dlg->FindText.Length();
}
else MessageBox(Handle,"没有找到符合条件的字符串!",
"查找",MB_OK|MB_ICONINFORMATION);
dlg->CloseDialog();
}
void __fastcall TMainEditForm::FindNext_oldClick(TObject *Sender)
{
FindDialog1Find(FindDialog1);
}
//---------------------------------------------------------------------------

void __fastcall TMainEditForm::Replace1_oldClick(TObject *Sender)
{
ReplaceDialog1->Position =
Point(RichEdit1->Left + RichEdit1->Width/2,
RichEdit1->Top+RichEdit1->Height/2);
ReplaceDialog1->Execute();
}
void __fastcall TMainEditForm::ReplaceDialog1Replace(TObject *Sender)
{
if (ReplaceDialog1->Options.Contains(frReplace)){
int SelPos = RichEdit1->Lines->
Text.Pos(ReplaceDialog1->FindText);
if (SelPos > 0)
{
RichEdit1->SelStart = SelPos - 1;
RichEdit1->SelLength = ReplaceDialog1->FindText.Length();
// Replace selected text with ReplaceText
RichEdit1->SelText = ReplaceDialog1->ReplaceText;
}
else MessageBox(Handle,"替换工作已完成!",
"替换",MB_OK|MB_ICONINFORMATION);
}
else if (ReplaceDialog1->Options.Contains(frReplaceAll)){
int FoundAt, StartPos, ToEnd;
do{
if (RichEdit1->SelLength!=0)
StartPos = RichEdit1->SelStart+ RichEdit1->SelLength;
else
StartPos = RichEdit1->SelStart;
ToEnd = RichEdit1->Text.Length() - StartPos;
FoundAt = RichEdit1->FindText(ReplaceDialog1->FindText,
StartPos, ToEnd, TSearchTypes()<< stMatchCase);
if (FoundAt!=-1){
RichEdit1->SelStart = FoundAt;
RichEdit1->SelLength = ReplaceDialog1->FindText.Length();
RichEdit1->SelText = ReplaceDialog1->ReplaceText;
}
}while (FoundAt!=-1);
MessageBox(Handle,"替换工作已完成!","替换",MB_OK|MB_ICONINFORMATION);
}
}

[smellteen]

用TStringList打开文本，用AnsiString的子串查找函数就可以了。

[cymcym]

请smellteen详细说说如何获取它整行的文本?
谢谢!

[smellteen]

TStringList * line = new TStringList();

line->LoadFromFile("c:\\1.txt");//比如打开这个文本文件

AnsiString s1 = "指定字符串";
AnsiString s2;
for(int i=0; i<line->Count; i++)
{
s2 = line->Strings[i];
if(s2.Pos(s1)!=0)//找到
{
//s2就是所在行的整行文本
do something u want
}
else
{
continue;
}
}

delete line;

这样就可以了吧。

[cymcym]

谢谢smellteen! 我的问题在你的帮助下已解决,非常感谢你拔刀相助!