如何用API函数获得MP3，WMA等歌曲的时间长度
答案:2 悬赏:0 手机版
解决时间 2021-01-27 12:47
- 提问者网友：謫仙
- 2021-01-27 02:09
如何用API函数获得MP3，WMA等歌曲的时间长度
最佳答案
- 五星知识达人网友：逃夭
- 2021-01-27 02:41
"获取媒体的长度 00:00
Public Function GetMusicLengthString(FileName As String) As String
Dim RefStr As String * 80
mciSendString ""status "" CreateObject(""Scripting.FileSystemObject"").GetFile(FileName).shortpath "" length"", RefStr, 80, 0
GetMusicLengthString = CStr(Format(Int(Val(RefStr) \ 1000 \ 60), ""00"") ""："" Format(Val(RefStr) \ 1000 Mod 60, ""00."") Val(RefStr) \ 100 Mod 10)
End Function"
Public Function GetMusicLengthString(FileName As String) As String
Dim RefStr As String * 80
mciSendString ""status "" CreateObject(""Scripting.FileSystemObject"").GetFile(FileName).shortpath "" length"", RefStr, 80, 0
GetMusicLengthString = CStr(Format(Int(Val(RefStr) \ 1000 \ 60), ""00"") ""："" Format(Val(RefStr) \ 1000 Mod 60, ""00."") Val(RefStr) \ 100 Mod 10)
End Function"
全部回答
- 1楼网友：掌灯师
- 2021-01-27 03:28
虽然我很聪明，但这么说真的难到我了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯