如何用VBS取MP3音檔的分秒

vbs

pengchti 2011-07-04 03:09:50 ‧ 5881 瀏覽

想請問各位先進
我想使用VBS取MP3的音檔秒數
如何取出至小數點
例：[2分28秒228]

感謝

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

ccutmis

iT邦高手 2 級 ‧ 2011-07-04 09:54:56

最佳解答

是可以用CreateObject的方式來處理，例如:

&lt;pre class="c" name="code">
Dim mp3url
mp3url="c:\\TestSong.mp3"
playSound mp3url

Function playSound(soundUrl)
    Dim wmp,TiShiObj
    Set wmp = CreateObject("WMPlayer.OCX")
    wmp.URL = soundUrl
    Do Until wmp.playState = 1                
        WSH.sleep 5000
		WSH.ECHO "目前正播放時間: " & wmp.controls.currentPositionString & "  音樂總長度: " & wmp.currentMedia.durationString
    Loop
End Function

希望合用喔~

回應 4
分享
檢舉

看更多先前的回應...收起先前的回應...

pengchti iT邦新手 5 級 ‧ 2011-07-04 20:54:11 檢舉

太感謝您的回覆
要如何取出如 2分28秒228

感謝

ccutmis iT邦高手 2 級 ‧ 2011-07-04 23:57:53 檢舉

試試看...希望有幫助 :)

&lt;pre class="c" name="code">
Dim mp3url   
mp3url="c:\\TestSong.mp3"  
playSound mp3url   
  
Function playSound(soundUrl)   
    Dim wmp,timeStr,timeArr
    Set wmp = CreateObject("WMPlayer.OCX")   
    wmp.URL = soundUrl   
    Do Until wmp.playState = 1                   
        WSH.sleep 10000   
		timeStr=wmp.controls.currentPosition
		timeArr=split(timeStr,".")
		WSH.echo CINT(timeArr(0) / 60) & "分" & CINT(timeArr(0) MOD 60) & "秒" & LEFT(timeArr(1),3)
    Loop   
End Function

pengchti iT邦新手 5 級 ‧ 2011-07-05 22:32:17 檢舉

感謝ccutmis的分享
但可不可以不播放MP3而是直接取總時間 [2分28秒228]
再次感謝

ccutmis iT邦高手 2 級 ‧ 2011-07-06 13:43:55 檢舉

總時間取得這問題比較小，把 wmp.contrls.currentPosition 改成 wmp.currentMedia.duration 就可以解決。但以本例來說就沒辦法不播放，因為是透過WMPlayer這元件，它不播又怎能知道它現在播的歌曲的資訊呢? 所以折衷方式就是在源碼裡面加上
wmp.settings.mute=true(其實還是會播，但是靜音)，以下是參考源碼...

&lt;pre class="c" name="code">
Dim mp3url   
mp3url="c:\\TestSong.mp3"  
playSound mp3url   
  
Function playSound(soundUrl)   
    Dim wmp,timeStr,timeArr
    Set wmp = CreateObject("WMPlayer.OCX")   
    wmp.URL = soundUrl
	wmp.settings.mute=true '設為靜音
    Do Until wmp.playState = 1                   
        WSH.sleep 1000
		timeStr=wmp.currentMedia.duration
		timeArr=split(timeStr,".")
		WSH.echo "總時間:" & CINT(timeArr(0) / 60) & "分" & CINT(timeArr(0) MOD 60) & "秒" & LEFT(timeArr(1),3)
		Exit Do '取得總時間就跳出Do迴圈
    Loop 
	Set wmp = NoThing
End Function

登入發表回應