まず、MP3 の ID3 タグについて簡単に説明します。主にこの動作に使用されます。
当初、MP3 には今日のように歌手、年、アルバムなどの情報がありませんでした。
これは、MP3 関連の作業に多大な不便をもたらしました。1996 年に、ある外国人が、各 MP3 の後にデータを追加することを提案しました。 、上記の情報を保存するために、その後 id3 v1 に発展しました。私が知る限り、現在は 1.1 に達しています。自分で確認してみてください。
DLL を導入するためにメタデータを使用するのは古い習慣です。これについては以前にも投稿しましたので、ご自身で確認してください。
コードを見てください
<!--METADATA TYPE=typelib
UUID=00000205-0000-0010-8000-00AA006D2EA4
NAME=ADODB タイプ ライブラリ
-->
<%
関数 ConvertBin(バイナリ)
'この関数はバイナリ バイトを ASCII バイトに変換します。
for i = 1 から LenB(バイナリ)
strChar = chr(AscB(MidB(バイナリ,i,1)))
ConvertBin = ConvertBin & strChar
次
終了機能
dimobjStream
dim strTag、strSongName、strArtist、strAlbum、stryear、_
strComment、strGenre、strFile
'すべての MP3 を表示して反復処理するフォルダーを指定します
定数フォルダー = C:/mp3s/
'フォルダ情報を取得します
Dim objFSO、objFolder、objFile
objFSO = Server.CreateObject(Scripting.FileSYstemObject) を設定します
objFolder = objFSO.GetFolder(フォルダー) を設定します。
'ストリームオブジェクトを作成する
set objStream = Server.CreateObject(ADODB.Stream)
objStream.Type = adTypeBinary
'フォルダー内のファイルをループします
objFolder.Files 内の各 objFile について
'ストリームを開く
objStream.Open
objStream.LoadFromFile objFile.Path
'最後の128バイトを読み取ります
objStream.Position =objStream.size - 128
'ID3 v1 タグ情報を読み取ります
strTag = ConvertBin(objStream.Read(3))
ucase(strTag) = TAG の場合、その後
strSongName = ConvertBin(objStream.Read(30))
strArtist = ConvertBin(objStream.Read(30))
strAlbum = ConvertBin(objStream.Read(30))
stryear = ConvertBin(objStream.Read(4))
strComment = ConvertBin(objStream.Read(30))
終了する場合
'結果を表示
response.write <table><tr><tdcolspan=2><h3> & _
ID3 タグ情報:</td></tr><tr> & _
<td colspan=2> & objFile.Name & </td></tr>
response.write <tr><td><b>アーティスト: </b></td> & _
<td> & strArtist & </td></tr>
response.write <tr><td><b>トラック: </b></td> & _
<td> & strSongName& </td></tr>
response.write <tr><td><b>アルバム: </b></td> & _
<td> & strAlbum & </td></tr>
response.write <tr><td><b>年: </b></td> & _
<td> & str年 & </td></tr>
response.write <tr><td><b>コメント: </b> & _
</td><td> & strComment & </td></tr>
応答.write </table>
objStream.Close
応答.書き込み <p><hr><p>
次
set objStream = Nothing'クリーンアップ...
%>
自分で試してみてください