« は~とちょこ 15 | Main | お姉ちゃんのうた »

2004.02.11

は~とデーターベース計画 7


楽しい曲を聴きたいときは楽しい曲を、静かな曲を聴きたいときは静かな曲を検索できるデーターベースプログラムをつくるぞ。

入力補助機能を考える。
データーベースへの情報入力はひたすら根気あるのみですが、いちいち手入力はやってられないということで自動化できないか実験してみることにしました。

♥実験:MP3ファイルのデータをとれるか
以前、エクセルのフォームにWINDOWSメディアプレーヤーを貼り付けたものを利用します。
メディアプレーヤーでMP3を再生させて曲名やアーティスト名がとり、エクセルにリストアップできるかやってみました。

♥実験結果
MP3を作るときに音楽情報を入れた場合、次のデーターをとることが出来ました。
アーティスト名、曲名、演奏時間、ビットレート、ファイルサイズ、メディアタイプ(audio/video)、ファイルタイプ(ファイルの拡張子と同じ)、ファイルサイズ。
これだけあればは~とデーターベース的には十分です。

Set SHT = ActiveSheet
UserForm1.Show vbModeless
FNAM = Dir(PATHNAME & "*.*")
ROW = 2
While FNAM <> ""
With UserForm1.WindowsMediaPlayer1
'ファイルオープン
.Url = PATHNAME & FNAM
'再生が始まるまでデーターがとれない
While .PlayState <> wmppsPlaying
DoEvents
Wend
SHT.Cells(ROW, 1) = FNAM
'アーティスト名
SHT.Cells(ROW, 2) = .currentMedia.getItemInfo("Author")
'曲名
SHT.Cells(ROW, 3) = .currentMedia.getItemInfo("Title")
'演奏時間
V = .currentMedia.getItemInfo("Duration")
SHT.Cells(ROW, 4) = Int(V / 3600) & ":" & Int((V Mod 3600) / 60) & ":" & Int(V Mod 60)
'ビットレート
SHT.Cells(ROW, 5) = .currentMedia.getItemInfo("Bitrate")
'メディアタイプ
SHT.Cells(ROW, 6) = .currentMedia.getItemInfo("MediaType")
'ファイルタイプ
SHT.Cells(ROW, 7) = .currentMedia.getItemInfo("FileType")
'ファイルサイズ
SHT.Cells(ROW, 8) = Format(.currentMedia.getItemInfo("FileSize") / 1024, "###,###")
End With
FNAM = Dir
ROW = ROW + 1
Wend

ということで、実験は大成功。♥
データーベースへの入力もきっと楽ちんになることでしょう。


« は~とちょこ 15 | Main | お姉ちゃんのうた »

Comments

Post a comment



(Not displayed with comment.)




« は~とちょこ 15 | Main | お姉ちゃんのうた »