yanni_enya

回复 6# _avatar_


    您给的脚本可以用，但是与我的使用环境有出入:
    我给每首歌曲在D:\jhrw\现用音乐\music下都设置了与歌曲名相同的批处理文件（这个批处理用来实现解除静音、设置音量，播歌曲，并在播放完后自动关闭进程和自动加静音）。而随机播放音乐的批处理放在  D:\jhrw\晨乐 ，  执行时实际是随机打开了D:\jhrw\现用音乐\music下歌曲同名的批处理。

    而且您的脚本有人为的判断，我想要7天到了自动重新开始在歌曲里再次随机播放歌曲，新的7天仍然不重复即可。

yanni_enya

回复 4# 77七


    您的脚本我试了一下：一闪而过！
    我把我的使用环境再说的具体一些，以下内容是已经实现的：电脑默认静音，每次播放前会自动取消静音并设置音量大小，歌曲播放完后自动关闭播放器进程，电脑自动设置静音。
    为了达到这个效果，我给每首歌曲在D:\jhrw\现用音乐\music下都设置了与歌曲名相同的批处理文件（这个批处理用来实现解除静音、设置音量，播歌曲，并在播放完后自动关闭进程和自动加静音）。而随机播放音乐的批处理放在  D:\jhrw\晨乐 ，  执行时实际是随机打开了D:\jhrw\现用音乐\music下歌曲同名的批处理。

Five66

这样行不，随机到的音乐移动到“已播放”文件里后才播放，当“已播放”文件里的音乐文件数量大于一定数量（默认7）时移动回去

@echo off

set times=7
set "ph=D:\jhrw\现用音乐\music"

if not exist "%ph%\已播放" md "%ph%\已播放"
set n=0
for %%a in ("%ph%\已播放\*") do set /a n+=1
if %n% gtr %times% move "%ph%\已播放\*" "%ph%\"

for %%a in ("%ph%\*.flac" "%ph%\*.mp3" "%ph%\*.ogg") do set /a m+=1
if not defined m (echo no file to play&pause&exit/b)
set /a r=%random%%%%m%
if %r% equ 0 set r=%m%
for %%a in ("%ph%\*.flac" "%ph%\*.mp3" "%ph%\*.ogg") do (
set /a counter+=1
for /f %%_ in ('echo %%counter%%') do (
if %%_ equ %r% (
move "%%~fa" "%ph%\已播放\" && start "%ph%\已播放\%%~nxa"
goto :end
)
)
)

:end
pause
复制代码

_avatar_

我试着写了一个，脚本的不重复周期通过  loop 变量控制，默认周期为七天。
每天的运行次数不限，只要你的歌库数量足够。
调用的播放器由系统设置的默认支持的播放器决定。
默认支持的歌曲类型： flac / mp3 / wav / ape , 其他格式可自行添加。
周期之内如果所有歌曲都被播放过，再次运行会提示 “所有歌曲都已经播放过一遍了”

脚本会设置一个系统环境变量 “playConfig”， 如果与已有系统环境变量冲突，请自行修改！

脚本代码：

@echo off&mode con cols=20 lines=2&color a&setlocal enabledelayedexpansion

set loop=7
set str=%date:/=%
set now=%str:~0,8%
set config=%now%;1;1;0

for /r %%i in (*.flac *.mp3 *.wav *.ape) do set /a total+=1
echo # 歌曲列表 >list.txt
dir *.flac *.mp3 *.wav *.ape /s /b >>list.txt
set /a total+=1

if NOT DEFINED playConfig (
  setx /m playConfig "%config%" >nul
  set playConfig=%config%
)

for /f "eol=# delims=; tokens=1,2,3,4" %%i in ("%playConfig%") do (
  set d=%%i
  set c=%%k
  set /a t=%%j
  set nums=%%l
  if "%%i" neq "%now%" (
    set /a t=%%j+1
    set d=%now%
  )
)

:rand
set /a randNum=%random%%%!total!

:start
if !c! geq !total! echo 所有歌曲都已经播放过一遍啦！ & pause>nul & goto :eof
for %%i in (!nums!) do if %%i == %randNum% goto rand
set /a c+=1
if !t! leq %loop% set config=!d!;!t!;!c!;!nums!
setx /m playConfig "%config%,%randNum%" >nul
for /f "skip=%randNum% delims=" %%i in (list.txt) do start "" "%%i" & goto :eof
复制代码

ShowCode

回复 1# yanni_enya


试试这两个：
http://bbs.bathome.net/thread-67358-1-1.html
http://bbs.bathome.net/thread-56468-1-1.html

77七

@echo off
rem 1.批处理保存为utf-8编码格式；
rem 2.播放软件：MPV (https://mpv.io/)；音量设定：nircmd (http://bcn.bathome.net/tool/nirsoft,2.86/nircmd.exe)；均需添加到电脑环境变量。
chcp 65001 >nul
set "folder=D:\mp3"
set /a k=m=0,e=(d=次数=7)*(n=数量=1)
if not exist "%folder%\list.txt" (
	cd.>"%folder%\list.txt"
)

:1
setlocal
for /f "useback delims=" %%a in ("%folder%\list.txt") do (
	set _"%%a"=1
	set /a k+=1
)
if %k% geq %e% (
	cd.>"%folder%\list.txt"
	endlocal
	goto :1
)
for /f "delims=" %%i in ('dir /b /a-d "%folder%\*.mp3" "%folder%\*.flac"') do (
	if not defined _"%%i" (
		call set #%%random%%=%%i
		set /a m+=1
	)
)
if %m% lss %n% (
	cd.>"%folder%\list.txt"
	endlocal
	goto :1
)
for /f "tokens=1* delims==" %%a in ('set #') do (
	echo 播放 [%%b]
	nircmd mutesysvolume 0
	nircmd setsysvolume 30000
	rem 自行设置播放器
	mpv --window-minimized "%folder%\%%b"
	nircmd setsysvolume 0
	nircmd mutesysvolume 1
	>>"%folder%\list.txt" echo %%b
	set /a n-=1,1/n 2>nul || exit
)
复制代码

yanni_enya

用批处理怎么实现？

_avatar_

不想不重复，就得记录播放过的歌曲