Tirmellon
MPeX.net AllStar
|
 Verfasst am: 15.07.2004 - 07:23 Titel: RE: Visual Basic Tag Information |
 |
|
ID3v1 Tag:
[quelle: http://www.tools4vb.de/]
Kurzes Besipiel, daher hier der Code:
| Code: |
'Informationen
Public Type MP3Info
Titel As String
Interpret As String
Album As String
Jahr As String
Kommentar As String
Genre As String
End Type
Public Function ReadMP3Tag(ByVal Filename _
As String) As MP3Info
Dim F As Integer
Dim TagInfo As String * 128
F = FreeFile
Open Filename For Binary As #F
Seek #F, LOF(F) - Len(TagInfo) + 1
Get #F, , TagInfo
Close #F
If Left$(TagInfo, 3) <> "TAG" Then
'kein TAG
Else
With ReadMP3Tag
.Titel = StripNull(Mid$(TagInfo, 4, 30))
.Interpret = StripNull(Mid$(TagInfo, 34, 30))
.Album = StripNull(Mid$(TagInfo, 64, 30))
.Jahr = StripNull(Mid$(TagInfo, 94, 4))
.Kommentar = StripNull(Mid$(TagInfo, 98, 30))
.Genre = StripNull(Mid$(TagInfo, 128, 1))
End With
End If
End Function
Public Function StripNull(ByVal strText As String) _
As String
If InStr(strText, Chr$(0)) > 0 Then _
strText = Left$(strText, InStr(strText, Chr$(0)) - 1)
StripNull = RTrim$(strText)
End Function
|
_________________
Helium - Professional Audio Management
Helium - Fan Portal
Helium bei MPeX.net |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registierung deaktiviert!
Profil
Einloggen, um private Nachrichten zu lesen
Login
