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

最新推荐文章于 2018-09-14 19:28:00 发布

weixin_30929195

最新推荐文章于 2018-09-14 19:28:00 发布

阅读量85

点赞数

原文链接：http://www.cnblogs.com/cause/p/3496520.html

版权

示例：

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

速度超快，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;