BR5 Dateien in MP3

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    BR5 Dateien in MP3

    Hey BR5 sind Musikdateien eines BMW Navis.

    Wenn man diese wieder zurückwandeln möchte in MP3 geht das mit folgendem Excel Makro

    VB.NET-Quellcode

    1. Option Explicit
    2. Sub sBMW()
    3. Dim strQuellPath As String
    4. Dim files() As String
    5. Dim i As Long
    6. Dim lngMax As Long
    7. ReDim files(0)
    8. strQuellPath = Cells(1, 1)
    9. If strQuellPath = "" Then
    10. MsgBox "Bitte Stammverzeichnis, z.B. D:\BMW in A1 eintragen!"
    11. Exit Sub
    12. End If
    13. lngMax = Cells(Rows.Count, 1).End(xlUp).Row
    14. If lngMax > 1 Then
    15. Range(Cells(2, 1), Cells(lngMax, 2)).ClearContents
    16. Range(Cells(2, 1), Cells(lngMax, 2)).ClearFormats
    17. End If
    18. Call sGetFiles(strQuellPath, files())
    19. For i = 1 To UBound(files)
    20. Cells(i + 1, 1) = files(i)
    21. Next i
    22. ActiveSheet.Columns(1).AutoFit
    23. For i = 1 To UBound(files)
    24. Cells(i + 1, 1).Interior.Color = vbYellow
    25. Call sBMW2MP3(files(i))
    26. DoEvents
    27. Next i
    28. End Sub
    29. Sub sGetFiles(ByVal strPath As String, files() As String)
    30. Dim i As Long
    31. Dim strFileName As String
    32. Dim Directories() As String
    33. ReDim Directories(0)
    34. If Left(strPath, 1) <> "\" Then strPath = strPath & "\"
    35. strFileName = Dir(strPath, vbDirectory)
    36. Do While strFileName <> ""
    37. If GetAttr(strPath & strFileName) And vbDirectory Then
    38. If strFileName <> "." And strFileName <> ".." Then
    39. ReDim Preserve Directories(UBound(Directories) + 1)
    40. Directories(UBound(Directories)) = strPath & strFileName
    41. End If
    42. ElseIf InStr(UCase(strFileName), ".BR") > 0 Then
    43. ReDim Preserve files(UBound(files) + 1)
    44. files(UBound(files)) = strPath & strFileName
    45. End If
    46. strFileName = Dir
    47. Loop
    48. For i = 1 To UBound(Directories)
    49. Call sGetFiles(Directories(i), files())
    50. Next i
    51. End Sub
    53. Sub sBMW2MP3(strQ)
    54. Dim b As Byte
    55. Dim strZ As String
    56. Dim qKanal As Byte
    57. Dim zKanal As Byte
    58. qKanal = FreeFile()
    59. zKanal = FreeFile() + 1
    60. strZ = Mid(strQ, 1, Len(strQ) - 3)
    61. Select Case UCase(Right(strQ, 3))
    62. Case "BR3"
    63. strZ = strZ & "MP4"
    64. Case "BR4"
    65. strZ = strZ & "MP3"
    66. Case "BR5"
    67. strZ = strZ & "MP3"
    68. End Select
    69. If Dir(strZ) = "" Then
    70. Open strQ For Binary Lock Read As #qKanal Len = 32767
    71. Open strZ For Binary Lock Write As #zKanal Len = 32767
    72. Do
    73. Get #qKanal, , b
    74. b = 255 - b
    75. If EOF(qKanal) Then Exit Do
    76. Put #zKanal, , b
    77. Loop
    78. Close (qKanal)
    79. Close (zKanal)
    80. End If
    81. End Sub


    lässt sich das ganze auch in vb.net realisieren?

    Du meinst VBA, nicht Excel.

    Kaze91 schrieb:

    in vb.net realisieren?
    Warum nicht. Hast Du mal eine BR5-Datei bei der Hand?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Die Dateien werden ja lediglich byteweise invertiert, das müsste es sein:
    Konverter

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    4. Me.TextBox1.Text = "C:\Temp\sonst\xxx"
    5. End Sub
    7. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    8. sBMW()
    9. End Sub
    11. Sub sBMW()
    12. Dim strQuellPath As String
    13. Dim files As New List(Of IO.FileInfo)
    14. strQuellPath = TextBox1.Text ' Cells(1, 1)
    15. If strQuellPath = "" Then
    16. MsgBox("Bitte Stammverzeichnis, z.B. D:\BMW in A1 eintragen!")
    17. Exit Sub
    18. End If
    20. files = sGetFiles(strQuellPath)
    21. ListBox1.Items.Clear()
    22. ListBox1.Items.AddRange(files.ToArray)
    24. For i = 0 To files.Count - 1
    25. If files(i).Exists Then
    26. sBMW2MP3(files(i))
    27. End If
    28. Next i
    29. End Sub
    31. Private Function sGetFiles(path As String) As List(Of IO.FileInfo)
    32. Dim lfi As New List(Of IO.FileInfo)
    33. lfi.AddRange(New IO.DirectoryInfo(path).GetFiles("*.br?"))
    34. Return lfi
    35. End Function
    37. Sub sBMW2MP3(strQ As IO.FileInfo)
    38. Dim b As Byte
    39. Dim strZ As String
    41. Select Case strQ.Extension.ToUpper 'UCase(Right(strQ, 3))
    42. Case ".BR3"
    43. strZ = ".MP4"
    44. Case ".BR4"
    45. strZ = ".MP3"
    46. Case ".BR5"
    47. strZ = ".MP3"
    48. Case Else
    49. Return
    50. End Select
    52. Using fsR As New IO.FileStream(strQ.FullName, IO.FileMode.Open)
    53. Using br As New IO.BinaryReader(fsR)
    55. Using fsW As New IO.FileStream(strQ.FullName & strZ, IO.FileMode.OpenOrCreate)
    56. Using bw As New IO.BinaryWriter(fsW)
    58. For i As Long = 0 To fsR.Length - 1
    59. b = br.ReadByte
    60. b = Not b
    61. bw.Write(b)
    62. Next
    64. End Using
    65. End Using
    67. End Using
    68. End Using
    69. End Sub
    71. End Class
    isses aber wohl nicht:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Kaze91 schrieb:

    WAV
    Nein.
    Ieine Header-Info stimmt wohl nicht:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Kaze91 schrieb:

    hast du noch eine idee zum fixxen?
    Mach mal einen Binär-Vergleich je derselben Output-Datei.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Also ich habs mal als WMA gespeichert , weil das eigentliche vba makro macht das auch, vlc spielt die datei auch ab ohne zu mekkern, anderen mediaplayer habe ich hier auf der arbeit leider nicht.

    hab die Dateien dann mal im hex verglichen und sie sind gleich.


    VG

    Als WMA läuft es sofort. :D
    -----

    Kaze91 schrieb:

    Also ich habs mal als WMA gespeichert , weil das eigentliche vba makro macht das auch
    Woran Du siehst und was sich immer wieder bestätigt:
    Die meisten Fehler werden bei der Spezifikation gemacht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende