先簡單說一下MP的ID 標記因為主要是操作這個玩意
MP最開始的時候沒有我們今天看到的那樣有歌手年代專集等等信息
只有一些簡單的參數如yes/no來表示是不是privated或者copyrighted等信息這樣對MP的相關工作帶來了很多不便年的時候有個老外提出來在每個MP後面追加一段數據用以存放上述的那些信息後來就發展成為id v 據我所知的現在已經到了具體的還是自己去查一下吧
還是老習慣用metadata來引入DLL我以前有文章貼過的不知道的請自己去查
看代碼
〈!METADATA TYPE=typelib
UUID=AADEA
NAME=ADODB Type Library
〉
〈%
Function ConvertBin(Binary)
This function converts a binary byte into an ASCII byte
for i = to LenB(Binary)
strChar = chr(AscB(MidB(Binaryi)))
ConvertBin = ConvertBin & strChar
Next
End Function
dim objStream
dim strTag strSongName strArtist strAlbum strYear _
strComment strGenre strFile
Specify the folder to iterate through displaying all the MPs
Const folder = C:mps
Grab the folder information
Dim objFSO objFolder objFile
Set objFSO = ServerCreateObject(ScriptingFileSYstemObject)
Set objFolder = objFSOGetFolder(folder)
Create the Stream object
set objStream = ServerCreateObject(ADODBStream)
objStreamType = adTypeBinary
Loop through the files in the folder
For Each objFile in objFolderFiles
Open the stream
objStreamOpen
objStreamLoadFromFile objFilePath
Read the last bytes
objStreamPosition = objStreamsize
Read the ID v tag info
strTag = ConvertBin(objStreamRead())
if ucase(strTag) = TAG then
strSongName = ConvertBin(objStreamRead())
strArtist = ConvertBin(objStreamRead())
strAlbum = ConvertBin(objStreamRead())
strYear = ConvertBin(objStreamRead())
strComment = ConvertBin(objStreamRead())
end if
Display the results
responsewrite 〈table〉〈tr〉〈td colspan=〉〈h〉 & _
ID Tag info for:〈/td〉〈/tr〉〈tr〉 & _
〈td colspan=〉 & objFileName & 〈/td〉〈/tr〉
responsewrite 〈tr〉〈td〉〈b〉Artist: 〈/b〉〈/td〉 & _
〈td〉 & strArtist & 〈/td〉〈/tr〉
responsewrite 〈tr〉〈td〉〈b〉Track: 〈/b〉〈/td〉 & _
〈td〉 & strSongName & 〈/td〉〈/tr〉
responsewrite 〈tr〉〈td〉〈b〉Album: 〈/b〉〈/td〉 & _
〈td〉 & strAlbum & 〈/td〉〈/tr〉
responsewrite 〈tr〉〈td〉〈b〉Year: 〈/b〉〈/td〉 & _
〈td〉 & strYear & 〈/td〉〈/tr〉
responsewrite 〈tr〉〈td〉〈b〉Comment: 〈/b〉 & _
〈/td〉〈td〉 & strComment & 〈/td〉〈/tr〉
responsewrite 〈/table〉
objStreamClose
ResponseWrite 〈p〉〈hr〉〈p〉
Next
Set objStream = Nothing Clean up
%〉
自己試試吧
希望能對你有所幫助
From:http://tw.wingwit.com/Article/program/net/201311/11461.html
