MP3-Dateien werden immer beliebter - lassen sich doch so fast 200 Songs auf eine einzige CD brennen. Jede MP3-Datei enthält hierbei Informationen über den Interpret, Erscheinungsjahr, Titel und einiges mehr. ' 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 Dieser Tipp wurde bereits 22.893 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |