一个简单的问题，如何在一个文本文件的尾部加入一行字符？急(100分)

panjf · 2001-09-26

我用REWRITE它就把我以前的那个文件清空了，有什么好办法？

zhao0707 · 2001-09-26

先定位在文件尾部，然后往里面追加

panjf · 2001-09-26

具体的语句怎么写呢？

不能没有你 · 2001-09-26

也许可以
试一下吧
reset(f)
seek(f,filesize(f))
blockwrite(f,buf,sizeof(buf))

canyoneer · 2001-09-26

如用REWITE打开文件会把已经存在的文件内容覆盖；
应该用APPEND打开文件，使文件指针置于文件的尾部此后的数据将
添加到原有数据的后面。

杜宝 · 2001-09-26

Delphi的例子:

代码:

procedure TForm1.Button2Click(Sender: TObject);
var
  f: TextFile;
begin
    AssignFile(f, 'C:/1.txt');
    Append(f);
    Writeln(f,'');
    Writeln(f, 'I am appending some stuff to the end of the file.');
    Flush(f)
 { ensures that the text was actually written to file }
    CloseFile(f);
end;

wbcp2000 · 2001-09-26

如果是TXT文件的话，我想按如下做就行了
var
MyTextFile : TextFile;
begin
AssignFile(MyTextFile,'E:/xx.txt');
append(myTextFile);
writeln(myTextFile,'sdfsaf');
closeFile(MyTextFile);
end;

pingbaoshi · 2001-09-26

var
s:String;
mytextFile:TextFile;
begin
assignfile(MyTextFile,'your FileNmae');
append(MyYerxtFile);
try
s:='Some String';
writeln(MyTextFile,s);
Finally
CloseFile(MyTextFile);
end;

panjf · 2001-10-12

谢谢

白河愁 · 2001-10-13

也可以

var f,f2:textfile;
r:string;
begin
assignfile(f,'xxx');
assignfile(f2,'xxx');
reset(f);
rewrite(f);

while not eof(f) do
begin
readln(f,r);
writeln(f2,r);
end;
closefile(f);
writeln(f,'what u want to add');
closefile(f2);
end;

panjf · 2001-10-15

一个简单的问题，如何在一个文本文件的尾部加入一行字符？急(100分)

panjf

Unregistered / Unconfirmed

zhao0707

Unregistered / Unconfirmed

panjf

Unregistered / Unconfirmed

不能没有你

Unregistered / Unconfirmed

canyoneer

Unregistered / Unconfirmed

杜宝

Unregistered / Unconfirmed

wbcp2000

Unregistered / Unconfirmed

pingbaoshi

Unregistered / Unconfirmed

panjf

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

panjf

Unregistered / Unconfirmed

Similar threads