如何在一个文本文件里追加新的字符串,在最后一行中插入.谢了,急急,加急

Question

如何在一个文本文件里追加新的字符串,在最后一行中插入.谢了,急急,加急
如:我想在有如下内容的文本文件里追加新的一行字符串该如何处理:
D:\1.TXT中现的内容:
asfadsfadfaaaaaa
ggggggggggggggg
ddddddddddddd
5555555555
wwwwwwwwwwwww
ddafasdf
333344
asd现要求在D:\1.TXT中最后一行加入新的字串:"87858698555"
asfadsfadfaaaaaa
ggggggggggggggg
ddddddddddddd
5555555555
wwwwwwwwwwwww
ddafasdf
333344
asd
87858698555
谢了

Answer 1

var　　 　S: String;　　 　F: TextFile;　　begin　　 　S := 'This is a book.';　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。　　 　Append(F); // 以追加的方式打开文件　　 　Writeln(F, S); // 将S变量中的内容追加到文本尾后。　　 　CloseFile(F); // 关闭文件　　end;

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
S: String;
F: TextFile;
begin
S := 'This is a book.';
AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。
Append(F); // 以追加的方式打开文件
Writeln(F, S); // 将S变量中的内容追加到文本尾后。
CloseFile(F); // 关闭文件
end;执行三次txt内容为This is a book.
This is a book.
This is a book.
不知道你说的不行是什么意思

Answer 3

楼主的要求：在D:\1.TXT中最后一行加入新的字串:"87858698555"
楼上写的是：在C:\MyFile.txt中最后一行加入新的字串:"This is a book."当然就不行了，要按照楼主的要求来写嘛：）

Answer 4

hongqi162(失踪的月亮) (
谢了,刚才,可能有些问题,所以没有写入.现在再试,可以了

Answer 5

var　　 　S: String;　　 　F: TextFile;　　begin　　 　S := 'This is a book.';　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。　　 　Append(F); // 以追加的方式打开文件　　 　Writeln(F, S); // 将S变量中的内容追加到文本尾后。　　 　CloseFile(F); // 关闭文件　　end;

Answer 6

var
  myFile: TFileStream;
  InsertText: String;
begin
  myFile := TFileStream.Create('1.txt', fmOpenWrite);
  myFile.Position := myFile.Size;
  InsertText := #13 + edtInsert.Text;
  try
    myFile.WriteBuffer(PChar(InsertText)^, Length(InsertText));
  finally
    FreeAndNil(myFile);
  end;
这样写的,不知道行不行!你自己看看吧!

Answer 7

不好意思,InsertText := #13 + edtInsert.Text;这句应改一下:
InsertText := #13#10 + edtInsert.Text;

Answer 8

var
 s : TStrings;
begin
 s := TStringList.Create();
 s.LoadFromFile("xxxx");
 s.Add("fdslkfjsldfjlsdkfjsdf");
 s.SaveToFile("xxxx");
 s.Free;
end;

Answer 9

不知道，要是 .NET 平台就用 stringbuilder 函数

Answer 10

我用C语言做的,可以实现向文件末尾添加字符，如果配合fseek函数就可以实现文件的随机写入了:FILE * fp ; 
fp = fopen( "FileName" , "a" /*或者是"ab"*/ ) ;
if ( fp ){
    fwrite(......);
    fclose( fp );
}