@echo off&setlocal enabledelayedexpansion
set "str=　　我在向不断向左移动哦"
for /l %%a in (1,1,24) do set "t=!t! "
echo 请注意下面文字的变化&echo.&set /p=＝＝^><nul
:lp
for /l %%a in (1,1,11) do (
     set /a a=6*%%a
     for %%b in (!a!) do set "t1=!t:~%%b!"
     set /p=!str:~%%a!<nul
     for /l %%b in (1,1,2000) do echo>nul
     set /p=!t1!<nul
)
goto lp
复制代码

@echo off&setlocal enabledelayedexpansion
set "str=我是一帧帧的画面，连贯起来就成了动画"
for /l %%a in (0,1,17) do (
     echo !str:~%%a,1!>tmp
     type tmp
     for /l %%b in (1,1,2000) do echo>nul
     cls
)
del /q tmp&pause
复制代码

@echo off&setlocal enabledelayedexpansion
:: 灵感来源于cn-dos趣味东的多行回退
:: 趣味东发现用set /p输出一个tab+n个退格就将光标回退多行，但并不好控制
:: 于是本人就想到是不是能将光标回退到原点（屏幕左上角）
:: 结果发现用echo输出一个tab+n个退格就能将光标退回到原点过一格的位置，但有错误信息输出
:: 于是，用2>nul屏蔽错误信息，并再加一个退格将光标退回原点
:: 下面通过代码进行简单演示，至于原因本人暂未搞明白
::请将下面的tab换成实际的制表符
set "t=tab"
title 神奇的回退
for /l %%a in (1,1,1000) do set "k=!k!"
for /l %%a in (1,1,10) do echo ○○○○○○○○○○
ping /n 2 127.1>nul
:: 这里将光标退回原点处，请仔细注意光标的位置
echo %t%%k% 2>nul&set /p=<NUL
pause>nul
:: 请注意6-10行第6-10个字符的输出是没有改变的
for /l %%a in (1,1,5) do echo ●●●●●¤¤¤¤¤
for /l %%a in (1,1,5) do echo ⊙⊙⊙⊙⊙
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
::请将下面的tab换成实际的制表符
set "t=tab"
for /l %%a in (1,1,210) do (
     set "k=!k!"&cls
     for /l %%b in (1,1,20) do (
         for /l %%c in (1,1,20) do set "str=!str!■"
         echo !str!&set "str="
      )
      2>nul echo %t%!k!
      echo %%a
      for /l %%b in (1,1,1000) do echo>nul
)
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
mode con cols=50 lines=12&color 9f
::请将下面的tab换成实际的制表符
set "t=tab"
for /l %%a in (1,1,11) do (
    set /p=     *<nul
    for %%b in (1 11) do if %%a equ %%b set "flag=a"
    if defined flag (
       for /l %%b in (1,1,39) do set /p=*<nul
       set "flag="
       ) else (
       if %%a equ 6 (
          set /p=             　  无 为                *<nul
          ) else (     
          for /l %%b in (1,1,38) do set /p= <nul
          set /p=*<nul
       )
    )
    echo.
)
for /l %%a in (1,1,52) do set "k=!k!"
2>nul echo,%t%!k!&set "k=!k:~30!"
for /f "tokens=3 delims=:" %%a in (%~0) do (  
    set /a n+=1,m=n%%2
    set /p=     *<nul
    for /l %%b in (1,1,12) do set /p= <nul
    set /p=%%a<nul
    for /l %%b in (1,1,2000) do echo>nul
    if !m! equ 0 (
       2>nul echo,%t%%k%
       ) else (
       echo,&echo,
    )
)
for /l %%b in (1,1,2000) do echo>nul
2>nul echo,%t%%k%
echo      *            　  无 为
for /f "tokens=3 delims=:" %%a in (%~0) do echo      *            %%a            
pause>nul    
::#:#:光阴无声逝如风
::#:#:一梦醒觉行囊空
::#:#:可叹寒窗十年问
::#:#:不入尘缘竟峥嵘
::#:#:遥想子成家业时
::#:#:情迷书墨一老翁
复制代码

@echo off
echo bbs.bathome.net
set /p =光标回退（非cls清屏）动画效果演示：<nul
for /l %%i in (1,1,10) do (
    set /p =%%i<nul
    set /p =<nul
    ping -n 2 127.1 >nul
)
echo,
pause
复制代码

@echo off
echo bbs.bathome.net
for /f %%i in ('echo prompt $H ^| cmd') do (
    set "KeyBS=%%i"
)
set /p =光标回退（非cls清屏）动画效果演示：<nul
for /l %%i in (1,1,10) do (
    set /p =%%i<nul
    set /p =%KeyBS%<nul
    ping -n 2 127.1 >nul
)
echo,
pause
复制代码

@echo off
echo   bbs.bathome.net
for /f %%i in ('echo prompt $H ^| cmd') do (
    set "KeyBS=%%i"
)
echo   倒计时:
for /l %%i in (9,-1,1) do (
    set /p "= %KeyBS%  %%i"<nul
    set /p "=%KeyBS%%KeyBS%%KeyBS%"<nul
    timeout /t 1 >nul
)
echo,
echo   执行完毕
pause
复制代码

@echo off
set /p =光标回退显示时间（非cls清屏）：<nul
:a
set/p =%time:~0,8%<nul
for /l %%k in (1,1,8) do (set/p=<nul)
ping -n 1 127.1 >nul
goto a
复制代码