今天用一个非常好用的博客备份工具，Blog_Backup，但是后来出现了一个问题。保存的网页不是DOS格式的，也就是本来是一个回车行的，现在变成了两个，非常难看，如图：

解决方法如下，打开UltraEdit-32，用它打开这些文件的时候会提示你要不要转换成Dos格式，也就是说它有这个功能。那么就可以利用它喽，但是要怎么才能实现批量转换呢，我找了很久，最终发现了。

打开搜索->在文件中替换菜单。把^n^p全部换成^n，这样就不会有两个回车行了，如图：

然后点全部替换就好了。替换后是这样的，好看多了吧？

至于代码着色，写一个小工具，批量在文件中插入着色脚本。代码如下：

implementation
uses IOUtils,types;

{$R *.dfm}
procedure TForm1.InsertJs(filename:string);
var
  txtfile:TextFile;
  html:string;
begin
  AssignFile(txtfile,filename);
  Append(txtfile);
  html:=Trim(edit3.text);
  Writeln(txtfile,html);
  CloseFile(txtfile);
end;

procedure TForm1.Button1Click(Sender: TObject);
var files:TStringDynArray;
    str:string;
begin
  files:=TDirectory.GetFiles(Trim(Edit1.Text),trim(Edit2.Text));
  for str in files do
    begin
      InsertJs(str);
    end;
  ShowMessage('操作成功！');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit3.Text:='<script defer type="text/javascript" src="del.js"></script>';
  Edit2.Text:='*.html';
end;

着色后效果如下：