Delphi程序中如何批量修改(*.txt)为(*.html)?谢谢！
因为工作原因，本人需要将Delphi程序中打开的文本文件批量转换成网页文件，请教高手，代码如何实现？
如何批量修改(*.txt)为(*.html)?谢谢！
[解决办法]
一个例子:
procedure TextToHTML(sTextFile, sHTMLFile: String);
var
AText : TStringList;
AHTML : TStringList;
iLoop : Integer;
begin
AText := TStringList.Create;
try
AText.LoadFromFile(sTextFile);
AHTML := TStringList.Create;
try
AHTML.Clear;
AHTML.Add( ' <html> ');
AHTML.Add( ' <body> ');
for iLoop := 0 to AText.Count - 1 do
AHTML.Add(AText.Strings[iLoop] + ' <br> ');
AHTML.Add( ' </body> ');
AHTML.Add( ' </html> ');
AHTML.SaveToFile(sHTMLFile);
finally
FreeAndNil(AHTML);
end;
finally
FreeAndNil(AText);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TextToHTML( 'c:\1.txt ', 'c:\1.html ');
end;
