先简单说一下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
%〉
自己试试吧
希望能对你有所帮助
