风之语故乡

回复 4# lfoqtal


    win7 下，你的代码空格不显示。
关于我的：

@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 
复制代码

精简肯定是谈不上了，
还有那个延时函数，挺庞大的