[文件操作] 批处理怎么获得音乐文件的播放时间？

canyuexiaolang

批处理怎么获得音乐文件的播放时间，
并把它们输出到一个文本文件中
==============================================
注意：是多个的音乐文件的播放时间，列出到文本文件中

zqz0012005

只能用vbs

on error resume next
strFolder = "D:\music"
set fso = CreateObject("Scripting.FileSystemObject")
set ts = fso.OpenTextFile("music.txt", 2, true)
set wmp = CreateObject("WMPlayer.ocx")
for each f in fso.GetFolder(strFolder).Files
    set oMedia = wmp.newMedia(f.path)
    'wsh.sleep 100 '等待识别
    ts.WriteLine f.name & vbTab & oMedia.durationString
next
ts.Close
复制代码

canyuexiaolang

那...VB呢...？
=============================
虽然我觉得这个问题有点无理取闹...

zqz0012005

请上VB论坛。。。

canyuexiaolang

呃....、、、歌词...00：00
晕死...
能过虑掉吗

canyuexiaolang

天！！！
放到VB里竟然可以运行！！！
谢谢谢谢................

============================
不愧为脚本版VB

zqz0012005

楼主既然会VB，这个问题还不会自己解决吗？
判断一下
if LCase(fso.GetExtensionName(f.path)) <> "lrc" then

canyuexiaolang

想不出来饿...VB之会一点点

Batcher

@echo off
type nul>result.txt
for %%a in (*.mp3) do (
  for /f "tokens=8 delims= " %%h in ('tag --simple "%%~fa" 2^>^&1 ^| findstr "Details:"') do (
    >>result.txt echo %%a %%h
  )
)
复制代码

第三方命令行工具 tag.exe 下载地址：
http://bbs.bathome.net/thread-3981-1-1.html