中国DOS联盟

color 5e
@echo off
echo set aa=蒋忠富>1.bat
echo set aa=施武金>2.bat
echo set aa=石景侨>3.bat
echo set aa=陈俊勇>4.bat
echo set aa=王震超>5.bat
echo set aa=陈炎昆>6.bat
echo set aa=郑鸣群>7.bat
echo set aa=谢启程>8.bat
echo set aa=黄亮>9.bat
echo set aa=许键>10.bat
:pp
cls
echo 输入组队人数8或10
set /p s=
s=s-1
cls
set count=0
@echo on
:loop
set /a num=%random%%%%s%+1
if not defined num%num% (
set num%num%=%num%
set /a count+=1
call %num%.bat
if %num%== goto pp
echo %num%%aa% >>xx.txt
)
if %count% lss %s% goto loop
if %s%==8 echo 51==天灾军团==== >>xx.txt
if %s%==10 echo 51==天灾军团==== >>xx.txt
del 1.bat
del 2.bat
del 3.bat
del 4.bat
del 5.bat
del 6.bat
del 7.bat
del 8.bat
del 9.bat
del 10.bat
cls
@echo off
setlocal enabledelayedexpansion
set a=0
echo.
echo ***********************
echo ***********************>>DOAT.txt
echo.
echo ====近卫军团====
echo ====近卫军团==== >>DOAT.txt
for /f %%i in (xx.txt) do (
set /a a+=1
set num!a!=%%i
)
set /a b=%a%-1
for /l %%i in (1,1,%b%) do (
set /a var=%%i+1
for /l %%j in (!var!,1,%a%) do (
call set var1=%%num%%i%%
call set var2=%%num%%j%%
if !var1! lss !var2! (set tmp=!var1!&set num%%i=!var2!&set num%%j=!tmp!)
)
)
for /l %%i in (1,1,%a%) do call echo %%num%%i%%>>DOAT.txt
for /l %%i in (1,1,%a%) do call echo %%num%%i%%
del xx.txt
echo.
echo ***********************>>DOAT.txt
echo ***********************
echo.

echo=============
echo =任意键退出=
echo=============
pause>nul

[ Last edited by sttacckz on 2007-12-7 at 04:54 AM ]

看人家写的比自己写还累,楼主还是说明要达到什么目的

有8-10个人 要随机分配出2组人员
8人就4 4分 10就5 5分
然后显示出来 就这么简单。。。
- -..
VB 等还是很容易，但偶想学下BAT.