netbenton

小提速，同可时也可以用来获取最大的行，列值。

@echo off&setlocal enabledelayedexpansion

::文本只能保存为ansi编码，其它编码可能出错。
::Win 10 下测试通过。

for /F "tokens=1 delims=#" %%a in ('"prompt #$E# & echo on & for %%b in (1) do rem"') do set "ESC=%%a"

set/p=%ESC%[255;255H<nul

for /l %%b in (2,1,7) do (
if "!K!" neq "R" (
set /p=%ESC%[6n<nul
(for /l %%a in (1,1,%%b) do pause>nul
for /f "tokens=2 delims=键" %%c in ('"xcopy /w . 2>nul"') do set K=%%c
set str=!str!!k!
)<con
)
)

set /p in=当前窗口显示最大行；列：!str!，回车退出
复制代码