风之语故乡

回复 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 COPY

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