[文本处理] [已解决]批处理如何替换指定位置的字符串？

cbdk

文件夹里有多个文本文件，每个文本内容为如下的行数据，含指定字符串(：A~B: )共8个，要求将第1、3、5、7个字符串(：A~B: )，替换为减号“-”.最尾端的字符串(：A~B: )不变动。 求大神写个批处理，拜谢了！  祝新年快乐！

####6#########:A~B:##4###########:A~B:##9###########:A~B:######5#######:A~B:######7#######:A~B:#######2######:A~B:#######5######:A~B:#########8####:A~B:

hlzj88

不明白，上传一个文本并说明

pcl_test

既然都说明是8个且只替换第奇数个的，为何还要说明末端的不替换？所以个数是随机还是固定？如果个数随机，只有一个时且位置在或者不在末端的，又如何处理？

cbdk

回复 2# hlzj88

感谢hlzj88兄热心关注！ 好人一生平安！
补充说明：被替换字符串(：A~B: )个数是随机的，但不低于8个，且数量都为偶数。末端的那个不替换.
文件夹内的文件，2种格式。txt 、flt

cbdk

盼望得到各位大神的帮助. 谢谢

pcl_test

//&cls&dir /b *.txt *.flt|cscript -nologo -e:jscript "%~f0"&pause & exit

function reStr(file){
    var f = fso.opentextfile(file, 1);
    var n=0, str = f.ReadAll().replace(/:A~B:(?!\s*$)/g, function($0){
        n++; return n%2?'-':$0
    });
    f.Close();
    var f = fso.opentextfile(file, 2);
    f.Write(str);
}
var fso = new ActiveXObject('Scripting.FileSystemObject');
while(!WScript.StdIn.AtEndOfStream)reStr(WScript.StdIn.ReadLine());
复制代码

cbdk

pcl_test版主:   感谢您！发自内心深处的真诚感谢！  春节假期，人人都忙团聚、走访去了，您却不辞劳苦，为素不相识的我无偿编写了完美的批处理，高尚的人格！高超的技术！ 当之无愧的好版主！！ 新年之际，祝福您及您的家人，节日快乐！身体健康，心想事成，万事如意！！

cbdk

再请教pcl_test版主，如要把“：A~B:”,改为“：0~0：”，代码如何修改呢？  谢谢您！

pcl_test

回复 8# cbdk


   
replace(/:0~0:(?!\s*$)/g

cbdk

再次感谢pcl_test版主！完全正确。代码高效，速度很快。