【出题】批处理逐字输出效果练习

@echo off&setlocal enabledelayedexpansion
for /f "skip=16 delims=" %%a in (%0) do (
      call :1 "%%a"
      set b=0&echo.
     )
pause<nul
goto :eof
:1
set "a=%~1"
:2
if "!a:~%b%,1!"=="" goto :eof
set/p=!a:~%b%,1!<nul
set /a b+=1
for /l %%i in (1,1,100) do a 2>nul
goto :2

THEY CAME FIRST for the Coummunists,
     and I didn't speak up because I wasn' t a Communist.

THEN THEY CAME for the Jews,
     and I didn't speak up because I wasn' t a Jew.

THEN THEY CAME for the trade unionists,
     and I didn't speak up because I wasn' t a trade unionist.

THEN THEY CAME for the Catholics,
     and I didn't speak up because I was a Protestant.

THEN THEY CAME for me,
     and by that time no one was left to speak up. 



                                     Pastor Martin Niemoeller 
复制代码

@echo off 
setlocal enabledelayedexpansion
for /f "delims=" %%i in (1.txt) do (
set b=%%i
for /l %%a in (0 1 100) do (
set/p var=!var!!b:~%%a,1!<nul&set var=  
for /l %%b in (0 1 300) do echo %%b>nul
) 
)
pause 
 
复制代码

@echo off 
setlocal enabledelayedexpansion
for /f "skip=37 delims=" %%i in ('findstr /n .* %0') do (
set "Mstr=%%i"
set "Mstr=!Mstr:*:=!"
call :逐字显示
echo.
)
pause>nul

:逐字显示
call :FunDelay 200
if defined Mstr (
set "s=!Mstr:~0,1!"
if defined s (
set /p "=@!s!"<nul
set Mstr=!Mstr:~1!
goto 逐字显示
) 
) else (
set /p "="<nul
)
goto :eof

:FunDelay
set beginTime=%time%
set/a minute1=1%beginTime:~3,2%-100
set/a second1=1%beginTime:~6,2%%beginTime:~-2%0-100000

:LoopContinue
set nowTime=%time%
set/a minute2=1%nowTime:~3,2%-100
set/a second2=1%nowTime:~6,2%%nowTime:~-2%0-100000
set/a difMs=((%minute2%-%minute1%+60)%%60)*60000+%second2%-%second1%
if %difMs% lss %1 goto LoopContinue
goto :eof

THEY CAME FIRST for the Coummunists,
     and I didn't speak up because I wasn' t a Communist.

THEN THEY CAME for the Jews,
     and I didn't speak up because I wasn' t a Jew.

THEN THEY CAME for the trade unionists,
     and I didn't speak up because I wasn' t a trade unionist.

THEN THEY CAME for the Catholics,
     and I didn't speak up because I was a Protestant.

THEN THEY CAME for me,
     and by that time no one was left to speak up. 



                                     Pastor Martin Niemoeller 
复制代码