[游戏娱乐] 批处理跑马灯

悬崖之树

@echo off&setlocal enabledelayedexpansion
mode con lines=3
set "s=锄禾日当午，汗滴禾下土。谁知盘中餐，粒粒皆辛苦。"
for /l %%i in (1 1 40) do set "kg=　!kg!"
set "str=%s%%kg%"
set "str=　%str:~0,40%%s%"

:loop
set /a n+=1
echo !str:~%n%,40!
for /l %%i in (1 1 800) do ver >nul
cls
if %n%==40 set /a n=0
goto:loop
复制代码