sgaizxt001

目前只会做没有考虑后门的，而且效率不高。我觉得我的代码是新手最容易看的懂的。就贴出来了。
把x%%a=%%d !x%%a!中间的空格换为tab键。

@echo off
setlocal enabledelayedexpansion
for %%a in (A B C D) do for /l %%b in (1,1,100) do set #%%a-!random!-%%a-%%b=0
for /l %%a in (1,1,10) do (
  for /f "tokens=3,4 delims=-=" %%b in ('set #') do (
   for %%d in (%%b-%%c) do (
    set /a m+=1
    set /a n=m%%10+1
    if !n! equ %%a set x%%a=%%d !x%%a!
)
) 
)
for /l %%j in (1,1,10) do (
  echo 第%%j班:
  echo !x%%j!
)
pause
复制代码

[ 本帖最后由 sgaizxt001 于 2010-6-29 06:20 编辑 ]

523066680

=。=  这两人编码靠后，干涉较多额。 我还是老老实实做简单的那个吧
goto 惯了

@echo off
setlocal enabledelayedexpansion
set spec=#ABCD
set /a m=1
:main
 for /l %%a in (1,1,100) do (set i_%%a=%%a)
 set /a lp=1,range=100
 :lp
    set /a tmpx=%random% %% range + 1
    set /a class=!i_%tmpx%! %% 10 + 1
    set class_%class%=!class_%class%! !spec:~%m%,1!%lp%
    set /a i_%tmpx%=i_%range%
 if %lp% lss 100 (set /a lp+=1,range-=1 &goto :lp)
if %m% lss 4 (set /a m+=1 &goto :main)
for /l %%i in (1,1,10) do (echo class %%i = !class_%%i!)
pause
复制代码

Yoshi， 重新了解了一下情况，果断放弃.=。=

[ 本帖最后由 523066680 于 2010-6-29 09:40 编辑 ]

neorobin

@echo off&setlocal enabledelayedexpansion
for %%t in (A B C D) do (
        for /l %%i in (1001 1 1100) do set "#%%t!random:~-2!%%i=%%i"
        for /f "tokens=2 delims==" %%n in ('set #%%t') do set "U=!U!%%t-%%n "
        set U=!U:-1=-!
        set "U=!U:B-060 =!      "& set "U=!U:C-049 =!      "
        for /l %%s in (0 60 540) do ( set /a V=%%s/60+1
                for %%c in (x-!V!) do set "%%c=!%%c!!U:~%%s,60!"
        )
        set "U="
)
set "X-10=!X-10:      =!!X-3:~60,6!!X-8:~120,6!"
set X-3=!X-3:~0,60!B-060 !X-3:~66!& set "X-8=!X-8:~0,120!C-049 !X-8:~126!"
set X&pause
复制代码

这次 100 个学生表的次序 采用了 set 输出排序, set 输出一系列变量是会按变量名的次序来排列的, 但事先安排 100 个变量名仅前部相同, 变量值却是 1--100 中的任意一个, 且没有变量值相同的情况, 而且 1--100 每个值都是安排到了一个随机生成的变量名的变量, 再用 set 输出, 输出的变量名是按正常次序来的, 但变量的值却成了无规则的乱序了, 部分示例如下:

#A0074=74
#A0134=34
#A0270=70
#A0352=52
#A0381=81
#A0497=97
#A0550=50
#A0553=53
#A063=3
#A0658=58

neorobin

才发现我 33 楼的乱序方法居然是和 batman 22 楼一样的, 有巧合但也有特色: 做完代码才发现 33 楼居然没有用一个 if.

batman 好像认为 set 排乱序不太好, 我可真想不到还有什么更简洁的方式.

terse

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1001,1,1100) do set s=%%i&set var=!var!#!s:~-3!
    for %%i in (A B C D) do (
        set %%i=!var!&set _%%i=100
        for /l %%j in (1 1 10) do set %%i.%%j=10
  )
set B.2=9&set C.8=9&set _B=99&set _C=99
set X3= B-60&set X8= C-49&set B=!B:#060=!&set C=!C:#049=!
for %%a in (A B C D) do (
    for /l %%i in (1 1 10) do (
    for /l %%j in (1 1 !%%a.%%i!) do (
    set /a n=!random!%%_%%a*4
    for %%b in ("!n!") do for %%c in ("!%%a:~%%~b,4!") do (
    for /f "tokens=* delims=#0" %%d in (%%c) do (
        set %%a=!%%a:%%~c=! 
        set /a _%%a-=1
        set x%%i=!x%%i! %%a-%%d
)))))
for /l %%i in (1,1,10) do echo %%i班:&echo!x%%i!
pause
复制代码

zqz0012005

@echo off
setlocal enableDelayedExpansion
set amount=100
set types=A B C D
set slices=10
set special=B-60-3 C-49-8

for /l %%a in (1 1 %amount%) do set arr=!arr! #-%%a
for %%i in (%types%) do (
    set "%%i=!arr:#=%%i! " 后面特意加了空格
    set /a amount_%%i=amount
    for /l %%a in (1 1 %slices%) do set /a num_%%i_%%a = amount / slices
)

for %%a in (%special%) do (
    for /f "tokens=1,2,3 delims=-" %%i in ("%%a") do (
        set %%i=!%%i: %%i-%%j = !
        set /a amount_%%i -= 1
        set /a num_%%i_%%k -= 1
    )
)

for %%i in (%types%) do (
    set #=!%%i!
    set /a left = amount_%%i
    for /l %%a in (1 1 %slices%) do (
        for /l %%n in (1 1 !num_%%i_%%a!) do (
            set /a ran = !random! %% left + 1
            set $=!#!
            for /l %%x in (1 1 !ran!) do set $=!$:* =!
            for /f %%x in ("!$!") do set item=%%x
            set slices_%%a=!slices_%%a! !item!
            for %%x in (!item!) do set #=!#: %%x = !
            set /a left -= 1
        )
    )
)

for %%a in (%special%) do (
    for /f "tokens=1,2,3 delims=-" %%i in ("%%a") do set slices_%%k=!slices_%%k! %%i-%%j
)

for /l %%a in (1 1 %slices%) do echo class %%a:& echo !slices_%%a!& echo;

echo;
pause
exit /b

:shuffle arrName len cnt //洗牌
复制代码

适应每个数组元素名字未知（开始生成一个数组是当没有给出时手动生成）、长度不定（当然总长度必须小于单个变量最大长度8k）

neorobin

听你说正在学习编程规范, 一点好奇: 难道你不是计算机专业的(当然你可以不答我)
你这帖的代码, 我没大细看, 但 发现 echo off 和 setlocal 没用 & 放在同一行了,
set /a 后面的运算符也都前后都空出一个空格了.
这点上我提一个题外话, 至少我在做一些代码时自己犯了一个狭念:
把代码做浮华性的 "简化", 甚时在变量名上做不必要的简化, 略到只用一个字母.

什么样的代码才是好的? 正确, 高效, 易读, 而所谓 "简洁", 应是代码具备了实质上内在的品质而自然表现出的外在品质.

zqz0012005

为什么大家都觉得我是计算机专业的呢？

编程规范要求一行上最好只放一条语句（其实大家都懂的）

set /a 后面加空格是可以的而且是应该的，以突出运算逻辑和提高可读性。它和set进行字符串赋值有所不同，对于后者多余的空格也会成为变量名/值的一部分。

变量命名应该尽量做到短小而又有所含义（能做到见名知义就更好了），不要全用毫无意义的a、b、c之类的，当然有一些习惯性用法，比如n表示数量，i用于for循环变量等。

语句对齐问题：我发现做到并坚持这一原则的人真的很少。批处理就算再简单，基本的结构还是有的，不要一味为了简洁就无视它。
复合语句收尾的括号应与关键字在同一列上对齐（主要就是if、for，因为开始的括号不能另起一行放在行首，否则就与它对齐了），内部子语句应该适量缩进（一般4个空格，多数编辑器都是这个默认值，不用你多敲）。当子语句只有一两个且较简单，也可以省去括号（在bat中不反对大家这么做）。

正确、高效、易读，最容易做到的就是易读，却往往最难被人做到，悲乎哀哉！就算代码功能上不怎么样，变量名称、基本意思、流程结构应该写清楚呀，起码能让人看得懂。（terse的代码一向高效，但我一般都没怎么看过，感觉太“难看”了^_^）

sgaizxt001

易读这点有待商量，因为你们写的好多代码对于我们这类初学者来说，看起来头疼

Batcher

赞同，至少要有缩进。
每次看到全部顶格的代码，总有一种想打人的冲动。

zqz0012005

看36楼的代码，你觉得哪里头疼呢？

代码功能和技巧原理可能不大懂，需要相当的基础和积累才行。但代码格式、基本结构应该容易看懂吧（少数风格迥异的牛人除外，只看三两遍和没看一样）
比如一行句子是什么结构、怎么断句、主体命令是什么，for循环是哪一种、循环体里面有哪些子句，if语句的条件分支是怎样的，从哪里到哪里、是什么逻辑关系；总之大体框架应该读能出来。

试比较35楼的
set /a n=!random!%%_%%a*4
和36楼的
set /a ran = !random! %% left + 1

新手对上面那句，可能很难明白（当然结合代码是必须的，可是对新手还是很难）；但下面那句就不一样了（当然本身就简单一点）

sgaizxt001

看的就是技巧啦，为什么你写的出来，我写不出来。为什么你的代码效率高而我的慢的要死。为什么你的代码那么短而且不生成临时文件，而我就不行。就是看你们的代码去找出这些问题，学习你们的思路和技巧
就拿一个不生成临时文件的方法来说:set
在我开始学批处理，看教程的时候，我对于set的关注和主观想法认为他的作用是设置变量，忽略了他的另一个功能显示变量。所以在做练习题的时候，我就搞不懂为什么可以这样用。寒夜孤星教过我，然后慢慢掌握了这个用法
在拿这个题来说，刚开始我不知道怎么着手，当时我的想法是如何取10个不同的随机数来取出这些数，我看了一下随风的代码发现了set #%%a-!random!-%%a-%%b=0的巧妙用法，然后一下困扰我的难题就解开了，同时也做出了这个题，虽然效率不高。但是也做出来了

zqz0012005

那就不是易读性的问题，而是技巧性的问题。
我说过，需要相当的基础和积累才行。

set的这个用法你不会，说明你的基本功还不够，对常用命令都不熟。
set /?
    SET P
会显示所有以字母 P 打头的变量

而set /a进行数学运算时，“您可以使用环境变量值做计算而不用键入那些 % 符号来得到它们的值”
据此分析set /a n=!random!%%_%%a*4
断句一下就是set /a n = !random! %% _%%a * 4
前面的%%是求余运算符（在bat中要写成两个，预处理机制，原理和理论知识），!random!加了!符号，因为它是一个特殊的变量，不是我们手动定义的，而是系统提供的动态环境变量，所以要使用!!来得到其值。而_%%a就是的!_%%a!省去!的形式，只是这个展开过程稍微多一步：先由for展开%%a的值，与_拼接后整个成为一个变量名，再由set得到该变量对应的值。