[文件操作] [已解决]批处理查找txt文本中以指定字符分割的各字段有重复出现超过6次的则删除该文件

 for /l %%a in (0,1,6) do del *.txt
复制代码

@echo off&setlocal enabledelayedexpansion
set var=3J1J
for /f "delims=" %%i in (a.txt) do (
    set str=%%i
    set str=!str:-=,!
    for %%i in (!str!) do (
        if "%%i"=="!var!" set/a n+=1
    )
)
if !n! GEQ 6 (set/p=del) else (set/p=keep)
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
        set "str=%%a"
        set "str=!str:|=,!"
        for %%b in (!str!) do set /a #%%b+=1
)
set #|findstr /v "#.*=[12345]$" && del a.txt
复制代码

@echo off&setlocal enabledelayedexpansion
for %%a in (*.txt) do (
    for /f "delims=" %%b in (%%a) do (
        set "str=%%b"
        set "str=!str:-= !"
        for %%i in (!str!) do (
            for %%j in (!str!) do (
                if "%%i" equ "%%j" set /a n+=1
            )
            if !n! equ 6  del %%a 2>nul
            set n=
        )
    )
)
pause
复制代码

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

var fso = new ActiveXObject('Scripting.Filesystemobject');
var s='';
while(!WSH.StdIn.AtEndOfStream){
    var file = WSH.StdIn.ReadLine();
    try{
        var arr={};
        var str = fso.OpenTextFile(file, 1).ReadAll().split('-');
        for(var i=0; i<str.length; i++){
            arr[str[i]]?arr[str[i]]++:arr[str[i]]=1;
            if(arr[str[i]] >= 6){
                s+=fso.GetFile(file).Name+'|'+str[i]+'\r\n';
                break;
            }
        }
        arr=null;
    }catch(e){}
}
WSH.Echo(s);
复制代码