正则PerlRegEx实现的批量替换指定文件中的标签

示例：

一个朋友需要而编写的标签升级更新。

速度超快，1w个文件大概4,5秒，本想加个多线程显示进度，后来想想算了

主要代码：

　　　　　　　reg.RegEx := '<' + Edit_regular1.Text + '>';
            reg.Replacement := '<' + Edit_Replacement.Text + '>';
            reg.Subject := strList.Text;
            reg.ReplaceAll;
            reg.RegEx := '<\/' + Edit_regular2.Text + '>';
            reg.Replacement := '</' + Edit_replacement2.Text + '>';
            reg.ReplaceAll;