如何在TXT文件开头添加一段文字???(300分)

  • 主题发起人 主题发起人 lione
  • 开始时间 开始时间
L

lione

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在TXT文件开头添加一段文字,还有像批量转换文档格式(如html->txt,big->big5等等)是怎么实现的。
我是个新手请说的详细一点谢谢
 
stream? 什么东西?
 
Delphi开发者资源社区,DELPHI代码版本说明生成器,里面一定用到
http://delphi.mychangshu.com/dispdoc.asp?id=341
源代码:
http://delphi.mychangshu.com/data/CopyRight.zip
 
在TXT文件开头添加一段文字:
txt : TStringList;
txt := TStringList.Create;
try
txt.LoadFromFile("FileName.txt");
txt.text := "........" + txt.text;
txt.SaveToFile("FileName");
finally
txt.Free;
end;

批量转换用FindFirst,FindNext函数找文件就行了,使用看函数帮助
 
filename是带路径和扩展名的,如果要换路径和扩展名怎么做。截取字符串?用什么函数?
doc->txt怎么做还有big<->big5?
 
iamcaca,非常感谢你,我稍后会分给你积分的。
 
filename是带路径和扩展名的,如果要换路径和扩展名怎么做。
截取字符串?用什么函数?
截取字符串?用什么函数?
截取字符串?用什么函数?
 
extractfiledir--返回文件名中的驱动器和路径
extractfiledrive--返回文件名中的驱动器
extractfilepath--返回指定文件的路径
>>doc->txt
同iamcaca所说的一样
>>big->big5
内码转换?等高手来作答了。
 
文件开头加文字,可以看看seek,fileseek(根据打开形式)。
 
>>big->big5?不用高手就可以回答吧?
下载一个转换的pas就可以了,我以前下过,不过当时没用,删了.
 
多人接受答案了。
 
截取字符串用copy函数。
s:=copy(s,起始位置,截取个数);
 
后退
顶部