[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
骗分
  1. @echo off&Setlocal EnableDelayedExpansion
  2. Set /p N=num:
  3. Set /a ALL=N*N,w=0,h=w,s=h,c=s,l=n-1
  4. For /l %%a in (1,1,%all%) Do (Set _o!h!!w!=%%a
  5. if !c! EQU 0 (call :c w + GEQ 1 "l-s") else  if !c! EQU 1 (call :c h + GEQ 2 "l-s"
  6. ) else if !c! EQU 2 (call :c w - LEQ 3 "s") else  if !c! EQU 3 call :c h - LEQ "0,s+=1" "s+1")
  7. for /f "tokens=1,2 delims==" %%a in ('set _o^|sort') do (
  8. Set/P=%%b <nul&Set /a count+=1,1/^(count%%%N%^)2>nul||echo.)
  9. pause >nul&goto :eof
  10. :c
  11. Set /a %1%2=1,tmp=%~5
  12. if !%1! %3 %tmp% Set /a %1=tmp,c=%~4
  13. goto :eof
复制代码

TOP

返回列表