Thema Datum  Von Nutzer Rating
Antwort
Rot Länge eines ID3v2-Tags änder und zurückschreibe
14.10.2010 14:53:37 gnagflow
NotSolved
19.10.2010 18:08:55 Holger
NotSolved
20.10.2010 08:31:35 gnagflow
NotSolved

Ansicht des Beitrags:
Von:
gnagflow		 Datum:
14.10.2010 14:53:37		 Views:
1681		 Rating:
     
Antwort:
  Ja
Thema:
Länge eines ID3v2-Tags änder und zurückschreibe
Mit diesem VBA-Code lese ich meine Musikdateien ein:

' nächste Datei einlesen
Open MP3FileName For Binary As #OpenZeileNeueTitel
MP3FileContent = Space$(LOF(OpenZeileNeueTitel))
Get #OpenZeileNeueTitel, , MP3FileContent

' Version bestimmen
ID3Version = Str$(Asc(Mid$(MP3FileContent, 4, 1))) & "." & Trim$(Str$(Asc(Mid$(MP3FileContent, 5, 1))))

' ID3-Tag posotionieren
ID3Position = InStr(MP3FileContent, "ID3")

' ID3Tag-Länge in VBA-Format konvertieren
ID3Length = &H200000 ID3Length = &H200000 * Asc(Mid$(MP3FileContent, ID3Position + 6, 1)) _
+ &H4000 * Asc(Mid$(MP3FileContent, ID3Position + 7, 1)) _
+ &H80 * Asc(Mid$(MP3FileContent, ID3Position + 8, 1)) _
+ Asc(Mid$(MP3FileContent, ID3Position + 9, 1))

' Länge ändern (z. B.: + 10)
ID3Length = ID3Length + 10

' neue Länge in ID3-Format konvertieren
??????

... und da fehlen mir die nötigen VBA-Kenntnisse. Habe schon einige Ziet im Internet recherchiert aber leider keine Lösung gefunden.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Länge eines ID3v2-Tags änder und zurückschreibe
14.10.2010 14:53:37 gnagflow
NotSolved
19.10.2010 18:08:55 Holger
NotSolved
20.10.2010 08:31:35 gnagflow
NotSolved