[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[特效代码] [已解决]批处理如何同时显出进度条的上下边框?

  1. @echo %dbg% off
  2. mode con cols=113 lines=15 &color 9f
  3. :starthome
  4. cls
  5. set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&
  6. echo.
  7. echo 程序正在初始化. . .
  8. echo.
  9. echo ┌──────────────────────────────────────┐
  10. set/p=  <nul&%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%
  11. echo   100%%
  12. echo └──────────────────────────────────────┘
复制代码
刚才无意中在网上看到此段代码,于是自己试着运行了下,发现这个进度条的下边框不显示。

于是我在下面插入了一段代码,才发现只能等100%这个显出来,才会出现下边框。

请问:有什么办法可以使上下边框都显示出来,而只有中间的进度条在增加么?  谢谢!
1

评分人数

    • CrLf: 感谢给帖子标题标注[已解决]字样PB + 2

回复 2# tmplinshi


    第一次见到用 reg query 获取制表符,可是为什么我这里没有效果呢...win7 系统,切换过代码页无果,是否不兼容呢?

TOP

呵呵~     谢谢了   不胜感激

TOP

本帖最后由 tmplinshi 于 2011-7-29 18:21 编辑


  • set /p =[tab键][退格键]<nul 来退行。
  • 或者用第三方工具设置光标的位置,如 CurSConSetCursor
  • 或者用 ConsExt 直接显示进度。
  1. @echo %dbg% off
  2. ::mode con cols=113 lines=15 &color 9f
  3. :starthome
  4. cls
  5. set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&
  6. echo.
  7. echo 程序正在初始化. . .
  8. echo.
  9. echo ┌──────────────────────────────────────┐
  10. echo └──────────────────────────────────────┘
  11. for /f "tokens=2 delims=>R" %%a in ('reg query hkcr\.bat /ve') do set \t=%%a
  12. set /p =%\t%<nul
  13. set/p=  <nul&%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%
  14. echo   100%%
  15. pause >nul
复制代码
1

评分人数

    • CrLf: 乐于助人技术 + 1

TOP

返回列表