ID3v2-Tag kopieren

    • VB.NET

      ID3v2-Tag kopieren

      Mit dieser Sub kann man einen ID3v2-Tag von der source-MP3 in die dest-MP3 kopieren:

      VB.NET-Quellcode

      1. Private Sub CopyID3Tag(ByVal source As String, ByVal dest As String)
      2. Dim bytes() As Byte, orgbytes() As Byte
      3. bytes = IO.File.ReadAllBytes(dest)
      4. orgbytes = IO.File.ReadAllBytes(source)
      6. Dim l As Long, orgl As Long
      7. l = Math.Pow(128, 3) * bytes(6) + Math.Pow(128, 2) * bytes(7) + 128 * bytes(8) + bytes(9)
      8. orgl = Math.Pow(128, 3) * orgbytes(6) + Math.Pow(128, 2) * orgbytes(7) + 128 * orgbytes(8) + orgbytes(9)
      10. Using bw As New IO.BinaryWriter(New IO.FileStream(dest, IO.FileMode.Open))
      11. Dim b(orgl + 10) As Byte
      12. Array.ConstrainedCopy(orgbytes, 0, b, 0, b.Length)
      13. bw.Write(b)
      14. Dim bb(bytes.Length - l - 11) As Byte
      15. Array.ConstrainedCopy(bytes, l + 10, bb, 0, bb.Length)
      16. bw.Write(bb)
      17. bw.Close()
      18. End Using
      19. End Sub

    Facebook
    Telefonspende