Delphi程序中如何批量修改(*.txt)为(*.html)?谢谢！

因为工作原因，本人需要将Delphi程序中打开的文本文件批量转换成网页文件，请教高手，代码如何实现？
如何批量修改(*.txt)为(*.html)?谢谢！

解决方案 »

  1.   

    一个例子:
    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;
      

  2.   

    用ShellExecute，调用DOS命令“ren *.txt *.html”
      

  3.   

    上面的代码中
    这一句    : AHTML.Add(AText.Strings[iLoop] + '<br/>');
    要修改一下: AHTML.Add(AText.Strings[iLoop] + '<br>');To lihuasoft(学习低调做人):
    直接改扩展名的话, 在浏览器中查看时, 原来Text文件中的换行都没有了, 所以需要在转换时插入<br>。
      

  4.   

    非常感谢jadeluo(秀峰)
    在你的启发下，我已经顺利完成了。