@echo off&setlocal enabledelayedexpansion 
for %%a  in (*.txt) do (
    for /f "usebackq delims=. tokens=2,*" %%b in (%%a) do (
        set "str=%%b"
	set "str=!str: =!"
        for %%i in (!str!) do (
	set/a _%%i+=1
                if !_%%i! gtr 2 echo %%a>>1.txt  2>nul  
        )
    set _%%i=
    )
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion 
(for %%i in (*.txt) do (
    set "a="
    for /f "delims=" %%j in ('sort "%%i"') do (
        if not defined a (
           if "!str!" == "%%j" set a=a&echo del "%%i"
           set "str=%%j"
        )
    )
))>$.#
start "" "notepad" "$.#"
pause
复制代码

for /f "tokens=2 delims=." %%j ..........
复制代码

@echo off
findstr . *.txt|sort /o tmp.$
(for /f "tokens=1* delims=:" %%a ni (tmp.$) do (
   set "str=%%a"
   setlocal enabledelayedexpansion
   if !last!==!str! del "%%a"
   endlocal
   set last=%%a
)) 2>nul
pause
复制代码

Const [路径]="."       '这里设置路径
Const [重复次数]="1"   '代表重复达到多少次就删除
Set fso = CreateObject("scripting.filesystemobject")

For Each file In fso.GetFolder([路径]).Files
	If LCase(fso.GetExtensionName(file)) = "txt" Then
		If reTest(fso.OpenTextFile(file).ReadAll) Then
			file.Delete
		End If
	End If
Next

Function reTest(text)
	Set re = New RegExp
	re.Global = True
	re.Pattern = "\n(\S+)(?:(?:\n.*)?\n\1){" & [重复次数] & ",}\n"
	reTest = re.Test(vbCrLf & text & vbCrLf)
End Function
复制代码

@echo off&setlocal enabledelayedexpansion 
(for /f "delims=" %%i in ('dir /a-d/b/s *.txt') do (
    set "a="
    for /f "delims=" %%j in ('sort "%%i"') do (
        if not defined a (
            if "!str!" == "%%j" (
                set a=a
                echo del "%%i"
            )
            set "str=%%j"
        )
    )
))>$.#
start "" "notepad" "$.#"
复制代码