关于文本文件的查找和删除行问题

[cwwa]

如C:\a.txt
格式如下
[xxx]
yyy=123 0000044444
yyy=456 1111101
yyy=789 212220000

[xxx]
yyy=123 11111
yyy=345 1001000
yyy=3567 88776
yyy=23354 999999978

[xxx]
.....

大致格式如上,如果想查找yyy=123找到后将包含该关键字的整行删除并保存,应该怎么做呢????
查找的内容可能在文中出现多次!
谢谢各位了,分不够可以再加的.
文本会很大,约50M左右,如果能解决怎么能让效率更高一些?

[cuteant]

http://community.csdn.net/Expert/topic/4409/4409271.xml?temp=.81625

[clasj]

抛砖引玉：）

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, Classes, Windows;

var
Strings: TStrings;
i: integer;
n: integer;
k: Cardinal;
begin
Strings:=TStringList.Create;
try
k:=GetTickCount;
Strings.LoadFromFile('a.txt');
n:=0;
for i:=0 to Strings.Count-1 do
if Pos('yyy=123', Strings[n])>0 then
Strings.Delete(n)
else
Inc(n);
Strings.SaveToFile('b.txt');
WriteLn(GetTickCount-k);
finally
Strings.Free;
end;
ReadLn;
end.

[clasj]

所以说是“砖”了。。。

if Pos('yyy=123 ', Strings[n])>0 then

Copy(Strings[n], Length('yyy=123 ')+1, Length(Strings[n])-Length('yyy=123 '));

[cwwa]

楼上的大哥,你的代码倒是可以运行,也没有问题,但在大文件里,,,,,,,,,我的电脑已经死机了...
readln是不行的.....

还有,怎么匹配查找的字符串?
如果
yyy=123 xxxxx
yyy=1234 xxxxxxxxxx
我只想删除yyy=123 怎么办????

[hellolongbin]

其实，对于不是几百M或者更大的超大文件，而且对效率要求也不是很高的话，没有必要用KMP之类的算法来把自己的程序弄的那么复杂，用普通的assignfile来处理就足够了

我做了一个测试，一个60M左右的文本文件，用下面的代码跑，花费的时间也不过20几秒，相信这个结果在工作中你应该可以接受了吧
procedure TForm1.Button1Click(Sender: TObject);
var
F1,F2: TextFile;
s:string;
begin
AssignFile(F1, 'E:\1.txt');
AssignFile(F2, 'E:\2.txt');
Reset(F1);
ReWrite(F2);
while not eof(f1) do
begin
Readln(f1,s);
if not AnsiStartsText('yyy=123',s) then Writeln(F2, s);
end;
CloseFile(F1);
CloseFile(F2);
ShowMessage('ok');
end;

如果单纯为了效率而的效率，或者为了讨论算法，那么去看看kmp之类的相关资料吧

[hellolongbin]

对于超过10M以上的文件来说，就不再推荐用loadfromfile之类的方法了，因为确实是太占用内存了，小文件还可以

[clasj]

60M？
20几秒？

怀疑中。。。

[todouwang]

你查下windows中那个查找所对应的api

[coreblood]

要效率啊 。。。。。

[hellolongbin]

多了还是少了？

创建一个内容全是
[xxx]
yyy=123 0000044444
yyy=456 1111101
yyy=789 212220000
的文本，循环一百万次，大约是61M多，然后再用我的上面的代码跑，我当时读取了跑之前和完成之后的时间，我512内存大约是二十五六秒

[hellolongbin]

还有,怎么匹配查找的字符串?
如果
yyy=123 xxxxx
yyy=1234 xxxxxxxxxx
我只想删除yyy=123 怎么办????
-------------------
用 AnsiStartsText('yyy=123 ',s) 判断

123后面有个空格