scarcr

低效无脑流

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (qianzhiwen.txt) do (
	set a=%%i
	set a=!a: =!
	set b=!b!!a!
	)

for /l %%i in (1 1 10000) do (
	set e=!b!
	if "!e!"=="" (goto b)
	set c=!e:~,1!
	set #%%i=!c!
	set /a n+=1
	set e=!e:~1!
	)

:b
echo there are !n! words in txt
pause

for /l %%i in (1 1 !n!) do (
	echo %%1
	pause
	call if not "%%b:!#%%i!=%%"=="!b:~1!" (set/a m+=1&&set s!m!=!#%%i!&&set b=!b:~1!))
if not defined m (echo there are no repeating words in txt) else (
	echo there are !m! repeating words in txt , there are :
	for /l %%i in (1 1 !m!) do (echo !s%%i!)
	)
pause
set d=!n!
:c
if "!d!"=="0" (goto :eof&pause)
set/a d3=!d!-3
set/a d2=!d!-2
set/a d1=!d!-1
echo !#%d3%!!#%d2%!!#%d1%!!#%d%!
set/a d=!d!-4
goto c
复制代码