Anwendung ist sehr viel langsamer bei Fortschrittsanzeige

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 44 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Anwendung ist sehr viel langsamer bei Fortschrittsanzeige

    Hallo!

    Habe ein Programm (VB2012) geschrieben, bei dem ich einen Startordner und eine Suchmaske angebe. Nun wird der Ordner (inklusive Unterverzeichnisse) der Suchmaske entsprechend durchsucht und die gefundenen Dateien aufgelistet.

    Das Programm arbeitet zügig. Wenn ich nun aber eine Fortschrittsanzeige egal ob mit Progressbar ( Value +1 bei jeder Datei) oder ein Label, welches den aktuellen Dateinamen anzeigt, wird die Performance deutlich schlechter.

    Gibt es eine Möglichkeit irgendwie eine Fortschrittsanzeige ohne Geschwindigkeitsverlust hinzubekommen?

    Danke

    Also habe mal einen Timer geschaltet. Ich Durchsuche mein Laufwerk D:\
    Darauf sind knapp 4300 Dateien

    Ohne Label- Anzeige dauert der Vorgang weniger als 1 Sekunde
    Mit Label - Anzeige dauert der Vorgang länger als 3 Sekunden

    Habe jetzt mal nur eine Label - Anzeige der aktuelen Datei gemacht
    Hier der Code des Suchvorgangs: Einzige Änderung ohne Fortschrittsanzeige ist das "Label4.Text = Datei", dann wegfällt

    Quellcode

    1. Private Function durchsuchen(pfad As String) As Boolean
    2. If Not System.IO.Directory.Exists(pfad) Then
    3. MessageBox.Show("Der angegebene Pfad existiert nicht.", "Fehler", _
    4. MessageBoxButtons.OK, MessageBoxIcon.Error)
    5. Return False
    6. End If
    9. Dim attrib As System.IO.FileAttributes
    10. ' Gefundene Dateien zur Liste hinzufügen
    11. Select Case CBx_VersteckteDateien.Checked
    12. Case "True"
    13. For Each Datei As String In My.Computer.FileSystem.GetFiles(pfad)
    14. Label4.Text = Datei
    15. My.Application.DoEvents()
    16. If Ex_Filter.Contains(System.IO.Path.GetExtension(Datei).ToLower) Or _
    17. Ex_Filter.Contains(".*") Then
    19. If System.IO.Path.GetFileNameWithoutExtension(Datei).ToLower.Contains(TBx_Suchbegriff.Text.ToLower) Or _
    20. TBx_Suchbegriff.Text = ("*") Then
    21. Dateiliste.Add(Datei)
    22. End If
    24. End If
    25. Next
    26. Case "False"
    27. For Each Datei As String In My.Computer.FileSystem.GetFiles(pfad)
    28. Label4.Text = Datei
    29. My.Application.DoEvents()
    30. ' Versteckte Dateien nicht anzeigen
    31. attrib = System.IO.File.GetAttributes(Datei)
    33. If ((attrib And IO.FileAttributes.Hidden) <> IO.FileAttributes.Hidden) Then
    35. If Ex_Filter.Contains(System.IO.Path.GetExtension(Datei).ToLower) Or _
    36. Ex_Filter.Contains(".*") Then
    37. If System.IO.Path.GetFileNameWithoutExtension(Datei).ToLower.Contains(TBx_Suchbegriff.Text.ToLower) Or _
    38. TBx_Suchbegriff.Text = ("*") Then
    39. Dateiliste.Add(Datei)
    41. End If
    43. End If
    44. End If
    45. Next
    46. End Select
    48. ' Unterordner durchsuchen
    49. If CBx_Unterordner.Checked = True Then
    50. Dim Aufl_Ordner = System.IO.Directory.GetDirectories(pfad)
    51. Select Case CBx_Verst_ordner.Checked
    52. Case "True"
    54. For Each Unterordner As String In Aufl_Ordner
    55. Try
    56. durchsuchen(Unterordner)
    57. Catch ex As Exception
    58. Fehlerbericht.AppendLine(Unterordner & " - " & ex.Message)
    59. End Try
    60. Next
    61. Case "False"
    62. For Each Unterordner As String In Aufl_Ordner
    63. attrib = System.IO.File.GetAttributes(Unterordner)
    64. If ((attrib And IO.FileAttributes.Hidden) <> IO.FileAttributes.Hidden) Then
    65. Try
    66. durchsuchen(Unterordner)
    67. Catch ex As Exception
    68. Fehlerbericht.AppendLine(Unterordner & " - " & ex.Message)
    69. End Try
    70. End If
    71. Next
    72. End Select
    74. End If
    76. Return Nothing
    77. End Function

    ja natürlich dauert es länger wenn du 4300 mal den text ändern willst von label4...

    mom nein... du durchsuchst ja alle dateien also sind das viel mehr als 4300 :D


    VB.NET-Quellcode

    1. Select Case CBx_VersteckteDateien.Checked
    2. Case "True"
    3. For Each Datei As String In My.Computer.FileSystem.GetFiles(pfad)
    5. My.Application.DoEvents()
    6. If Ex_Filter.Contains(System.IO.Path.GetExtension(Datei).ToLower) Or _
    7. Ex_Filter.Contains(".*") Then
    9. If System.IO.Path.GetFileNameWithoutExtension(Datei).ToLower.Contains(TBx_Suchbegriff.Text.ToLower) Or _
    10. TBx_Suchbegriff.Text = ("*") Then
    11. Dateiliste.Add(Datei)
    12. Label4.Text = Datei
    13. End If
    15. End If
    16. Next


    versuch das mal

    Humax schrieb:

    Label4.Text = Datei
    Jo, wenn da 2000 Ordner durchsucht werden, und 30000 Dateien werden gefunden, dann wird das Label ja 30000 mal getext-ändert, und das ist halt nicht sone ganz schnelle Operation.

    Allerdings kann auch niemand so schnell gucken, wie das arme Label da herumgehopst wird.

    Imo würde reichen, das Label nur alle 0,3 Sekunden zu ändern - dann kann immer noch keiner nix lesen - aber es wackelt fleißig.

    ErfinderDesRades schrieb:

    nur alle 0,3 Sekunden

    @Humax oder alle 1000 Dateien.
    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!

    Ich würde das hier machen: Du machst anstatt fortschrittsausgabe eine globale Variable in der du den Fortschritt ablegst. Jetzt mach nen Timer den du parallel startest und am Ende wieder beendest. Im TickEvent kannst du den Code für die Ausgabe hintun. Das Intervall ist dann die Aktualisierungsrate an ^^.


    LG Julian
    Hmkay. :|

    MVN050 schrieb:


    mom nein... du durchsuchst ja alle dateien also sind das viel mehr als 4300 :D


    Also ich hab einen Zähler mitlaufen lassen, es sind nur dir 4300 Dateien, aber egal.

    Erst mal Danke für eure Anregungen.

    Ich habe jetzt noch mal etwas getestet und zwar mit meinem Laufwerk F:\, ca. 468000 Dateien; Timer mit Interval 1000 zur Zeitmessung mitlaufen lassen.

    Dauer des Suchvorgangs mit einem Label, dass bei jeder Datei geändert wird: 554 Sekunden
    Dauer des Suchvorgangs mit einer Progressbar, bei der Value an der selben Stelle, also bei jeder Datei um 1 erhöht wird: 292 Sekunden
    Dauer des Suchvorgangs ohne jegliche Fortschrittsanzeige: 31 Sekunden

    Steinigt mich jetzt nicht gleich, aber habe bisher noch nicht wirklich viel Ahnung...
    Hatte evtl. gedacht, dass das Programm, wenn ich die Anzeige in einem Backgroundworker oder in einem Timer mache es schneller gehen könnte, aber wenn ich das jetzt soweit richtig verstanden habe gibt es keine Möglichkeit den Fortschritt "schneller" anzeigen zu lassen, wenn ich bei jeder Datei eine Anzeige mache?!

    Ich habe mich jetzt mal für eine Progressbar entschieden, da die laut meinem Test schneller ist.
    Ich werde vorm Durchsuchen nun die Dateien der zu durchsuchenden Ordner "zählen" und dann je nach dem die Progressbar jeweils bei 1% 5% oder 10% erhöhen.


    miss auch mal, wie lange das Zählen überhaupt dauert.
    Und nimm bitte keinen Backgroundworker - es gibt wesentlich bessere Formen des Threadings - bei .Net4.5 ist der Async-Pattern optimal.
    Damit kann man einen synchronen Vorgangvergleichsweise leicht umbauen in einen asynchronen, ohne die Ablauflogik allzusehr demontieren zu müssen.

    Also du kannst mal deinen synchrongen 31-Sekunden-Code posten, und ich bastel Async ein.
    Oder probierst es selber: Async, Await und Task

    Moin Erfinder. wie gesagt bin nicht so fit, von daher habe ich mich bisher noch nicht mit Async-Pattern etc beschäftigen können. Habe ehrlich gesagt sogar noch nix davon gehört.

    Der Code ist der aus meinem Post Nr.3 nur ohne die Zeilen 14 und 28

    Edit
    Der Code zum Zählen, dauert auch ca. 31 Sekunden

    Quellcode

    1. Private Function Progressbar1_max_ermitteln(pfad As String) As Boolean
    2. If Not System.IO.Directory.Exists(pfad) Then
    3. MessageBox.Show("Der angegebene Pfad existiert nicht.", "Fehler", _
    4. MessageBoxButtons.OK, MessageBoxIcon.Error)
    5. Return False
    6. End If
    7. My.Application.DoEvents()
    8. ProgressBar1.Maximum += My.Computer.FileSystem.GetFiles(pfad).Count
    10. ' Unterordner durchsuchen
    11. If CBx_Unterordner.Checked = True Then
    12. Dim Aufl_Ordner = System.IO.Directory.GetDirectories(pfad)
    13. For Each Unterordner As String In Aufl_Ordner
    14. Try
    15. Progressbar1_max_ermitteln(Unterordner)
    16. Catch ex As Exception
    18. End Try
    19. Next
    21. End If
    22. Return Nothing
    23. End Function

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Humax“ ()

    Humax schrieb:

    VB.NET-Quellcode

    1. Dim Aufl_Ordner = System.IO.Directory.GetDirectories(pfad)
    Teste mal dies:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim fi() = New IO.DirectoryInfo("c:\Temp").GetFiles("*.*", IO.SearchOption.AllDirectories)
    3. MessageBox.Show(fi.Length.ToString)
    4. End Sub
    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!

    Humax schrieb:

    Der Code zum Zählen, dauert auch ca. 31 Sekunden
    Also allein das Ermitteln des Progressbar-Maximums dauert ebensolange wie die eigentliche Suche?
    Dann lass die PB und das Ermitteln ihres Maximums bitte weg, weil das ist das PB-Gimmick nicht wert, dasses aus 31s Wartezeit 62 Sekunden macht.

    Und jetzt poste den Code der eigentlichen Suche - ohne PB - wenn er 31s dauert.

    ErfinderDesRades schrieb:

    Also allein das Ermitteln des Progressbar-Maximums dauert ebensolange wie die eigentliche Suche?
    - JA

    Der Code zum suchen:

    Quellcode

    1. Private Function durchsuchen(pfad As String) As Boolean
    2. If Not System.IO.Directory.Exists(pfad) Then
    3. MessageBox.Show("Der angegebene Pfad existiert nicht.", "Fehler", _
    4. MessageBoxButtons.OK, MessageBoxIcon.Error)
    5. Return False
    6. End If
    7. Dim attrib As System.IO.FileAttributes
    8. ' Gefundene Dateien zur Liste hinzufügen
    9. Select Case CBx_VersteckteDateien.Checked
    10. Case "True"
    11. For Each Datei As String In My.Computer.FileSystem.GetFiles(pfad)
    12. My.Application.DoEvents()
    13. If Ex_Filter.Contains(System.IO.Path.GetExtension(Datei).ToLower) Or _
    14. Ex_Filter.Contains(".*") Then
    16. If System.IO.Path.GetFileNameWithoutExtension(Datei).ToLower.Contains(TBx_Suchbegriff.Text.ToLower) Or _
    17. TBx_Suchbegriff.Text = ("*") Then
    18. Dateiliste.Add(Datei)
    19. End If
    21. End If
    22. Next
    23. Case "False"
    24. For Each Datei As String In My.Computer.FileSystem.GetFiles(pfad)
    25. My.Application.DoEvents()
    26. ' Versteckte Dateien nicht anzeigen
    27. attrib = System.IO.File.GetAttributes(Datei)
    29. If ((attrib And IO.FileAttributes.Hidden) <> IO.FileAttributes.Hidden) Then
    31. If Ex_Filter.Contains(System.IO.Path.GetExtension(Datei).ToLower) Or _
    32. Ex_Filter.Contains(".*") Then
    33. If System.IO.Path.GetFileNameWithoutExtension(Datei).ToLower.Contains(TBx_Suchbegriff.Text.ToLower) Or _
    34. TBx_Suchbegriff.Text = ("*") Then
    35. Dateiliste.Add(Datei)
    37. End If
    39. End If
    40. End If
    41. Next
    42. End Select
    44. ' Unterordner durchsuchen
    45. If CBx_Unterordner.Checked = True Then
    46. Dim Aufl_Ordner = System.IO.Directory.GetDirectories(pfad)
    47. Select Case CBx_Verst_ordner.Checked
    48. Case "True"
    50. For Each Unterordner As String In Aufl_Ordner
    51. Try
    52. durchsuchen(Unterordner)
    53. Catch ex As Exception
    54. Fehlerbericht.AppendLine(Unterordner & " - " & ex.Message)
    55. End Try
    56. Next
    57. Case "False"
    58. For Each Unterordner As String In Aufl_Ordner
    59. attrib = System.IO.File.GetAttributes(Unterordner)
    60. If ((attrib And IO.FileAttributes.Hidden) <> IO.FileAttributes.Hidden) Then
    61. Try
    62. durchsuchen(Unterordner)
    63. Catch ex As Exception
    64. Fehlerbericht.AppendLine(Unterordner & " - " & ex.Message)
    65. End Try
    66. End If
    67. Next
    68. End Select
    70. End If
    72. Return Nothing
    73. End Function



    Quellcode

    1. ​Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim fi() = New IO.DirectoryInfo("c:\Temp").GetFiles("*.*", IO.SearchOption.AllDirectories)
    3. MessageBox.Show(fi.Length.ToString)
    4. End Sub

    ​


    Da bekomme ich eine unauthorized.exception. Z.B. wenn der Startpfad d:\ ist

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Humax“ ()

    zunächst mal würde ich vorschlagen, du "lokalisierst" die Methode.

    So wie sie ist, greift sie auf einige externe Resourcen zu, und es wäre wesentlich besser, wenn diese ihr stattdessen als Parameter übergeben würden.
    Ich meine konkret: Ex_Filter, Dateiliste, Suchbegriff, cbx_VersteckteDateien, CBx_Unterordner.

    Diese Dinge solltest du als Argumente der Methode übergeben.
    Dabei solltest du keine Controls übergeben, sondern nur die Werte der Controls.
    Also statt CBx_Unterordner reinzureichen, nur einen Boolean, nenne ihn mw. IncludeSubDirs

    Du könntest die Methode etwa als Shared modifizieren, dann sagt dir der Compiler sofort via Fehlermeldung, welche Variablen zu lokalisieren sind.

    Wie gesagt: reiche keine Controls herein, denn Controls vertragen sich überhaupt nicht mit Nebenläufigkeit.

    Humax schrieb:

    VB.NET-Quellcode

    1. Select Case CBx_VersteckteDateien.Checked
    2. Case "True"
    What :?:
    Gib Deinem Projekt schleunigst Option Strict On.
    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!

    RodFromGermany schrieb:


    What :?:
    Gib Deinem Projekt schleunigst Option Strict On.


    Komisch wieso ist das nicht strict on? Hatte das mal eingestellt. Könnte mir vorstellen, dass ich wohl bei Neuinstallation von VB2012 das nicht gesetzt habe. ?(
    Das würde ja heissen bei allen meinen neueren Projekten ist es nicht gesetzt!

    Humax schrieb:

    man muss es nur einmal einstellen
    Einmal für das aktuelle Projekt,
    einmal für das Studio als Default für alle dann neuen Projekte.
    Alle Projekte, die es nicht haben, musst Du händisch umstellen.
    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