Office: (Office 2016) Mp3 auslesen

WST · 12. Mai 2018

Hallo zusammen,

für meine über Jahre gewachsene Musik-Datenbank suche ich eine einfache und verständliche Lösung um aus mp3-Dateien die Bit Rate und die Spieldauer auszulesen (in Min/Sec und nur in Sekunden).
In meinen Formularen wird der Pfad zur mp3-Datei inkl. des Dateinamens in dem Steuerelement: "Dateiname" angezeigt, z. B. C:/Musik/The Beatles - Help.mp3

Falls es Lösungen gibt, bitte macht es für mich so einfach wie möglich.
Bin blond, Autodidakt und 64 Jahre alt, aber immer bereit, etwas Neues dazu zu lernen und auszuprobieren *wink.gif*

Schöne Grüße aus dem Münsterland

Winni

:)

elmar · 14. Mai 2018

Nutze die Suche hier im Forum - dort findet sich unter anderem dieses hier...

Nouba · 14. Mai 2018

File TAGS auslesen und ändern

Ohrkester · 14. Mai 2018

Servus WST,
es gibt Lösungen, welche mit offenem VBA-Code arbeiten.
Wenn folgendes interessant ist, dann melde Dich per PN.
Diese Datenbanken sind zu gross, um sie direkt ins Forum stellen zu können.
Sie sind jedenfalls offen im Code und ohne irgendeine Nutzungsbeschränkung.

ArbSound

Audioplayer (mp3 mp4, wav) für Access2007 und höhere Versionen(optional ausbaubar für Videofiles, welche per Windows Mediaplayer abspielbar sind)
Auch mit der kostenlosen Access 2010 Runtimeversion benutzbar.
Einige Features sind in Access 2007 nicht nutzbar (z.B. MouseOver Effekte auf Buttons).

Die Datenbank ist in Frontend und Backend aufgeteilt. (FE + BE)
Beim ersten Start des FE wird nach dem Backend gefragt. Dieses einfach im Ordner 'Backends' suchen und doppelklicken.

--------------------------------------------------
FEATURES und OPTIONS (einfach ausprobieren...Lesen kann man später immer noch)
--------------------------------------------------
ab Arbsound_v20_Beta (31.7.2017) nur für 27 Zoll Monitorversion
- neues Backend Arbsound_v20_BE (kompatibel zu v19_BE)
- Redesigning linkes Listenfeld und Anzeigefelder darunter für mehr Flexibilität und Anzeigequalität
- ToDo für rechtes Listenfeld noch nicht fertig
- still ToDo: Exit Buttons in Hilfsformularen optisch nachformatieren.

ab Arbsound_v19 (29.7.2017)
- Neues Backend Arbsound_v19_BE.accdb, welches nicht mehr zu älteren FE-Versionen kompatibel ist.
- Es kann die Fontgrösse des linken Listenfeldes eingestellt werden
- still ToDo: Exit Buttons in Hilfsformularen optisch nachformatieren.
- neue 17Zoll Monitorversion mit eigenem Design.

ab Arbsound_v18 (29.7.2017)
- Neues Backend Arbsound_v18_BE.accdb, welches nicht mehr zu älteren FE-Versionen kompatibel ist.
- Spaltenbreiten des linken Listenfeldes in den Skins einstellbar (Album, Titel, Interpret, Spielzeit).
- still ToDo: Exit Buttons in Hilfsformularen optisch nachformatieren.

ab ArbSound_v17_24Zoll.accdb und ArbSound_v17_27Zoll.accdb (ab 27.Juli 2017)
- wie Accdb_v17.accdb, aber ab jetzt an2 verschiedene Monitorgrößen angepasst.

ab ArbSound_v17.accdb (ab 22.7.2017)
- Import-Info implementiert. Solange importiert wird, wird diese Anzeige erscheinen.
- sonstige kleine bugfixes
- still ToDo: Exit Buttons in Hilfsformularen optisch nachformatieren.
- still ToDo: Spaltenbreite des linken Listenfeldes in den Skins einstellbar machen.
- still ToDo: Buttons über linker Liste vergrößern.

ab ArbSound_v16a.accdb (ab 10.7.2017)
- Erstimporte nochmal optimiert. Speziell die Stabilität des Importformulars.
- Exit aus Suchformular fixed.
- sonstige kleine bugfixes
- still ToDo: Exit Buttons in Hilfsformularen optisch nachformatieren.

ab ArbSound_v10s.accdb (ab 9.7.2017)
- Erstimporte optimiert. Speziell im Formular 'Praeferenzen'
- bugfixes
- still ToDo: Exit Buttons in Hilfsformularen optisch nachformatieren.

ab ArbSound_v10P.accdb (ab 23.6.2017)
- bugfixes
- still ToDo: Exit Buttons in Hilfsformularen optisch nachformatieren.

ab ArbSound_v10N.accdb (ab 22.6.2017)
- Erweiterung im Playerformular um ein Suchfeld-Spezial, wodurch man in allen Daten nach dem eingegebenen Suchparameter filtern kann.

ab ArbSound_v10M.accdb (ab 20.6.2017)
- bugfixes in den Suchlisten des Komfort-Suchformular

ab ArbSound_v10L.accdb (ab 20.6.2017)
- bugfixes in kleinen optischen Fehlern der gesamten DB

ab ArbSound_v10h.accdb (ab 12.6.2017)
- Bildlaufleisten in Player und Archivformular
- png Bilder sind jetzt auch nutzbar

ab ArbSound_v10g.accdb (ab 10.Juni 2017)
- Komfort-Suchformular für viele OFFLINE Bearbeitungen, ohne das Abspielen einer Soundliste zu stören.
- Refresh-Methode löscht tote Links in den Playlisten und Archivlisten.
- Zusätzliches Feld in der Archivtabelle für Notizen zu dem physischen Lagerort eines Tonträgers (CD, DVD, etc.)

vor ArbSound_v10g.accdb (vor 10.Juni 2017)
- automatisierbares Einlesen der Filelinks inkl. file tags (die DB speichert keine files, sondern nur deren Pfade)
Alternativ kann ein einzelnes File, die Files eines Ordners oder die Files einer kompletten
Ordner/Subordnerstruktur mit allen darin enthaltenen Files eingelesen werden.
Auslesbare mp3 Tags werden übernommen. Zusätzlich werden die Windows Filetags ausgewertet.
Optional kann bei fehlenden Interpreten ein default Interpret voreingegeben werden.

- Sollten keine Songnummern oder Spiel-Längen in den wav-, mp3- oder mp4- Dateien vorhanden sein, werden diese Dateien
zwar importiert, aber zusätzlich in eine Tabelle 'Ladefehler' geschrieben.

- beliebige Zuordnung der Files zu Albumsart und Genre (z.B. Albumsart: CD und Genre: Klassik)
Optional kann Albumsart und Genre beim automatischen Einlesen voreingestellt werden.

- Playlistenerstellung on the fly (beliebig viele Playlisten): Sound anhören und per Klick übernehmen.
Gibt es noch keine Playliste, wird eine neue zur Erstellung angeboten.
Dabei wird eine eindeutige Nummer angehängt, um doppelte Playlistennamen zu verhindern.

- Playlistenerstellung: gefilterte Hauptliste in eine neue Playliste kopieren (oder in eine vorhandene addieren).
Da die Hauptliste auch Playlisten anzeigen und filtern kann, sind maximale Auswahlmöglichkeiten vorhanden.

- Such- und Filtermöglichkeiten nach vielen Parametern innerhalb des Player.
Erganzend gibt es ein erweitertes Suchformular mit unendlich vielen Einstellmöglichkeiten für Fortgeschrittene.

- alphabetische Filterung der Daten in der Hauptliste (nach Album oder Titel oder Interpret).
Da die Hauptliste auch Playlisten anzeigen kann, sind auch diese dort alphabetisch entsprechend filterbar.

- Spaltenweise Auf- und Absortierung der angezeigten Datensätze in der Hauptliste.

- Abspielen der Sounds inkl. Längenanzeige und Restlaufzeitanzeige (Player = Windows Mediaplayer)
Win MediaPlayer Slider für "Springen" innerhalb des Sounds benutzbar

- Abspielen der Playlisten oder der Hauptliste im Loop oder Einzelmodus.
Leertaste kann optional als Stop/Play/Stop oder als Pause/Play/Pause eingestellt werden.
Jeder Playstatus wird zusätzlich angezeigt.

- Playlisten im Random-Mode abspielbar. Es werden dabei die Sounds rein zufällig in der Reihenfolge abgespielt.

- direkte Lautstärkensteuerung innerhalb der DB inkl. DIM, MUTE, NORMAL
optional abspeicherbare Lautstärkewerte für DIM und NORMAL

- Playliste per email verschicken. Die Sounds gehen automatisch in den Anhang einer email.

- Sounds aus Playliste oder Hauptliste in andere Ordner oder Pfade kopieren (exportieren).
Anhand der FileLinks werden die entsprechenden Files physisch kopiert
Bei doppelt vorkommenden FileLinks werden mehrfache Kopien eines Sounds mit Appendix erstellt.
Der Inhalt des Exportpfads kann zur Kontrolle angezeigt werden.

- mehr als 20 abspeicherbare generelle Optionen (z.B. Pfade, Löschabfragen mit/ohne Warnung etc.)

- anpassbare Optik über Skins (beliebig viele Skins speicherbar)

- File Info Anzeige des angeklickten Files

- Frontend/Backend mit automatischem Relink.

- manueller Relink zu anderen gleichartigen Backends möglich.

----------------------------------------------------------------------------------------------
INSTALLATIONS-HINWEISE
----------------------------------------------------------------------------------------------
Die Ordner 'Backends' und 'Skin_Backgrounds' dürfen nicht verändert oder verschoben werden.
Jedenfalls nicht, solange man den Player noch nicht verstanden hat.

Die Codes können beliebig verändert werden.
Eine Unterstützung dabei ist nicht vorgesehen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG
derArb

Marsu65 · 14. Mai 2018

Hallo Winni,

bevor die nächsten Links gepostet werden ein wenig Code:
Code:

Function DateiInfo(ByVal sPath As String, iAttribute) As Variant
'// Verweis auf die 'Microsoft Shell Controls And Automation' muss gesetzt sein (SHELL32.dll)
'Parameter: sPath = Kompletter Pfad inkl. Dateiname und iAttribute = AttributeEnum
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim objFolderItem As Shell32.FolderItem

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Left(sPath, InStrRev(sPath, "\") - 1))
Set objFolderItem = objFolder.ParseName(Mid(sPath, InStrRev(sPath, "\") + 1))

DateiInfo = objFolder.GetDetailsOf(objFolderItem, iAttribute)

Set objFolderItem = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Function

Sub Aufruf()
Dim sPath As String
Dim sDauer As String, sBitrate As String

sPath = "C:\DeinPfad\DeineDatei.mp3"
sBitrate = DateiInfo(sPath, 22)
sDauer = DateiInfo(sPath, 21)

Debug.Print sBitrate, sDauer 'Mach was mit der Bitrate und der Spieldauer
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

TommyK · 14. Mai 2018

Hallo,

komplette Bsp-DB hier:
MP3 Tags lesen und bearbeiten

Ohrkester · 15. Mai 2018

Servus,
beide Lösungen zeigen teilweise oder ganz falsche Ergebnisse, weil sie die falschen Werte auslesen.
Geprüft mit Windows 7 und Acc2007
Geprüft mit Windows 10 und Acc2016
Siehe beigefügtes Jpeg.
Ausgelesen werden muss 27 für Länge und 28 für Bitrate.
Das hat sich ab Windows 7 geändert.
In Windows XP war 21 die Länge.

daolix · 15. Mai 2018

Hallo
jup das ändert sich ab und dann. Um die Verfügbaren Dateinfos einer Datei zu ermitteln hier mal in Anlehnung an den Code von Marsu

Code:

Sub ListAvaDateiInfos(ByVal sPath As String)
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim objFolderItem As Shell32.FolderItem
Dim i As Long
Dim k As Long
Dim sAttr As String * 32
Dim sFnfo As String

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Left(sPath, InStrRev(sPath, "\") - 1))
Set objFolderItem = objFolder.ParseName(Mid(sPath, InStrRev(sPath, "\") + 1))

For i = 0 To 350
LSet sAttr = Format(i, "000\: ") & objFolder.GetDetailsOf(Nothing, i)
sFnfo = objFolder.GetDetailsOf(objFolderItem, i)
If Len(sFnfo) Then
k = k + 1
Debug.Print k, sAttr & ": " & sFnfo
End If
Next

Set objFolderItem = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aufruf ist dann
ListAvaDateiInfos "DeinLaufwerk\*biggrin.gif*einPath\MultimediaDatei.mp3"

die Ausgabe der verfügbaren Infos erfolg dann im Direktfenster

oder so nur localisiert

Code:

Function DateiInfo(ByVal sPath As String, siAttribute As String) As Variant
'// Verweis auf die 'Microsoft Shell Controls And Automation' muss gesetzt sein (SHELL32.dll)
'Parameter: sPath = Kompletter Pfad inkl. Dateiname und iAttribute = AttributeEnum
Dim objShell As Shell32.Shell
Dim objFolder As Shell32.Folder
Dim objFolderItem As Shell32.FolderItem
Dim i As Long

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Left(sPath, InStrRev(sPath, "\") - 1))
Set objFolderItem = objFolder.ParseName(Mid(sPath, InStrRev(sPath, "\") + 1))

For i = 0 To 350
If LCase(objFolder.GetDetailsOf(Nothing, i)) = LCase(siAttribute) Then
DateiInfo = objFolder.GetDetailsOf(objFolderItem, i)
Exit For
End If
Next

Set objFolderItem = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Function

Sub Test

dim sPath as string
sPath = "DeinLW:\DeinPath\DeineMp3.mp3"
debug.print "Bitrate: ", DateiInfo(sPath, "Bitrate")
debug.print "Länge: ", DateiInfo(sPath, "Länge")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65 · 15. Mai 2018

beide Lösungen zeigen teilweise oder ganz falsche Ergebnisse, ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nö, tun sie nicht. Jedenfalls nicht unter WinXP *tongue.gif*
Ich jedenfalls kann nicht erkennen, welches OS der Themenstarter einsetzt.

Dankbar bin ich über den Hinweis, dass die Spaltenindizes Win-versionsabhäng sind.

Ohrkester · 15. Mai 2018

Servus marsu65,

....Ich jedenfalls kann nicht erkennen, welches OS der Themenstarter einsetzt. ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Könnte man aus dem Titel des Forumsbeitrags evtl. herauslesen.
Kann man unter WinXP mit Access2016 noch arbeiten?
Möglicherweise ja, denn Access2007 klappt da auch noch, wie ich weiss.
Es dürfte aber sehr unwahrscheinlich sein, dass jemand Access 2016 mit WinXP betreibt.
Egal, denn die elegante Lösung ist die von daolix.
Die TommyK Lösung ist eben auch auf WinXP basierend und liefert daher
ab Windows 7 falsche Ergebnisse.

Da ein Musikplayer zumindest auch wav files, obigem entsprechend,
auslesen können sollte, muss dann dafür auch entsprechend mitgedacht werden. Auch hier gibt es entscheidende Veränderungen gegenüber den mp3 files.

Und generell:
mp3 ist eindeutig im Nachteil gegenüber dem PCM-Format der wav files
bezüglich der Tonqualität. Das gilt auch noch im Jahr 2018.

Marsu65 · 15. Mai 2018

\@Ohrkester
Besser Fakten als Wahrscheinlichkeiten.
Acc2016 erfordert lt. MS mindestens Win7.
https://www.microsoft.com/de-de/stor...t:techspecstab

Bei mehrerern mp3s (Musik-Datenbank) wiederholt eine Schleife aufzurufen,
halte ich nicht für elegant. Die gültige Column-ID für die GetDetailsOf-Methode
kann einmalig ermittelt und z.B. in einer statischen Variablen gehalten werden.

Einen Zusammenhang zwischen deinen Ausführungen über 'Musikplayer' sowie 'mp3 vs. wav' und
der präzisen Fragestellung nach Bitrate und Dauer von mp3-Files mit relativ simplen Code,
kann ich nicht erkennen.

PS/OT: Wenn du zu den ca.

Ohrkester · 17. Mai 2018

Servus Marsu65,

Besser Fakten als Wahrscheinlichkeiten.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dazu kein zusätzlicher Kommentar.
Jeder Kann aus bisherigem seine Meinung selber bilden.

Bei der Qualitätsbeurteilung von Programmierungstechniken halte ich mich raus.
Wenn allerdings das Ergebnis stimmt, ist mir der langsamere Weg zum Ergebnis wichtiger, als ein Code, der falsche Wege und Ergebnisse zeigt, wie sie ja auch von Dir vorgezeigt wurden.

zu Deinem OT:

PS/OT: Wenn du zu den ca.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

evar46 · 18. Mai 2018

Hallo,
ich hätte eine Frage zur sich verändernden Anzeige der Spielzeit eines laufenden
Media-files in einem ungebundenen Textfeld.
Soll ich da besser hier weiter fragen oder besser einen neuen thread eröffnen?

vielen Dank schon mal

Ohrkester · 18. Mai 2018

Servus evar46,
Besser wohl in einem neuen thread.
Aber hier kannst Du einen Link zu deinem neuen thread hinterlassen.

evar46 · 18. Mai 2018

Hallo,
hier gehts weiter

http://www.ms-office-forum.net/forum...12#post1870812

Office: (Office 2016) Mp3 auslesen

Mp3 auslesen

Mp3 auslesen

Mp3 auslesen

Mp3 auslesen

Mp3 auslesen

Mp3 auslesen - Similar Threads - Mp3 auslesen

Konvertieren eines "Cuesheet-Makers" von LibreOffice zu Excel möglich?

urheberrechtlich geschützte mp3-Dateien in MS Teams

Länge von mp3-Dateien auslesen

MP3-Dateien auslesen (Interpret, etc.) und schreiben

mp3-Dateien in Audacity bearbeiten

MP3 Dateieigenschaften (TAGs) auslesen

Probleme bei der Endloswiedergabe von MP3-Hintergrundmusik in PowerPoint 2016