IPB

Welcome Guest ( Log In | Register )

> Hinweise!

Bitte vor dem erstellen eines Beitrag unbedingt die Häufig gestellten Fragen lesen und die Suche verwenden.

Bitte lesen Sie auch die allgemeinen Nutzungsbestimmungen dieses Forums.

 
Reply to this topicStart new topic
> welches Format beim Schreiben verwenden
wurmeli
post Aug 26 2017, 10:28
Post #1


Member


Group: Full Members
Posts: 12
Joined: 28-October 10
Member No.: 13139
Mp3tag Version: v2.84



Ich habe vor längerer Zeit ein Excelmakro geschrieben in dem ich meine Musikdateien einlese und pro Titel die Tags in eine Exceltabelle schreibe. Gestern habe ich diese Prozedur wieder einmal laufen lassen und festgestellt dass bei einigen neu hinzugefügten Titeln die Tags(TIT2, TALB, ...) zwischen den einzelnen Buchstaben Sonder/oder Leerzeichen sind. Das schaut dann z. B. so aus: B e a t l e s. In welchem Format muss ich die Datei in MP3TAG schreiben damit diese Zeichen verschwinden?
Go to the top of the page
 
+Quote Post
MP3Freak_Peter
post Aug 26 2017, 11:40
Post #2


Member


Group: Full Members
Posts: 105
Joined: 4-August 10
Member No.: 12719



QUOTE (wurmeli @ Aug 26 2017, 11:28) *
Ich habe vor längerer Zeit ein Excelmakro geschrieben in dem ich meine Musikdateien einlese und pro Titel die Tags in eine Exceltabelle schreibe. Gestern habe ich diese Prozedur wieder einmal laufen lassen und festgestellt dass bei einigen neu hinzugefügten Titeln die Tags(TIT2, TALB, ...) zwischen den einzelnen Buchstaben Sonder/oder Leerzeichen sind. Das schaut dann z. B. so aus: B e a t l e s. In welchem Format muss ich die Datei in MP3TAG schreiben damit diese Zeichen verschwinden?

"B e a t l e s" passiert wenn du utf16 als ansi ließt (weil es für Zeichen < 7F immer <Zeichen> 00h <Zeichen> 00h .... abgelgt ist).
Das excel utf16 lesen kann, sollte dein exportmarkro sollte die datei aber mit der UTF16BOM beginnen, dann musst du aber auch alles in UTF16 ausgeben.

Poste doch mal dein Makro, dann kann dir hier sicher jemand helfen.

Btw: gibt dir MP3Tag das Encoding raus?
Go to the top of the page
 
+Quote Post
wurmeli
post Aug 26 2017, 12:26
Post #3


Member


Group: Full Members
Posts: 12
Joined: 28-October 10
Member No.: 13139
Mp3tag Version: v2.84



QUOTE (MP3Freak_Peter @ Aug 26 2017, 12:40) *
"B e a t l e s" passiert wenn du utf16 als ansi ließt (weil es für Zeichen < 7F immer <Zeichen> 00h <Zeichen> 00h .... abgelgt ist).
Das excel utf16 lesen kann, sollte dein exportmarkro sollte die datei aber mit der UTF16BOM beginnen, dann musst du aber auch alles in UTF16 ausgeben.

Poste doch mal dein Makro, dann kann dir hier sicher jemand helfen.

Btw: gibt dir MP3Tag das Encoding raus?



Danke für die Antwort, so schaut die eingelesen mp3-Datei in VisualBasic aus. Zuerst eine "gute" und dann eine mit Sonderzeichen dazwischen:

Edit: Removed binary data from post, please use screenshots for such data

Teil vom Makrocode:

.
.
.
Worksheets(1).Select '-->Liste der mp3-Dateien
LastFile = Cells(Rows.Count, 1).End(xlUp).Row

For FoundFiles = 2 To LastFile
Filename = Worksheets(1).Range("A" & FoundFiles) & Worksheets(1).Range("B" & FoundFiles)
OpenZeileMusik = FreeFile

Open Filename For Binary As #OpenZeileMusik
FileContent = String(1024, "*")
Get #OpenZeileMusik, , FileContent
Close #OpenZeileMusik

Debug.Print FileContent
ID3Position = 11
ID3Tag = Mid(FileContent, ID3Position)

While ID3Position < Len(FileContent)
ID3Frame = Left(ID3Tag, 4)
ID3Tag = Mid(ID3Tag, 12)

ID3Länge = Mid(FileContent, ID3Position + 4, 4)
ID3FrameLänge = Asc(Mid(ID3Länge, 1, 1)) * &H200000
ID3FrameLänge = ID3FrameLänge + Asc(Mid(ID3Länge, 2, 1)) * &H4000
ID3FrameLänge = ID3FrameLänge + Asc(Mid(ID3Länge, 3, 1)) * &H80
ID3FrameLänge = ID3FrameLänge + Asc(Mid(ID3Länge, 4, 1))

Worksheets(2).Select
Select Case ID3Frame
Case Is = "TIT2" 'Titel
Range("A" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Is = "TPE1" 'Interpret
Range("B" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Is = "TALB" 'Album
Range("C" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Is = "TCON" 'Genre
Range("D" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Is = "TCOM" 'Komponist
Range("E" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Is = "TSOT" 'Titelsort
Range("F" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Is = "TSOA" 'Albumsort
Range("G" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Is = "TCMP" 'Compilation
Range("H" & FoundFiles) = Mid(FileContent, ID3Position + 11, ID3FrameLänge - 1)

Case Else
If ID3Frame Like "[A-Z]" Then
Range("I" & FoundFiles) = ID3Frame
End If
GoTo Weiter
End Select

ID3Position = ID3Position + 11 + ID3FrameLänge - 1
ID3Tag = Mid(ID3Tag, ID3FrameLänge)
Wend

Weiter:
Next FoundFiles
.
.
.
Bin für jeden hilfreichen Hinweis dankbar! Danke im voraus!!!

This post has been edited by Florian: Aug 26 2017, 15:47
Reason for edit: Removed binary data from post, please use screenshots for such data
Go to the top of the page
 
+Quote Post
wurmeli
post Aug 26 2017, 12:50
Post #4


Member


Group: Full Members
Posts: 12
Joined: 28-October 10
Member No.: 13139
Mp3tag Version: v2.84



zur Ergänzung meine Mp3Tag-Optionen: Lesen: id3v2, Schreiben: id3v2 id3v2.3 UFT-16
Go to the top of the page
 
+Quote Post
DetlevD
post Aug 26 2017, 13:38
Post #5


Member


Group: Full Members
Posts: 6718
Joined: 26-May 06
From: Wuppertal, Germany, Planet Earth
Member No.: 3194
Mp3tag Version: 2.85



QUOTE (wurmeli @ Aug 26 2017, 11:28) *
... bei einigen neu hinzugefügten Titeln die Tags(TIT2, TALB, ...) zwischen den einzelnen Buchstaben Sonder/oder Leerzeichen sind. ...

Wenn noch nicht vorhanden, dann im Dialog "Mp3tag/Ansicht/Spalten" bitte zwei Spalten einrichten:

Name: TagRead (TagTypes)
Wert: %_tag_read%[' ('%_tag%')']

Name: Char Enc
Wert: %_id3v2_character_encoding%

Dann für eine 'alte' Datei und für eine 'neue' Datei die in Mp3tag angezeigten Werte hier zeigen.

DD.20170826.1438.CEST



--------------------
* Beyond that, don't ask, when you don't know what to do with the answer. *
♥ home is where the heart is ♥
Go to the top of the page
 
+Quote Post
wurmeli
post Aug 26 2017, 13:56
Post #6


Member


Group: Full Members
Posts: 12
Joined: 28-October 10
Member No.: 13139
Mp3tag Version: v2.84



DANKE, war das gemeint?
Attached thumbnail(s)
Attached Image
 
Go to the top of the page
 
+Quote Post
DetlevD
post Aug 26 2017, 14:24
Post #7


Member


Group: Full Members
Posts: 6718
Joined: 26-May 06
From: Wuppertal, Germany, Planet Earth
Member No.: 3194
Mp3tag Version: 2.85



TagRead (TagTypes)              Char Enc
ID3v2.3 (ID3vl ID3v2.3 APEv2)   UTF-16
ID3v2.4 (ID3vl ID3v2.4 APEv2)   UTF-8


Kannst du damit jetzt herausfinden, welche Datei mit welchem Tagtyp für dein Programm funktioniert?

DD.20170826.1524.CEST



--------------------
* Beyond that, don't ask, when you don't know what to do with the answer. *
♥ home is where the heart is ♥
Go to the top of the page
 
+Quote Post
wurmeli
post Aug 26 2017, 14:30
Post #8


Member


Group: Full Members
Posts: 12
Joined: 28-October 10
Member No.: 13139
Mp3tag Version: v2.84



Ist mir gerade aufgefallen dass ich zwei verschiedene Char Encodes habe. Ist mein Problem gelöst wenn ich alles mit UTF-8 neu ausgebe? Danke für die Hilfe!
Go to the top of the page
 
+Quote Post
DetlevD
post Aug 26 2017, 14:36
Post #9


Member


Group: Full Members
Posts: 6718
Joined: 26-May 06
From: Wuppertal, Germany, Planet Earth
Member No.: 3194
Mp3tag Version: 2.85



QUOTE (wurmeli @ Aug 26 2017, 15:30) *
... Ist mein Problem gelöst wenn ich alles mit UTF-8 neu ausgebe? ...

Das kannst du ausprobieren ... mit einer Testdatei.
Einstellung ändern für das Tag-Schreiben in "Mp3tag/Extras/Optionen/Tags/Mpeg/Schreiben".

DD.20170826.1536.CEST


--------------------
* Beyond that, don't ask, when you don't know what to do with the answer. *
♥ home is where the heart is ♥
Go to the top of the page
 
+Quote Post
wurmeli
post Aug 26 2017, 15:40
Post #10


Member


Group: Full Members
Posts: 12
Joined: 28-October 10
Member No.: 13139
Mp3tag Version: v2.84



Vielen Dank an alle beteiligten Helfer für den tollen Support! Mit den Einstellungen "ID3v2.4 (ID3vl ID3v2.4 APEv2) UTF-8" kann ich die Dateien wieder fehlerfrei in meiner EXCEL-Prozedur verarbeiten.

Muss ich den Eintrag als "gelöst" kennzeichnen? Und wenn JA WO?
Go to the top of the page
 
+Quote Post
ohrenkino
post Aug 26 2017, 18:52
Post #11


Member


Group: Full Members
Posts: 9225
Joined: 9-December 09
From: Norddeutschland / Northern Germany
Member No.: 11458
Mp3tag Version: 2.85



ZITAT(wurmeli @ Aug 26 2017, 13:50) *
zur Ergänzung meine Mp3Tag-Optionen: Lesen: id3v2, Schreiben: id3v2 id3v2.3 UFT-16

Was mich hier wundert und im Vergleich zu den später gezeigten Tag-Daten:
Du behandelst nur ID3v2.3 Tags, hast aber noch APE Tags in den Dateien. Die APE Tags scheinen nie verändert zu werden. Also sind die vermutlich mit irgendwelchen, aber nicht mehr den aktuellen Daten versehen.

Noch ein Hinweis: der Windows Explorer und WMP kommen (je nach OS Version) nicht mit V2.4 Tags klar. Von daher ist das Schreiben von V2.4 Tags vermutlich suboptimal.


--------------------
42 - wie war die Frage / what was the question / quelle était la question
Go to the top of the page
 
+Quote Post
wurmeli
post Aug 28 2017, 12:17
Post #12


Member


Group: Full Members
Posts: 12
Joined: 28-October 10
Member No.: 13139
Mp3tag Version: v2.84



ZITAT(ohrenkino @ Aug 26 2017, 19:52) *
Was mich hier wundert und im Vergleich zu den später gezeigten Tag-Daten:
Du behandelst nur ID3v2.3 Tags, hast aber noch APE Tags in den Dateien. Die APE Tags scheinen nie verändert zu werden. Also sind die vermutlich mit irgendwelchen, aber nicht mehr den aktuellen Daten versehen.

Noch ein Hinweis: der Windows Explorer und WMP kommen (je nach OS Version) nicht mit V2.4 Tags klar. Von daher ist das Schreiben von V2.4 Tags vermutlich suboptimal.


Ich habe erst einmal alle Tags außer ID3v2 gelöscht und dann alles mit ID3v2.4 UTF-8 überschrieben und mein Excelmakro funktioniert einwandfrei.

Ich bin zu sehr Laie um ins Detail zu gehen, bin froh dass es funkt - danke für alle Hinweise!
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:

 



RSS Lo-Fi Version Time is now: 19th November 2017 - 14:54