欲把一txt文本文件,存储为html网页格式。如何操作。望高手们解答。
解决方案 »
- delphi使用循环语句向EXCEL插入多个图片,为何只有最后一张图片的大小是指定的大小?但如果单独插入一张图片却很正常? 小弟在此候教!
- delphi盒子里面怎么下载啊? 不知道
- 一个类的实例产生错误,大家 帮忙看一下
- ole型字段如何创建?SQL.Add('EMIT_IMG ole,')对么?再线等!
- 有没有好的传真控件,给我一个好不好.可以在PB中进行调用的那一种.
- 如何安装acm控件
- delphi输出的dll,如何转到VB程序里面!
- 急聘软件工程师
- 请问怎样返回当前EXE文件的路径!!!
- 有人用过IPLocate和IV吗?它们的弹出窗口是逐渐增大的,有谁知道是怎么做的?DelPhi行吗?
- 请大家帮忙看一下,这,错在哪里了?
- 文本文件操作中删除行的问题
一、直接将文本文件重新命名为.HTML
二、将txt文件中内容插入到以下html代码中,然后保存为html网页格式
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>TXT2HTML</title>
</head>
<body>
<pre>
...........
将您的文本内容插入此处就可以了
...........
</pre>
</body>
</html>
//return -1: Record Backup Failed
function TFrmPublic.RecordBackup(var sFileName: string;pStreamData: pointer;var StreamLen: LongWord;var bCreate: Boolean): Integer;
var
F: File;
fHandle: THandle;
CountByte: Integer; //写入及返回的数据大小
WriteBuf: array[0..BACKUPSIZE-1] of Byte; //数据缓冲
begin
//Initialized
//ZeroMemory(@WriteBuf[0],BACKUPSIZE); try
if StreamLen <= BACKUPSIZE then
begin
CopyMemory(@(WriteBuf[0]),pStreamData,StreamLen);
end //end of [if StreamLen <= BACKUPSIZE then]
else //缓冲区溢出
begin
result := -1;
//MessageBeep(MB_ICONEXCLAMATION);
Exit;
end; //end of [esle..] begin
if bCreate then //产生新文件
begin
//Create File
//CreateFile(Pchar(sFileName),0,FILE_SHARE_READ,Nil,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,0);
//CreateFile(Pchar(sFileName),GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,Nil,OPEN_ALWAYS,0,0);
//CreateFile(Pchar(sFileName),0,FILE_SHARE_READ or FILE_SHARE_WRITE,Nil,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,0);
fHandle := CreateFile(Pchar(sFileName),GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,Nil,CREATE_ALWAYS,FILE_ATTRIBUTE_ARCHIVE,0); //Associate File
AssignFile(F,sFileName);
//Opne File
Reset(F,1); //Opens an existing file,and RecSize := 1;
//Write Data to File
BlockWrite(F,WriteBuf,StreamLen,CountByte); //Close File
CloseFile(F);
//Close File Handle
CloseHandle(fHandle); end //end of [if..]
else //向文件追加数据
begin
//Associate File
AssignFile(F,sFileName);
//Opne File
Reset(F,1); //Opens an existing file,and RecSize := 1;
//Set the postion to the end of File
Seek(F,FileSize(F));
//Write Data to File
BlockWrite(F,WriteBuf,StreamLen,CountByte); //Close File
CloseFile(F); end; //end of [else..]
end; //end of [try..]
except
on E: Exception do
begin
result := -1;
Exit;
//MessageBeep(MB_ICONEXCLAMATION);
end;
end; //end of [try..except..] result := CountByte;end; 根据你的需要,你看看再改造一下就可以了。
如果有一些格式上的要求你就要根据需要添加控制字符串到你的新的文档(html)里面了
有什么问题给我邮件
[email protected]