中国DOS联盟

重新编了一个，不用文本查询，清除写入过列表的变量来判断循环生成随机数
137个文件30秒内完成（随机数运气好的话速度就快，越往后有效变量越少越慢）：
红色部分不要

pause
cls
@echo off
copy nul List.txt >NUL
setlocal EnableDelayedExpansion
for /f "delims=" %%a in ('dir/b *.mp3^|find ".mp3"') do (
set /a N=!N! + 1
set Name!N!=%%a)

echo.
echo 随机生成列表，请稍等...
echo.
echo 序号 - 随机文件名
echo.
:loop
set N=%random:~-3%
if "%N%" == "000" goto loop
if "%N:~0,1%" == "0" set N=%N:~1%
if "%N:~0,1%" == "0" set N=%N:~1%
if %N% GTR 137 goto loop“137”文件数量
echo set Name=%%Name!N!%%>Temp.bat判断改变量是否被清除
call Temp.bat
if "%Name%" == "" goto loop

set /a M=%M%+1
echo echo %%M%% - %%Name!N!%%>Temp.bat显示序号 - 随机文件名
echo echo %%Name!N!%%^>^>List.txt>>Temp.bat
call Temp.bat
set Name!N!=清除已写入列表的变量
if %M% GEQ 137 goto End“137”文件数量
goto loop

:End
del Temp.bat
echo.
echo 完成！
echo.
pause
exit

好像有个小毛病：有时候会失败退出:(

[ Last edited by zxcv on 2006-7-28 at 01:19 ]

来一个自动判断文件数量设置随机位数的：

@echo off
pause
cls

for /f "tokens=1 delims= " %%i in ('dir *.mp3^|find "个文件"') do set 文件数量=%%i
if %文件数量% GEQ 100 set X=3
if %文件数量% GEQ 100 set NN=000
if %文件数量% LSS 100 set X=2
if %文件数量% LSS 100 set NN=00
if %文件数量% LSS 10 set X=1
if %文件数量% LSS 10 set NN=0
copy nul List.txt >NUL
setlocal EnableDelayedExpansion
for /f "delims=" %%a in ('dir/b *.mp3^|find ".mp3"') do (
set /a N=!N! + 1
set Name!N!=%%a)

echo.
echo 随机生成列表，请稍等...
echo.
echo 序号 - 随机（%文件数量% 个文件）
echo.

echo :loop>Loop.bat
echo set N=%%random:~-%X%%%>>Loop.bat
echo if "%%N%%" == "%NN%" goto loop>>Loop.bat
echo if "%%N:~0,1%%" == "0" set N=%%N:~1%%>>Loop.bat
echo if "%%N:~0,1%%" == "0" set N=%%N:~1%%>>Loop.bat
echo if %%N%% GTR %文件数量% goto loop>>Loop.bat
echo echo set Name=%%%%Name%%N%%%%%%^>Temp.bat>>Loop.bat
echo call Temp.bat>>Loop.bat
echo if "%%Name%%" == "" goto loop>>Loop.bat

:loop
call Loop.bat
set /a M=!M!+1
echo echo %%M%% - %%Name!N!%%>Temp.bat
echo echo %%Name!N!%%^>^>List.txt>>Temp.bat
call Temp.bat
set Name!N!=
if %M% GEQ %文件数量% goto :End
goto loop

:End
del Loop.bat
del Temp.bat
echo.
echo 完成！
echo.
pause
exit

有这么多朋友的代码相信已经足够矣...

我拿下来慢慢研究一下,希望能拼凑个更快更有效率的出来...^_^

谢谢各位...

Re voiL
在我这里每次的执行结果都不是一样的，并且没有文件名前的"编号"。麻烦贴一下结果我看看。

无奈何版主的不错，速度也快
不过有空格的文件名断了（不完整）应该可以些改一下

Originally posted by doscc at 2006-7-27 20:38:
我的代码 应该不会出现重复的行
因为在下面这一行做了过虑
echo %y% | findstr /r "\<%r%\>" >NUL || set y=%y% %r% & call :ls %r%
y 记录每个不一样的 随机数
当 r 不在 y 中出现时 就 记录 r 并 调用 :ls 把 tem.txt 中的第 r 行 追加到 list.txt 里

　　大概弄明白了你的过滤规则。

　　你在16楼的代码有问题，不知道红字部分是注释还是代码；如果是代码的话，执行完毕之后，list.txt文件里会有为数众多的行内容为“ 清除已写入列表的变量”；如果是注释的话，把注释部分清除掉之后，list.txt中为数众多的行内容为"ECHO 处于关闭状态。"

　　你说这段代码有时候会失败退出，估计是要处理的行数太多，导致name!N!变量太多，而CMD中变量的数量好象是有限制的。

[ Last edited by namejm on 2006-7-28 at 09:13 ]

Originally posted by zxcv at 2006-7-27 22:42:
无奈何版主的不错，速度也快
不过有空格的文件名断了（不完整）应该可以些改一下

　　无奈何版主的代码，除了9楼有一处之外，在什么地方还有哦？也想拿来跑一下。

Originally posted by namejm at 2006-7-27 23:00:


　　大概弄明白了你的过滤规则。

　　你在16楼的代码有问题，不知道红字部分是注释还是代码；如果是代码的话，执行完毕之后，list.txt文件里会有为数众多的行内容为“ 清除已写入列表的变量”；如果是注释的话，list.txt中为数众多的行内容为"ECHO 处于关闭状态。"

　　你说这段代码有时候会失败退出，估计是要处理的行数太多，导致name!N!变量太多，而CMD中变量的数量好象是有限制的。你在16楼的代码有问题，不知道红字部分是注释还是代码；如果是代码的话，执行完毕之后，list.txt文件釠...

16 楼是 zxcv 兄的代码.

11楼 则是我的代码. 以作更新!

Re zxcv
谢谢指正，含空格的文件名确实有问题，简单修正一下。
Re namejm
请见本楼修正代码。

1. @echo off
   
2. if "%1" NEQ "$" (
   
3. for /f "tokens=1,2 delims=:" %%a in ('"%~0" $^|sort') do @echo %%b
   
4. ) else for /f "delims=" %%i in ('dir /b /a-d') do @call :sub %%i
   
5. goto :EOF
   
6. :sub
   
7. echo %random%:%*
   
8. goto :EOF
   

无奈何发表于 2006-07-27 23:44

无奈何版主代码的速度很快，137个文件只用了不到3秒

@echo off
copy nul List.txt >NUL

if "%1" NEQ "$" (

for /f "tokens=1,2 delims=:" %%a in ('"%~0" $^|sort') do @echo %%b>>List.txt

) else for /f "delims=" %%i in ('dir /b /a-d *.mp3') do @call :sub %%i

goto :EOF

:sub

echo %random%:%*

goto :EOF

[ Last edited by zxcv on 2006-7-28 at 00:02 ]

Re doscc：

　　sorry，把你的代码看错了，不好意思。

Originally posted by namejm at 2006-7-27 23:00:


　　大概弄明白了你的过滤规则。

　　你在16楼的代码有问题，不知道红字部分是注释还是代码；如果是代码的话，执行完毕之后，list.txt文件釠...

后面文字为注悉，BAT里面不要

name!N!变量我试过548都没问题，估计是
echo set Name=%%Name!N!%%>Temp.bat
call Temp.bat
这部分有时候来不及反应

[ Last edited by zxcv on 2006-7-28 at 01:18 ]

Re zxcv:

　　如果你红色部分为注释的话，这样的注释格式是错误的，有的地方还会引起执行错误，比如 set Name!N!=清除已写入列表的变量 这一句，会把"清除已写入列表的变量"这个值赋给Name!N!这个变量，希望你能修正。

　　无奈何版主25楼的代码写得简洁至极，同时也让人费解至极，看了老半天，还是云里雾里的，难道真的像他以前所声称的那样，代码要写得尽量简洁、尽量晦涩？如果只是简洁，那可是我等的福气；如果再加上“尽量晦涩难懂”，我的妈呀，估计要晕倒一片像我这样的菜菜。希望无奈何版主能把你的代码稍微点拨一下，以便让我们对你的思路有所了解，光有9楼的只言片语我觉得还不过瘾。

　　发现了一个有趣的现象：如果把24楼代码打头的那句@echo off去掉，list.txt的内容将会大大增加，增加的内容形如"\当前文件夹名>echo 20454"，一般而言，如果文件有N个，这样的内容也回增加N行，按理说@echo off语句只是起屏蔽回显的作用，但是在这段代码中竟然会影响执行结果，有点匪夷所思。顺便提一下，代码中的@echo %%b>>List.txt和@call :sub %%i中的@去掉之后似乎并不影响代码执行时候的表现，不知道无奈何版主为何还要保留@。

[ Last edited by namejm on 2006-7-28 at 10:59 ]

Originally posted by namejm at 2006-7-28 09:12:
Re zxcv:

　　如果你红色部分为注释的话，这样的注释格式是错误的，有的地方还会引起执行错误，比如 set Name!N!=清除已写入列表的变量 这一句，会栮..

说实话，那是我说明本行的作用发贴时加上去的，真正的BAT中本来就没有（所以我的说明：红色部分不要）；不过你应该可以看得懂那些是不要的啊

俺不太清楚怎样在后面加上不影响代码的注悉