【批处理每日一练】2014.5.13

@echo off
for /f "tokens=1-6" %%i in (千字文.txt) do call set words=%%words%%%%i%%j%%k%%l%%m%%n&call set wordsCopy=%%words%%
echo %words%>tempTxt.txt
for %%p in (tempTxt.txt) do set /a number=(%%~zp-2)/2&call echo 1.该文共计%%number%%个汉字。
pause>nul
echo 2.检查是否有重复的字
set bool=no
:loop
set word=%words:~0,1%
set words=囧%words:~1%囧
for /f "delims=%word% tokens=1,2" %%a in ("%words%") do if "%%b" neq "" echo 发现重复的汉字：%word%。&set bool=yes
for /f "delims=囧" %%p in ("%words%") do set words=%%p
if "%words%" neq "囧囧" goto loop
if "%bool%"=="no" echo 没有重复的汉子。
pause>nul
echo 3.倒序输出
set /a group=%number%/4
for /l %%k in (1,1,%group%) do call echo %%wordsCopy:~-4%%&call set wordsCopy=%%wordsCopy:~0,-4%%
echo 干完活啦！&pause>nul

转载于:https://my.oschina.net/huyouyu/blog/263761