中国DOS联盟

不知道还有多少热情，快了...呵呵
半年了，学到了些东西，趁着现在还有热度，把这些自己认为的好方法与大家共享，算是给大家的回报。遗憾的是从头到尾还只会bat。

call的一些用法@echo off ::这个是一维数组的，大家可以扩展为2维，的定义。 call:arr arr + d d+ 258 68 944 ddd pp dd plp df for /l %%a in (0 1 10) do set arr%%a pause :arr set/a n+=1 if %2.==. goto:eof set %1%n%=%2 shift /2 goto:arr

@echo off ::将输入的字符串作为变量然后赋值。这个用处可大了 set/p var= call:x %var% plp626 for /f %%a in ("%var%")do call echo %%%%a%% pause :x set %1=%2
for 的集合里，还支持复合语句:
for /f %%a in ('if exist 1.txt ^(echo ++^) else echo -- ')do echo %%a大家不妨将if换成for在发现发现。

有关start的用法
@echo off&if not %1.==. goto%*&exit/b ::将子过程作为for的集合的分析对象。（这个还可以再递归，）可以最大限度减少产生临时文件 for /f "delims=" %%a in ('%~s0 :a 1 2 3')do echo %%a pause for /f "delims=" %%a in ('%~s0 :b')do echo %%a pause ::多进程 start/b %~s0 :a + - * / pause&exit :a echo %* exit/b :b echo ---b exit/b

这个 第一行语句“if not %1.==. call%*&exit”我在许多代码经常用，位置已经固化了。它使代码可读性增强许多，同时也简洁了许多。

vbs知道一点点，下面这个代码包含的混合编程的思想，和批处理技巧不可小觑：
@echo off&if not %1.==. call%*&exit ::隐藏"调用" 原帖请搜索借尸还魂(请不要用这个来干坏事) pause goto:hid :code set set1=ping -n 2 127.1 1^>nul 2^>nul for /l %%i in (1 1 5) do md test-%%i&%set1% for /l %%i in (5 -1 1) do rd test-%%i&%set1% msg %username% /v /w "~~~~~测试完毕,点确定退出cmd~~~~" exit :: /*-------- hideme ---------- :hid if not %1.==. (goto:code) else mshta vbscript:createobject("wscript.shell").run("%~s0 :hid 0",0)(window.close)&exit :: -------- hideme ----------*/

多进程的：（这两个代码我也不知能说明什么）
@echo off&if not %1.==. call%*&exit||by plp626@cn-dos.net for /l %%a in (0 1 9) do start/b %~s0 :%%a exit :0 :1 :2 :3 :4 :5 :6 :7 :8 :9 echo 进程%0开始于%time% title 右键暂停，左键继续，注意看时间先后顺序 for /l %%a in (1 1 1000)do echo 我是进程%0 当前时间：%time% goto:eof
@echo off&if not %1.==. call%*&exit||by plp626@cn-dos.net for /l %%a in (0 1 9) do start/b %~s0 :%%a exit :0 :1 :2 :3 :4 :5 :6 :7 :8 :9 echo 进程%0开始于%time% title 右键暂停，左键继续，注意看时间先后顺序 for /l %%a in (1 1 1000)do echo 我是进程%0 当前时间：%time%>%tmp%\txt goto:eof

如果你的机子是10核的：
@echo off ::六为纯数字，需要外部工具unrar.exe set file=6位破解 if not "%1"=="" call%*&exit for /l %%a in (0 1 9) do start/b %~s0 :%%a exit :0 :1 :2 :3 :4 :5 :6 :7 :8 :9 echo 进程%0 开始时间：%time% for /l %%a in (0 1 9)do if "%0"==":%%a" set p=%%a for /l %%a in (0 1 9)do for /l %%b in (0 1 9)do for /l %%c in (0 1 9)do for /l %%d in (0 1 9)do for /l %%e in (0 1 9)do call:key %%a %%b %%c %%d %%e %0 echo 进程%0 结束时间：%time% goto:eof :key title 进程%6 正在试探：%p%%1%2%3%4%5 当前时间：%time% unrar t -p%p%%1%2%3%4%5 "%file%.rar">nul 2>nul &&( echo %p%%1%2%3%4%5 >key.txt msg %username% /v "密码为%p%%1%2%3%4%5" tskill /a cmd ) goto:eof
多进程之间通信
现在用临时文件的方法还算可靠，修改系统环境变量的方法比如date我还没试，
另外，用exit/b?(?为0-9数字)然后用errorlevel来确定那个子过程退出的方法在简单情况下可以起这个作用。

一个进程"pause"（实际上它还是处于执行态只是执行pause命令暂停罢了），另一个进程处于执行状态，若当这个进程变为也pause时，不管这个进程的优先级有多高，按键相应第一个执行pause的进程，

@echo off&if not "%1"=="" call%*&exit ::纯批实现等待指定输入 :begin call:timeout 5 :tsk1 626 :tsk2 :tsk1 echo\&echo "默认计划" echo\&echo 按回车键退出 exit :tsk2 echo "自定义计划" pause exit :: /*----------------- timeout -------------------- :timeout setlocal&del/a/q %tmp%\' 2>nul||(echo 未知错误!&pause&exit) start/b/REALTIME %~s0 :timeout_1 %1 %2 %3 %4 :timeout_2 set "v=" set/p v= if %v%.==%3. title %ComSpec%&cd.>%tmp%\'&endlocal&goto%4 if exist %tmp%\' exit ::没有输入，退出timeout goto:timeout_2 :timeout_1 for /l %%a in (%1 -1 0)do ( title 倒计时：%%a /输入:%3 跳过默认计划 %2/ if exist %tmp%\' title %ComSpec%&exit ping/n 2 127.1 >nul) title %ComSpec%&cd.>%tmp%\'&goto%2 :: --------------------- timeout -------------------*/


关于call的用法很多，主要是参数，得把setlocal掌握好，大家有空多关注下面两个帖子。

【共同参与】"批处理函数库"
http://www.cn-dos.net/forum/viewthread.php?tid=38969&fpage=1
【共享】常用子过程、函数收集【专用帖】
http://www.cn-dos.net/forum/viewthread.php?tid=39777&fpage=2
多与别人分享，受益匪浅

[ Last edited by plp626 on 2008-4-27 at 12:04 AM ]

强烈支持楼主这种精神，但保留自己对某些问题的看法。

我发现
set a=12345
然后可以直接--
echo %a:~1,4%

之前我这个白痴一直 set a2=%a:~1,4% 然后才 echo %a2%