Geschwindigkeitsproblem bei ID3-Erkennung

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Geschwindigkeitsproblem bei ID3-Erkennung

    Hallo zusammen,

    ich habe ein kleines Problem mit einer Software die ich aktuell erstelle..
    Ich habe zwar in der Suche geschaut, aber nichts gefunden, also bitte den Kopf nicht abreißen :D

    Ich baue aktuell einen kleinen PC für mein Auto und entwickle dafür gerade die Software.
    Nun hänge ich grade bei der Multimedia-Sektion ...

    Das Programm soll alle MP3 Dateien aus einem vorgegebenen Ordner auslesen und in die Mediathek (vorerst eine kleine Tabelle) einreihen.

    Den Code hierzu habe ich zwar, nur dauert es Ewigkeiten ...
    Selbst das erkennen von 1 Album á 60 Tracks dauert eine gute halbe Minute, das ist mir zu viel.

    VB.NET-Quellcode

    1. 'Form1
    2. '[...]
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Form2.Show()
    5. Form2.GetMusic()
    6. End Sub
    7. '[...]
    9. 'Form2
    10. Imports System.IO
    11. Imports System.Text
    12. Imports System.String
    14. Public Class Form2
    15. Dim File, Files() As FileInfo
    16. Dim Mp3File As Object = CreateObject("Scripting.FileSystemObject")
    17. Dim searchtype As String = "*.mp3"
    18. Dim nr As Integer = 0
    19. Dim c As Integer = 0
    20. Dim sBuffer As String
    21. Dim Str As String
    22. Dim MyString(127) As String
    23. Dim alltitles(0 To 50000) As String
    24. Dim allartists(0 To 50000) As String
    25. Dim allalbums(0 To 50000) As String
    26. Dim allalbumyears(0 To 50000) As String
    27. Dim title, artist, album, albumyear, comment, genre As String
    28. Private Property Folders As ObjectModel.ReadOnlyCollection(Of String)
    29. Dim FSO As Object
    30. Dim nrs As String = ""
    32. Public Sub GetMusic()
    33. BackgroundWorker1.RunWorkerAsync()
    34. End Sub
    36. Public Sub GetFiles(ByVal dir As String, ByVal type As String)
    37. Dim found As FileInfo
    38. Dim Path As New DirectoryInfo(dir)
    39. ' Die Namen aller Dateien anzeigen.
    40. Try
    41. Files = Path.GetFiles(type)
    42. Catch ex As Exception
    43. Form1.RichTextBox1.Text &= "Exception aufgetreten: " & ex.Message & vbNewLine
    44. End Try
    45. For Each File In Files
    46. FSO = CreateObject("Scripting.FileSyste" & "mObject")
    47. Mp3File = FSO.OpenTextFile(File.FullName, 1, False, 0)
    48. sBuffer = Mp3File.ReadAll
    49. For i = 0 To 124
    50. MyString(i) = Asc(Microsoft.VisualBasic.Right(sBuffer, i + 1))
    51. Next
    52. Dim charx As String = ""
    53. title = Nothing
    54. artist = Nothing
    55. album = Nothing
    56. albumyear = Nothing
    57. comment = Nothing
    58. genre = Nothing
    59. For x = 0 To 124
    60. c = 124 - x
    61. If MyString(c) = 0 Then
    62. charx = Nothing
    63. Else
    64. charx = Chr(MyString(c))
    65. End If
    66. 'nrs &= c & " - " & charx & vbNewLine
    67. If c > 94 And c <= 127 Then title &= charx
    68. If c > 64 And c <= 94 Then artist &= charx
    69. If c > 34 And c <= 64 Then album &= charx
    70. If c > 30 And c <= 34 Then albumyear &= charx
    71. If c > 0 And c <= 30 Then comment &= charx
    72. If c = 0 Then genre = charx
    73. Next
    74. alltitles(nr) = title
    75. allartists(nr) = artist
    76. allalbums(nr) = album
    77. allalbumyears(nr) = albumyear
    78. nr += 1
    79. FSO = Nothing
    80. Next
    81. End Sub
    83. Public Sub GetSubfolders(ByVal homedir As String)
    84. GetFiles(homedir, searchtype)
    85. Folders = My.Computer.FileSystem.GetDirectories(homedir)
    86. For Each folder As String In Folders
    87. If Not Folders.Equals(Nothing) Then
    88. GetSubfolders(folder)
    89. End If
    90. GetFiles(folder, searchtype)
    91. Next
    92. End Sub
    94. Private Sub bgwDoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    95. Dim startdir As String = "I:\Muke\Alben\Best of Hardstyle 2011!"
    96. GetSubfolders(startdir)
    97. End Sub
    99. Private Sub bgwCompleted() Handles BackgroundWorker1.RunWorkerCompleted
    100. MsgBox("Fertig, " & nr & " Einträge gefunden!")
    101. For i As Integer = 0 To nr - 1
    102. DataGridView1.Rows.Add(i, alltitles(i), allartists(i), allalbumyears(i))
    103. Next
    104. End Sub
    105. End Class


    Wie gesagt, es funktioniert, ist mir aber viel zu langsam.
    Kann mir jemand helfen dieses Problem zu beseitigen?

    Danke schonmal,

    Gruß, DJDeagle

    FSO = CreateObject("Scripting.FileSyste" & "mObject")

    Das ist von 19 Hundert vorm Krieg....
    Verwende den StreamReader...
    und lese die 125 Bytes aufeinmal aus, das Array kannst du mit Reverse ja einfach umkehren...
    Und für die zweite Schleife nimmst du einen StringBuilder, dann haste schonmal einiges optimiert, wenn da auch noch mehr gehen sollte...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende