[游戏娱乐] 批处理将光标退回原点

batman

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

wujunkai

win10好像失效了~有什么办法吗

ShenMian

回复 15# batman
我不是很在意可读性...
for /l %%a in (-1,1,%10) do set "k=!k!"

回复 19# idos
TEST...

idos

回复 14# batman


    1.用echo+空格＋tab＋n*10+2个退格来实现回退N行，在14楼的例子中最外层循环执行到第二次的时候，数字向上跑了一行，而此时的退格键为两个，这是怎么一回事？
    2.用set /p输出一个tab+n个退格就将光标回退多行，实例中是用的echo输出，效果一样啊？

新手，求解答

CrLf

2>nul是亮点，不过set /p可以省掉的，只需要任意字符打断tab与退格的关联即可：echo tab@

jay_16

好强大，受益匪浅....

batman

补充一点：
为确保退回到原点并重新输出字符时前面不会多出空格，建议将2>nul echo tab!k!改成2>nul echo tab!k!&set /p=<nul

batman

一样将tab换成实际tab

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

[ 本帖最后由 batman 于 2011-2-26 12:23 编辑 ]

batman

在思考一位朋友的问题时，又想到了光标回退，结果发现光标回退其实是有着规律可循的，经本人测试，如果想回退n行的话，就可以用echo+空格＋tab＋n*10+2个退格来实现，那么想要保证回到原点，必须知道当前输出了多少行（空行也算一行），测试代码如下（请将字符改为实际的tab）：

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

[ 本帖最后由 batman 于 2011-2-26 12:37 编辑 ]

zhouyongjun

定位到指定列还是有问题，会修改后面的东西

zhouyongjun

哇，重大发现。真是太好了。

523066680

[ 本帖最后由 523066680 于 2010-2-11 08:59 编辑 ]

随风

是否可以考虑写个函数，将光标退回到指定的行和例。

netbenton

此法用在动画显示上真的超爽，即不用三方，速度也是嘎嘎的

在俄罗斯方块中引入后，不但不闪了，速度有所提升！

batman

欢迎兄弟回家！