中国DOS联盟

第一个，抄来的。特点是随机列表顺序播放。每首歌开随机变量随机编号然后通过排序输出，保证每首歌随机播放一次。
@echo off for /r %%i in (*.mp3,*.wma) do call set $%%random%%=%%i for /f "tokens=2 delims==" %%i in ('set $') do "C:\Program Files\MPlayer\mplayer.exe" "%%i"
第二个，也是抄来的。特点是顺序列表随机播放。每首歌开变量顺序编号，然后按随机数对号播放，不用排序。
@echo off setlocal enabledelayedexpansion for /r %%i in (*.mp3,*.wma) do (set /a n+=1&set n!n!=%%i) :loop set /a i=%random%%%n+1 "C:\Program Files\MPlayer\mplayer.exe" "!n%i%!" goto loop
第三个，我自己的。特点是没有列表，要播歌得现找。不开变量编号，不排序，仅按随机数找歌播放。
@echo off setlocal enabledelayedexpansion set n=32767 :loop set /a i=%random%%%n+1,j=0 for /r %%a in (*.mp3,*.wma) do ( set /a j+=1 if !j! == %i% ("C:\Program Files\MPlayer\mplayer.exe" "%%a"&goto loop) ) set n=%j%&goto loop
或下面的代码，也实现同样功能。
@echo off set n=32768 :loop set /a i=%random%%%n+1 for /f "tokens=1* delims=:" %%a in ('dir/b/s *.mp3,*.wma ^|findstr /n .*') do ( if %%a equ %i% ("C:\Program Files\MPlayer\mplayer.exe" "%%b"&goto loop) set j=%%a ) set n=%j%&goto loop
这三个都没有临时文件，
有不同方案的来讨论下啊，不要有临时文件哦。

第四个，又抄了个方案，这个似乎更巧妙了些。直接利用扫描结果排序输出，不用开一大堆变量。也保证每首歌随机播放一次。
@echo off if "%1" NEQ "$" ( for /f "tokens=2 delims==" %%a in ('"%~0" $^|sort') do "C:\Program Files\MPlayer\mplayer.exe" "%%a" ) else for /r %%i in (*.mp3,*.wma) do call echo %%random%%=%%i

这不应该算是另一个方案，只是把无奈何版主的代码（上面第四个）改了下，
@echo off for /f "tokens=2 delims==" %%a in ('^(for /r %%i in ^(*.mp3,*.wma^) do call rndmark.bat %%i^)^|sort') do "C:\Program Files\MPlayer\mplayer.exe" "%%a"
遗憾多了个rndmark.bat，谁能帮我精简下啊。rndmark.bat的代码如下：
@echo %random%=%*
感谢6楼的提点，进一步修改如下，
@echo off if "%~1"=="k" echo %random%=%2&goto :EOF for /f "tokens=2 delims==" %%a in ('^(for /r %%i in ^(*.mp3,*.wma^) do call %0 k "%%i"^)^|sort') do "C:\Program Files\MPlayer\mplayer.exe" %%a
下面不用if判断，改用for判断，
@echo off for %%i in (%1) do (for /r %%j in (*.mp3,*wma) do call echo %%random%%=%%j)&goto :EOF for /f "tokens=2 delims==" %%a in ('"%~0" 1^|sort') do "C:\Program Files\MPlayer\mplayer.exe" "%%a"
再次修改，算是完美代码了吧，没有if判断了，也不用另外的for来判断了。
@echo off (for %1 %%i in (*.mp3,*.wma) do call echo %%random%%=%%i)%3>nul&%2:EOF for /f "tokens=2 delims==" %%a in ('"%~0" /r,goto,2^|sort') do "C:\Program Files\MPlayer\mplayer.exe" "%%a"
或，^_^
@echo off&%x% set "x=(for /r %%i in (*.mp3,*.wma) do call echo %%random%%=%%i)&goto:EOF" for /f "tokens=2 delims==" %%a in ('"%~0"^|sort') do "C:\Program Files\MPlayer\mplayer.exe" "%%a"
或，^_^
@echo off&%~1 for /f "tokens=2delims==" %%a in ('%~0 "(for /r %%i in (*.mp3,*.wma)do call echo %%^random%%=%%i)&goto:EOF"^|sort')do "C:\Program Files\MPlayer\mplayer.exe" "%%a"

[ Last edited by linee on 2009-1-7 at 14:21 ]

第三种应该会出错，因为歌曲的数目是未知的啊，若i=32766%%32767+1呢，你的目录中可能没有那么多歌曲。

Originally posted by pusofalse at 2008-12-31 21:21:
第三种应该会出错，因为歌曲的数目是未知的啊，若i=32766%%32767+1呢，你的目录中可能没有那么多歌曲。

这个考虑过了，没问题的，进入循环完整扫描一次后歌曲数目就变已知了。因为，假若随机数i大于你的歌曲数目的话，那本次for循环会找不到歌来播，也正是利用这点来进行一次完整的扫描，从而取得歌曲数目，这种情况只会有一次。知道歌曲数目后随机数i就不会大于歌曲数目了，也就总能找到歌来播了。

[ Last edited by linee on 2008-12-31 at 21:53 ]

这不应该算是另一个方案，只是把无奈何版主的代码改了下，
@echo off for /f "tokens=2 delims==" %%a in ('^(for /r %%i in ^(*.mp3,*.wma^) do @call rndmark.bat %%i^)^|sort') do "C:\Program Files\MPlayer\mplayer.exe" "%%a"
遗憾多了个rndmark.bat，谁能帮我精简下啊。rndmark.bat的代码如下：
@echo %random%=%*

[ Last edited by linee on 2009-1-2 at 14:39 ]

又搞了个方案，不过不算是新的，相当于是第三个的变种，就当是练习命令吧。4楼的问题真的无解么？
@echo off set n=32768 :loop set /a i=%random%%%n+1 for /f "tokens=1* delims=:" %%a in ('dir/b/s *.mp3,*.wma ^|findstr /n .*') do ( if %%a equ %i% ("C:\Program Files\MPlayer\mplayer.exe" "%%b"&goto loop) set j=%%a ) set n=%j%&goto loop

[ Last edited by linee on 2009-1-3 at 20:58 ]

@echo off
if "%~1"=="k" goto :rndmak
for /f "tokens=2 delims==" %%a in ('^(for /r %%i in ^(*.mp3,*.wma^) do @call %0 k %%i^)^|sort') do "C:\Program Files\MPlayer\mplayer.exe" "%%a"
goto :eof

:rndmak
shift
echo %random%=%*

[ Last edited by netbenton on 2009-1-4 at 01:12 ]

Originally posted by netbenton at 2009-1-3 23:52:
@echo off
if "%~1"=="k" goto :rndmak
for /f "tokens=2 delims==" %%a in ('^(for /r %%i in ^(*.txt,*.wma^) do @call %0 k %%i^)^|sort') do "C:\Program Files\MPlaye ...

感谢提点，虽然还是要用if，也不失为一种方法。好想那个位置能用%random%就完美了，呵呵。你这个要改一下，因为盘符前多个k和空格。
下面是我改的。
@echo off if "%~1"=="k" echo %random%=%2&goto :EOF for /f "tokens=2 delims==" %%a in ('^(for /r %%i in ^(*.mp3,*.wma^) do call %0 k "%%i"^)^|sort') do echo %%a

[ Last edited by linee on 2009-1-4 at 00:52 ]

哦!没看清是%*
改成是%1就可以了.

不过,你的更好.

再来个第四个的变种，不用if判断的，改用for判断，我也是第一次用for来判断。
@echo off for %%i in (%1) do (for /r %%j in (*.mp3,*wma) do call echo %%random%%=%%j)&goto :EOF for /f "tokens=2 delims==" %%a in ('"%~0" 1^|sort') do echo %%a

完美代码出现了，不用if判断，也不用另外的for来判断了。
@echo off (for %1 %%i in (*.mp3,*.wma) do call echo %%random%%=%%i)%3>nul&%2:EOF for /f "tokens=2 delims==" %%a in ('"%~0" /r,goto,2^|sort') do echo %%a
自认为很完美了，谁还能优化就请提出来吧。

[ Last edited by linee on 2009-1-6 at 12:44 ]

还可以这样实现，迷人吧。^_^
@echo off&%x% set "x=(for /r %%i in (*.mp3,*.wma) do call echo %%random%%=%%i)&goto:EOF" for /f "tokens=2 delims==" %%a in ('"%~0"^|sort') do echo %%a

[ Last edited by linee on 2009-1-6 at 12:59 ]

还可以这样，^_^
@echo off&%~1 for /f "tokens=2delims==" %%a in ('%~0 "(for /r %%i in (*.mp3,*.wma)do call echo %%^random%%=%%i)&goto:EOF"^|sort')do echo %%a