【原创】cmd下文本行乱序排列并分组

hitme · *此帖于 2005-05-23 15:01:47 被 hitme 编辑. .*

=============================================
述求：有一个party，达到对到场人员，随机分组玩团队游戏的目的。。。
能够随意的输入姓名，输入完后，把随机分组排列的姓名显示在屏幕上
=============================================
设姓名文本为name.txt,一个名字一行
分组规则为：4人一组
思路为：乱编号+编号排序=乱序，然后分组
随机空间大小为10的3次方,几十人的party应该够了吧

准备好name.txt,保存为xy.cmd运行,自定义修改红色部分

代码:

@echo off

for /f "delims=" %%i in (name.txt) do (

			setlocal ENABLEDELAYEDEXPANSION
			for /l %%a in (1,1,3) do (
			         echo %random% >nul
			         set  m=!m!!random:~-1!
			          )
			echo !m!!:%%i>>tmp.txt
			endlocal
)


setlocal ENABLEDELAYEDEXPANSION

set /a num=0
set /a linenum=0
for /f "delims=" %%i in (tmp.txt) do set /a linenum=!linenum!+1

for /f "tokens=1,2* delims=: " %%i in ('sort tmp.txt ^| findstr /n "."') do (
		set n=%%k
		set m=!m!	!n!
		set /a num=!num!+1

		if !num!==4 (
			echo !m!>>tmp1.txt 
			set /a num=0
			set m=) 

		if "%%i"=="!linenum!" (
					if "!m!" neq "" echo !m!>>tmp1.txt)
)

endlocal

findstr /n "." tmp1.txt>list.txt
del tmp*.txt

start list.txt

hitme · #2 2005-05-23, 12:37:19

修正了几个小问题,更新下

Hackevin · #3 2005-05-23, 13:31:51

http://bbs.et8.net/bbs/showthread.php?t=661402

注释一下这个摇号的吧，想改个30选7都不知道从哪儿下手

hitme · #4 2005-05-23, 14:04:43

引用:

作者: Hackevin

http://bbs.et8.net/bbs/showthread.php?t=661402

注释一下这个摇号的吧，想改个30选7都不知道从哪儿下手

改下这里,改为:

代码:

findstr /m "!m%%i!!n%%i!" tmp.txt 2>nul >nul && goto :loop || ^
if !m%%i!!n%%i!==00 (
                                   echo 30>>tmp.txt) else (
                                                                          echo !m%%i!!n%%i!>>tmp.txt)

思路是如随机到00,输出30
用cmd写,螺丝壳里做道场,憋的慌..要求高了,越改越不靠铺,呵呵

hitme · #5 2005-05-23, 14:06:48

引用:

作者: Hackevin

http://bbs.et8.net/bbs/showthread.php?t=661402

注释一下这个摇号的吧，想改个30选7都不知道从哪儿下手

思路是:
分别随机出[01-29]十位,和个位
00的不要
重复的不要
排序,转置

Punk · #6 2005-05-23, 14:15:39

请教hitme另外一个脚本,功能是自动拨号,ping指定IP地址(参数1),小于指定ping值(参数2)就停止(拨号成功),大于的话挂断重拨,直到小于指定ping.有几步不会弄....需要的功能是:

引用:

rasphone -d 拨号
ping 指定IP
获取ping值,默认命令是ping四次(不麻烦的话希望可以指定ping次数作为参数3),取平均值或者最小值与指定ping值比较
if =< 指定ping值 goto :end (结束,拨号成功)
if > 指定ping值
rasphone -h 拨号 (不成功就挂断)
重复以上

hitme · #7 2005-05-23, 14:30:41

引用:

作者: Punk

请教hitme另外一个脚本,功能是自动拨号,ping指定IP地址(参数1),小于指定ping值(参数2)就停止(拨号成功),大于的话挂断重拨,直到小于指定ping.有几步不会弄....需要的功能是:

大概如此
地址=bbs.et8.net
次数=3
ping值限=1000 比较对象=平均值

代码:

:loop
rasphone -d 拨号
for /f "tokens=3 delims=," %%i in ('ping bbs.et8.net -n 3 ^| findstr "Average"') do (
			setlocal ENABLEDELAYEDEXPANSION
			set n=%%i
			if !n:~11,-3! gtr 1000 (rasphone -h 拨号 (不成功就挂断) && goto :loop) 								endlocal
)

完善好了，共享哈
呵呵,挑起局端设备来了..

hitme · #8 2005-05-23, 14:46:44

我把以前写的cmd shell,rar打包了下,各处备了下,留了好几个copy
不曾想..今天发现... rar文件坏了,妈呀...太损了吧
算了算了，旧的不去,新的不来

Punk · #9 2005-05-23, 15:33:58

有点问题:

引用:

此时不应有 -3!。

F:\Tmp> if !n:~11,-3! gtr 5 @echo to high

hitme · #10 2005-05-23, 15:43:23

引用:

作者: Punk

有点问题:

恩,!用习惯了,还忘了"号
改正
"%n:~11,-3%" gtr "1000"

Punk · #11 2005-05-23, 16:05:18

好像传递不了变量,你看看:

引用:

for /f "tokens=3 delims=," %%i in ('ping bbs.et8.net -n 3 ^| findstr "Average"') do (
setlocal ENABLEDELAYEDEXPANSION
set n=%%i
set m=%n:~11,-3%
@echo %m

endlocal
)

输出的m值始终是个m而不是数字,set m==%n:~11,-3%和m="=%n:~11,-3%
"都不行...

hitme · #12 2005-05-23, 16:11:47

引用:

作者: Punk

好像传递不了变量,你看看:

输出的m值始终是个m而不是数字,set m==%n:~11,-3%和m="=%n:~11,-3%
"都不行...

要这样用
set m=%n:~11,-3%
echo !m!

Punk · #13 2005-05-23, 16:17:45

for /f "tokens=3 delims=," %%i in ('ping bbs.et8.net -n 3 ^| findstr "Average"') do (
setlocal ENABLEDELAYEDEXPANSION
set n=%%i
set m=%n:~11,-3%
@echo !m!
endlocal
)

输出空的...

hitme · #14 2005-05-23, 16:23:45

引用:

作者: Punk

for /f "tokens=3 delims=," %%i in ('ping bbs.et8.net -n 3 ^| findstr "Average"') do (
setlocal ENABLEDELAYEDEXPANSION
set n=%%i
set m=%n:~11,-3%
@echo !m!
endlocal
)

输出空的...

晕了，晕了，今天下午彻底晕了,新装了个xp,打全补丁,不能做文件共享,不知道那里的策略给改了，头疼了

代码:

for /f "tokens=3 delims=," %%i in ('ping bbs.et8.net -n 3 ^| findstr "Average"') do (
setlocal ENABLEDELAYEDEXPANSION
set n=%%i
set m=!n:~11,-3!
echo !m! 
endlocal
)

Punk · #15 2005-05-23, 16:25:40

是不是%%1那个变量值"Average = 8ms"含有等号有影响?