请问一个纯文本的 txt文件,已经存在了。如何在其文件前面加些内容,最后再加些内容。谢谢帮助

booksfount 2007-06-23 11:43:58
我用cxgrid 读取了 网站上下载的一个数据库文件。 然后另存为了txt的纯文本文件。 因为里面的内容包换了 网页的代码。所以,想在这个txt文件前,加些 内容,最后再加些内容,然后把这个txt文件,改名字,变成一个html扩展名的文件。

我这样写的下面的函数。但是可能长度不够的原因。中间少了很多内容。

procedure TFrmExportDoc.DealDoc(strFromFile,strSaveFile, strBefore, strAfter: string);
var
thefile,thefileFrom:textfile;
s:string;
AHnd: Integer;
begin

try

if Not FileExists(strSaveFile) then
begin
AHnd := FileCreate(strSaveFile);
FileClose(AHnd);
end;

assignfile(thefile, strSaveFile);
Reset(thefile);
assignfile(thefileFrom , strFromFile );
Reset(thefileFrom);

Append(thefile);
Writeln(thefile, strBefore);

Readln(thefileFrom,s);
Append(thefile);
Writeln(thefile, s);

Append(thefile);
Writeln(thefile, strAfter);

finally
CloseFile(thefile);
CloseFile(thefileFrom);
end;

请问。如果 在文件前后加 些内容。
另外一个问题,如果修改文件扩展名为 html.
并且把这个html另存为一个word文档。



谢谢帮助。
...全文
153 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
brightyang 2007-06-25
  • 打赏
  • 举报
回复
filestream也只能是写流,可以在流后面加,但是不能取长度的
booksfount 2007-06-23
  • 打赏
  • 举报
回复
谢谢 brightyang(伊莎贝尔)

txt里面的内容,都是纯文本文件。
以前用 blokwrite。但是这个文件前面,想加些 无法加了。 或者用filestream怎么写?

谢谢指教!

brightyang 2007-06-23
  • 打赏
  • 举报
回复
问题一:
可以先把内容读出来,然后再加入内容后重写文本文件(本来可以用定位函数来定位的,但是你的内容不确定,所以没办法)
问题二:重接重命名 AssignFile(TheFile, '路径+文件名(原文件名)');
ReName(TheFile, '路径+文件名(新文件名)');
问题三:创建word的ole然后把html读入里面,再另存为

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧