删除行的问题.

liangyong007a 2005-12-30 11:19:42

我想删除文件中的某行,如何做?文件很大.好像不太适合用TStringlist取出来再删除某行后,再存到文件.

...全文

99 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

liangyong007a 2005-12-30

打赏
举报

行数太多了,影响速度.

柯本 2005-12-30

打赏
举报

有N多人问过此类问题(每个开发语言版中都有)
基于目前操作系统的结构,我建议的方法是:(如文件名为t.txt)
1.将t.txt改名为t.bak
2.建一新文件t.txt
2.打开文件t.bak
3.将t.bak逐行读入,将不要删除的行写入t.txt
4.删除t.bak

liangyong007a 2005-12-30

打赏
举报

lades and gentleman:
thanks
搞定

liangyong007a 2005-12-30

打赏
举报

lines.delete？没有这个对象和方法

hellolongbin 2005-12-30

打赏
举报

回复人： keiy() ( ) 信誉：105 2005-12-30 12:01:00 得分: 0

有N多人问过此类问题(每个开发语言版中都有)
基于目前操作系统的结构,我建议的方法是:(如文件名为t.txt)
1.将t.txt改名为t.bak
2.建一新文件t.txt
2.打开文件t.bak
3.将t.bak逐行读入,将不要删除的行写入t.txt
4.删除t.bak
----------------------------------
晕了
有逐行读的功夫，直接lines.delete多好

summersky204608 2005-12-30

打赏
举报

10w 行不用1s,当然光单纯的删除某一行！

summersky204608 2005-12-30

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var b,d:TStringList;i:Integer;s:String;
begin
if OpenDialog1.Execute then
begin
b:=TStringList.Create;
d:=TStringList.Create;
b.LoadFromFile(OpenDialog1.FileName);
for i:=0 to b.Count-1 do
begin
s:=b.Strings[i];
if i=2 then //指定行
s:='';
if s<>'' then
d.Add(s);
end;
d.SaveToFile(OpenDialog1.FileName+'1');
b.Free;
d.Free;
ShowMessage('ok!');
end;
end;

end.

liangyong007a 2005-12-30