xp3000

grepWin这个人家就行，其他软件很多支持正则表达式的都可以

^(.{1,})(.{1,9}\r?\n)(\1.{1,9}\r?\n)+
复制代码

替换

$1$2
复制代码

xp3000

//&cls&dir /b *.txt|cscript -nologo -e:jscript "%~f0"&echo 文本连续行去重复，有4个以上连续字符串不同则保留，可以修改{3,}增加数量&pause&exit

function reStr(file){
    var f = fso.opentextfile(file, 1);
    str = f.ReadAll().replace(/^(.{1,})(.{3,})(.{1,}\r?\n)(.{1,}\2.{1,}\r?\n)+/mg, '$1$2$3')
	.replace(/^(.{1,})(.{3,})(.{1,}\r?\n)(.{1,}\2.{1,}\r?\n)+/mg, '$1$2$3')
	.replace(/^(.{1,})(.{3,})(.{1,}\r?\n)(.{1,}\2.{1,}\r?\n)+/mg, '$1$2$3');
    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());
复制代码

BAT和文本都ANSI编码，可以保存ANSI了

xp3000

回复  xp3000
你好大佬，我刚才试了一下，还是有问题，这个文件怎么都存不成ansi格式的，有点奇怪 ...
seekbook 发表于 2022-1-17 12:22

我不知道为什么保存不了ANSI，可能是系统BUG，不过我在电脑上是成功的，XP，WIN7能用，WIN10试了，也出现了不能保存ANSI，但是成功了

xp3000

回复 18# went

谢谢，原来这样，只要Windows10才这样？