@echo off&setlocal enabledelayedexpansion
:: 灵感来源于cn-dos趣味东的多行回退
:: 趣味东发现用set /p输出一个tab+n个退格就将光标回退多行，但并不好控制
:: 于是本人就想到是不是能将光标回退到原点（屏幕左上角）
:: 结果发现用echo输出一个tab+n个退格就能将光标退回到原点过一格的位置，但有错误信息输出
:: 于是，用2>nul屏蔽错误信息，并再加一个退格将光标退回原点
:: 下面通过代码进行简单演示，至于原因本人暂未搞明白
:: 因论坛处理不了tab，请将代码中的tab字符替换为实际的tab
title 神奇的回退
set "t=tab"
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字符换成tab
title 光标回退7行
set "t=tab"
for /l %%a in (1,1,1000) do set "k=!k!"
for /l %%a in (1,1,20) do echo %%a%t%bathome
ping /n 2 127.1>nul
set /a n=20-7
echo %t%%k% 2>nul&set /p=<nul
for /l %%a in (1,1,%n%) do echo.
set /p=现在光标回退到这里了<nul
pause>nul
复制代码

@echo off
setlocal enabledelayedexpansion
set "tab=    "
set /a cols=20,lines=10,act=0
for /l %%a in (1,1,%cols%) do (set spc=+!spc!)
for /l %%a in (1,1,%lines%) do (set l%%a=%spc%)
for /l %%a in (1,1,%cols%) do (
  for /l %%b in (1,1,%lines%) do (
    set /a act+=1
    set num[!act!]="x=%%a,y=%%b"
    set back=!back!
  )
)
:act
  set /a rand=%random% %% act + 1
  set /a !num[%rand%]:"=!,xa=x-1
  set num[%rand%]=!num[%act%]!
  set l%y%=!l%y%:~0,%xa%! !l%y%:~%x%!
  color 0%act:~-1%
  echo %tab%%back% 2>nul
  echo,
  for /l %%a in (1,1,%lines%) do (echo,!l%%a!)
if %act% gtr 1 (set /a act-=1 &goto :act)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,202) 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 tab!k!
　if %%a equ 202 set /p=<nul
    echo %%a
    for /l %%b in (1,1,1000) do echo>nul
)
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set /p h=请输入总行数：
set /p t=请输入回退行数，请不要大于总行数：
for /l %%a in (1,1,%h%) do echo 第%%a行：www.bathome.net is my home
set /a t=t*10+2
for /l %%a in (1,1,%t%) do set "k=!k!"
2>nul echo tab!k!
pause>nul
复制代码