Board logo

标题: [特效代码] [已解决]批处理如何同时显出进度条的上下边框? [打印本页]

作者: amwrjvh    时间: 2011-7-29 17:04     标题: [已解决]批处理如何同时显出进度条的上下边框?

  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%这个显出来,才会出现下边框。

请问:有什么办法可以使上下边框都显示出来,而只有中间的进度条在增加么?  谢谢!
作者: tmplinshi    时间: 2011-7-29 18:13

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

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

作者: amwrjvh    时间: 2011-8-30 15:53

呵呵~     谢谢了   不胜感激
作者: CrLf    时间: 2011-8-30 16:06

回复 2# tmplinshi


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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2