我有一些大数据量的文本文件，想在第一行插入标题，怎么做最快？非常感谢

我有一些大数据量的文本文件，想在第一行插入标题，怎么做最快？  
   
  如文件为  
  aaaa  
  bbbb  
  xccc  
   
  修改后为  
  1111  
  aaaa  
  bbbb  
  xccc  
   
  请指点一下，谢谢 问题点数：10、回复次数：7Top

1 楼unsignedmeme（网络无名（僵哥马甲））回复于 2005-01-03 20:23:17 得分 10

用TFileStream找开文件，然后将长度加所需要插入的行的长度(Size=Size+X)（记得要加上回车换车符的长度）=》将原来数据往后移动=》将指针移至开头(Position=0)，然后写入标题数据(Write)（记得写完后加入回车和换行符。Top

2 楼alec_ma（乐无边）回复于 2005-01-03 21:38:11 得分 0

有例子吗?Top

3 楼alec_ma（乐无边）回复于 2005-01-04 09:26:33 得分 0

请各位大虾多多帮忙，感激不尽Top

4 楼caiso（十年磨一剑）回复于 2005-01-04 10:22:26 得分 0

顶一下Top

5 楼alec_ma（乐无边）回复于 2005-01-04 10:38:55 得分 0

我在DELPHI   5环境下，不知道怎么做啊，help   meTop

6 楼alec_ma（乐无边）回复于 2005-01-04 11:20:42 得分 0

还有没有好的方法?Top

7 楼alec_ma（乐无边）回复于 2005-01-04 11:57:36 得分 0

搞定了，先建一个标题文本文件，再Copy其他文件的内容过来就行了，很快  
  var  
      F,F1:TFileStream;  
  begin  
      F   :=   TFileStream.Create('D:\Test.txt',fmOpenRead);  
      F.Seek(0,0);  
      F1   :=   TFileStream.Create('D:\2.txt',fmOpenWrite);  
      F1.Seek(F1.Size,soFromBeginning);  
      F1.CopyFrom(F,F.Size);  
      F1.Free;  
      F.Free;  
      Showmessage('ok');Top

相关问题

• 数据
• 文件
• 文本文件
• 插入
• 标题
• tfilestream
• 长度
• size

• 帖主：alec_ma
• unsignedmeme

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载