@echo off&setlocal enabledelayedexpansion
call ascmap $
for %%a in (123.dat) do (
  for /f "delims=" %%b in (%%a) do (
    set "pind=!$:~0x05,1!"
    set "pind=;"
    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! gtr 3 del %%a 2>nul
        set n=
      )
   )
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
call ascmap $
for %%a in (123.dat) do (
  for /f "delims=" %%b in (%%a) do (
    set "str=%%b"
    set "str=!str:!$:~0x05,1!= !"
      for %%i in (!str!) do (
        for %%j in (!str!) do (
          if "%%i" equ "%%j" set /a n+=1
        )
        if !n! gtr 3 del %%a 2>nul
        set n=
      )
   )
)
pause
复制代码

1、那个 ascmap 是集成函数，需要保存到 path 路径或者当前目录，请确认此函数文件是否存在
2、同级的变量相互嵌套需要借助 call 或者 for ：
for %%a in ("!$:~0x05,1!= ") do set "str=!str:%%~a=!"
3、将草花替换为空格的办法并不适合存在连续草花的情况，而且也需要确保文本中不存在空格、制表符等特殊字符
复制代码

1、如果两个符号之间不连续，可以通过 for /f "tokens=1-4 delims=%$:~0x5,1%" %%a in... 来以草花符号划分行内容，只要存在 %%b 或者更高的参数变量说明语句中存在草花
2、否则，可以合并所有行，并将草花替换为换行符，然后...
3、实在不行就逐字判断吧
复制代码

@echo off
setlocal enabledelayedexpansion&cls
:start ============================================================
for /f "tokens=* usebackq delims=" %%a in ("01.txt") do (
set str=%%a
set str=!str:= !
set str=!str:-=m!
for %%A in (!str!) do (
set/a _%%A+=1
echo %%A 出现!_%%A!次
if !_%%A! GEQ 3 (echo gtr 3 wait del is ...)
))

:end ==============================================================
endlocal&echo 按任意键退出&pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
call ascmap $
for  %%a in (*.dat) do (
  for /f "delims=%$:~0x05,1% usebackq tokens=*" %%b in (%%a) do (
    set "str=%%b"
    set "str=!str:%$:~0x05,1%= !"
    set "str=!str:-=^!"
      for %%i in (!str!) do (
	if defined _%%i (set /a _%%i+=1
        )  else (
           set /a _%%i=1
        )
      )
      for /f "tokens=1,2 delims=_=" %%j in ('set _') do echo 出现 %%k 的次数 %%p
        if %%p gtr %%k del %%a
   )
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
call ascmap $
for %%a in (1.dat) do (
  for /f "usebackq delims= tokens=* " %%b in ("%%a") do (
    set "str=%%b"
    set "str=!str:%$:~0x01,1%=!"
    set "str=!str:%$:~0x02,1%=!"
    set "str=!str:%$:~0x03,1%=!"
    set "str=!str:%$:~0x1E,1%=!"	
    set "str=!str:%$:~0x04,1%= !"
    set "str=!str:%$:~0x05,1%= !"
    set "str=!str:%$:~0x2D,1%=!"
      for %%i in (!str!) do (
        set/a _%%i+=1
        echo %%i 出现 !_%%i!次
     if !_%%i! gtr 3 del %%a
      )
  )
)
pause
复制代码

set str=!str:-=m!
for %%A in (!str!) do (
set/a _%%A+=1
...
复制代码

@echo off&setlocal enabledelayedexpansion
call ascmap $
for %%a in (1.dat) do (
  for /f "usebackq delims= tokens=4 " %%b in ("%%a") do (
    set "str=%%b"
    set "str=!str:%$:~0x01,1%=!"
    set "str=!str:%$:~0x02,1%=!"
    set "str=!str:%$:~0x03,1%=!"
    set "str=!str:%$:~0x1E,1%=!"	
    set "str=!str:%$:~0x04,1%= !"
    set "str=!str:%$:~0x05,1%= !"
    set "str=!str:%$:~0x2D,1%=!"
      for %%i in (!str!) do (
        set/a _%%i+=1
        echo %%i 出现 !_%%i!次
      )
   )
)
pause
复制代码

@echo off
call ascmap $
for /f "tokens=* delims=" %%i in ('dir /a-d/b *.dat') do (
echo.正在处理:%%~i&endlocal&setlocal enabledelayedexpansion
for /f "tokens=* usebackq delims=" %%a in ("%%~i") do (
set "str=%%a"
set "str=!str:%$:~0x01,1%= !"
set "str=!str:%$:~0x02,1%= !"
set "str=!str:%$:~0x03,1%= !"
set "str=!str:%$:~0x1E,1%= !"
set "str=!str:%$:~0x04,1%= !"
set "str=!str:%$:~0x05,1%= !"
set str=!str:-=m!
for %%A in (!str!) do (
set/a _%%A+=1
if !_%%A! GEQ 3 (echo %%A 出现!_%%A!次&echo gtr 3 wait del is ...&echo.)
)))

:end ==============================================================
endlocal&echo 按任意键退出&pause>nul
复制代码