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

@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 COPY

@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 
 COPY

@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 COPY