标题: [讨论]关于随机播放的几个代码，附完美代码。 [打印本页]
作者: linee 时间: 2008-12-31 19:58 标题: [讨论]关于随机播放的几个代码，附完美代码。
第一个，抄来的。特点是随机列表顺序播放。每首歌开随机变量随机编号然后通过排序输出，保证每首歌随机播放一次。
@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"
第二个，也是抄来的。特点是顺序列表随机播放。每首歌开变量顺序编号，然后按随机数对号播放，不用排序。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
第三个，我自己的。特点是没有列表，要播歌得现找。不开变量编号，不排序，仅按随机数找歌播放。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
或下面的代码，也实现同样功能。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
这三个都没有临时文件，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
这不应该算是另一个方案，只是把无奈何版主的代码（上面第四个）改了下，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的代码如下：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"
@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判断，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
@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来判断了。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"
@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"
或，^_^(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"
或，^_^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 ]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"
作者: pusofalse 时间: 2008-12-31 21:21
第三种应该会出错，因为歌曲的数目是未知的啊，若i=32766%%32767+1呢，你的目录中可能没有那么多歌曲。
作者: linee 时间: 2008-12-31 21:44
| Quote: | |
|
这个考虑过了，没问题的，进入循环完整扫描一次后歌曲数目就变已知了。因为，假若随机数i大于你的歌曲数目的话，那本次for循环会找不到歌来播，也正是利用这点来进行一次完整的扫描，从而取得歌曲数目，这种情况只会有一次。知道歌曲数目后随机数i就不会大于歌曲数目了，也就总能找到歌来播了。
[ Last edited by linee on 2008-12-31 at 21:53 ]
作者: linee 时间: 2009-1-1 17:50
这不应该算是另一个方案，只是把无奈何版主的代码改了下，
@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的代码如下：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"
@echo %random%=%*
[ Last edited by linee on 2009-1-2 at 14:39 ]作者: linee 时间: 2009-1-3 17:06
又搞了个方案，不过不算是新的，相当于是第三个的变种，就当是练习命令吧。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 ]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
作者: netbenton 时间: 2009-1-3 23:52 标题: 看这样行吗?
@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 ]
作者: linee 时间: 2009-1-4 00:27
| Quote: | |
|
感谢提点，虽然还是要用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 ]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
作者: netbenton 时间: 2009-1-4 01:10
哦!没看清是%*
改成是%1就可以了.
不过,你的更好.
作者: linee 时间: 2009-1-4 21:07
再来个第四个的变种，不用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
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
作者: linee 时间: 2009-1-5 13:50
完美代码出现了，不用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
自认为很完美了，谁还能优化就请提出来吧。(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 ]
作者: linee 时间: 2009-1-6 12:43
还可以这样实现，迷人吧。^_^
@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 ]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
作者: linee 时间: 2009-1-7 14:19
还可以这样，^_^
@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
for /f "tokens=2delims==" %%a in ('%~0 "(for /r %%i in (*.mp3,*.wma)do call echo %%^random%%=%%i)&goto:EOF"^|sort')do echo %%a