标题: [原创]批处理进度条 [打印本页]
作者: huobilie 时间: 2007-11-14 14:18 标题: [原创]批处理进度条
进度条文件：ProcessBar.bat
@echo off
MakeBar.vbs %1 %2
set /p v=<pb.dat
del pb.dat
cls
@echo %v%
VBS脚本：MakeBar.vbsMakeBar.vbs %1 %2
set /p v=<pb.dat
del pb.dat
cls
@echo %v%
Set a = WScript.Arguments
dim str
str = string(cint(a(0)),a(1))
createobject("scripting.filesystemobject").createtextfile("pb.dat").write(str)
测试文件：Test.batdim str
str = string(cint(a(0)),a(1))
createobject("scripting.filesystemobject").createtextfile("pb.dat").write(str)
@echo off
for /l %%v in (0,1,20) do @call ProcessBar.bat %%v "■"
pause
for /l %%v in (0,1,20) do @call ProcessBar.bat %%v "■"
pause
作者: zh159 时间: 2007-11-14 16:22
这个也太麻烦了吧，在论坛里搜索一下“进度”，就会发现很多不错的进度条