Performance bei textboxen...

  • VB.NET

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

    Performance bei textboxen...

    Hallo Leute.
    Ich habe ein Programm, was die Registry ausliest und sie 1. in ein Tree list Element einträgt und 2. alles Pfade in einen String schreibt, der dann in eine Textdatei geschrieben wird.
    Ohne das schreiben in einen String und dann in die Textdatei, braucht das Programm so um die 20 Sekunden. Mit schreiben so 5 Stunden und wenn ich verduche jede Zeile in eine Textbox schreiben zu lassen, dann dauert das über 1 Tag. Wie kann ich es also schaffen alle Pfade untereiander in einen String zu bekommen, den ich dann möglichst schnell in eine Textdatei schreiben kann.
    Also was da Performancetechnisch am besten geht.
    Ich hoffe ihr versteht mein Anliegen.
    Hier mal der Code:

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    3. Public Class frm_main
    4. Dim counter As New Integer
    5. Dim text As String
    7. Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    9. End Sub
    11. Private Function getnodes(ByVal regkey As RegistryKey) As TreeNode
    12. Dim parts() As String = regkey.Name.Split("")
    13. Dim temp As New TreeNode(parts.Last)
    14. Dim subkey As RegistryKey
    15. Dim fullkey As String
    16. If regkey.SubKeyCount > 0 Then
    17. For Each keyName As String In regkey.GetSubKeyNames
    18. Try
    19. subkey = regkey.OpenSubKey(keyName)
    20. temp.Nodes.Add(getnodes(subkey))
    21. fullkey = regkey.Name + "" + keyName
    23. counter = counter + 1
    24. text = fullkey + vbCrLf + text
    25. ' ProgressBar1.Value += 0.0001 '0.0000371377491107366 2692678
    31. Catch ex As Exception
    33. End Try
    34. Next
    35. End If
    37. Return temp
    39. End Function
    41. Private Sub frm_main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    43. regTree.Height = Me.Height - 60
    45. End Sub
    48. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    49. counter = 0
    50. Dim rootnode As TreeNode
    52. rootnode = getnodes(My.Computer.Registry.CurrentUser)
    54. regTree.Nodes.Add(rootnode)
    55. 'MsgBox("Current User fertig")
    56. rootnode = getnodes(My.Computer.Registry.CurrentConfig)
    58. regTree.Nodes.Add(rootnode)
    59. ' MsgBox("Current Config fertig")
    60. rootnode = getnodes(My.Computer.Registry.ClassesRoot)
    62. regTree.Nodes.Add(rootnode)
    63. ' MsgBox("Classes Root fertig")
    64. rootnode = getnodes(My.Computer.Registry.Users)
    66. regTree.Nodes.Add(rootnode)
    67. ' MsgBox("Users fertig")
    68. rootnode = getnodes(My.Computer.Registry.LocalMachine)
    70. regTree.Nodes.Add(rootnode)
    72. Me.TopMost = True
    73. My.Computer.FileSystem.WriteAllText("C:\Users\leon\Documents\ArcaniA - Gothic 4\FileList.txt", text, True)
    74. MsgBox("fertig um " & Format(Now(), "hh:mm"))
    75. Label1.Text = counter
    76. End Sub
    77. End Class

    Ich hoffe ihr könnt mir helfen.
    Lg shutdown :D

    Du liest die gesamte Registry auf einmal aus und wunderst dich, dass das lange braucht? Dieser String muss einige Megabyte groß sein, da kommt die TextBox einfach nicht mehr mit, da kann man nichts machen. Notepad und co. laden immer nur den sichtbaren Teil wirklich in die TextBox, das funktioniert mit der normalen Textbox aber so nicht (weil du dann keinen Scrollbalken hättest).

    Artentus schrieb:

    Du liest die gesamte Registry auf einmal aus und wunderst dich, dass das lange braucht? Dieser String muss einige Megabyte groß sein, da kommt die TextBox einfach nicht mehr mit, da kann man nichts machen. Notepad und co. laden immer nur den sichtbaren Teil wirklich in die TextBox, das funktioniert mit der normalen Textbox aber so nicht (weil du dann keinen Scrollbalken hättest).

    ich lese die registry knoten für knoten aus. Funktioniert mit Restriktion. Die Funktion ruft sich immerwiedere selbst auf.
    Auserdem habe ich Scrollbars. Es liegt ja nicht am auslesen, denn dass dauert ca 20 Sekunden.
    Es liegt an der Notation.
    Zeile für Zeile in einen String und den dann in eine Textbox dauert ca 5 Stunden.
    Meine Frage nun:
    Gibt es bessere Ideen die mir erheblich Perfomance sparen könnten, weil ich leider keine Ahnung habe, was wie viel Performance wegnimmt.

    Je es geht mir auch nicht um eine Textbox.
    In dem Code ist ja auch nichts von einer Textbox.
    Das mit der Textbox habe ich nur geschrieben, dass ihr wisst, dass ich das shcon probiert habe und dass das nich klappt.
    In dem Code lade ich den Text Zeile für Zele in einen Sting (Eine Variable ,keine Textbox)
    Und am Ende schreibe ich diesen In eine Textdatei.
    Das dauert an die 5 Stunden.
    Ich will jetzt nicht wissen warum oder dass es nicht mit einer Textbox klappt, sondern mit was ich es sonst machen könnt.
    Danke trotzdem shconmal für deine Mühe :D

    Also braucht es jetzt 5 Stunden, wenn dus in ne TextBox packst, oder wenn dus in eine Datei schreibst?
    Letzteres kann auch recht leicht Probleme machen, da die Festplatte recht langsam ist. Um solche Operationen zu beschleunigen könntest du z.B. gar nicht erst den String bilden, sondern gleich jede Zeile einzeln mit StreamWriter.WriteLine in die Datei schreiben.

    Es dauert 5 stunden es in eine Text Datei zu schreiben.
    Wobei das schreiben an sich nur so 10 Sekunden dauert und dass schreiben in den String so lange(ca 5 stunden).
    Dauert das direkte schreiben jeder einzelnen Zeile in eine Textdatei wirklich kürzer als in einen String(Variable)?

    Naja, es gibt etwas wichtiges, was man über Strings wissen sollte. String sind "immutable" oder zu Deutsch "unveränderlich". Wenn du also etwas an einen String anhängst, dann wird intern eine neue String-Instanz erstellt, der Inhalt aus der alten dort hineinkopiert und das anzuhängende dort angehängt. Und da die Registry einige Millionen Schlüssel besitzt, wird dementsprechend of auch der String im RAM kopiert, und nach einer gewissen Zeit ist der String an sich auch recht lang, es muss also viel kopiert werden.
    Ich weiß nicht, wie viel Performance das bringen wird, aber es muss auf jeden Fall schneller sein.

    Hmm würde es dann villeicht mit einem Array schneller gehen als mit einem String??
    Aber ich könnte mir vorstellen dass man ja dann jedes einzelne Feld wieder auslesen und in die Textdatei eintragen müsste.
    das kostet auch wieder Performance.
    Also das mit dem String wusste ich noch gar nicht. Danke für die Info. Is grundlegend und wichtig zu wissen denke ich.
    Ich versuche es jetzt mal mit StreamWriter

    Also hier ist der Code und es war in 32 Sekunden Fertig. Es waren insgesamt 207866 Pfade. Super Performance. DANKE
    Hier ist der fertige Code für Andere:

    VB.NET-Quellcode

    1. Imports Microsoft.Win32
    2. Imports System.IO
    4. Public Class frm_main
    5. Dim counter As New Integer
    6. Dim text As String
    7. Dim lesen As String = File.ReadAllText("C:\Users\leon\Documents\visual basic\Log.txt")
    8. Dim whatever As New IO.StreamWriter("C:\Users\leon\Documents\visual basic\Log.txt")
    9. Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    11. End Sub
    13. Private Function getnodes(ByVal regkey As RegistryKey) As TreeNode
    14. Dim parts() As String = regkey.Name.Split("")
    15. Dim temp As New TreeNode(parts.Last)
    16. Dim subkey As RegistryKey
    17. Dim fullkey As String
    18. If regkey.SubKeyCount > 0 Then
    19. For Each keyName As String In regkey.GetSubKeyNames
    20. Try
    21. subkey = regkey.OpenSubKey(keyName)
    22. temp.Nodes.Add(getnodes(subkey))
    23. fullkey = regkey.Name + "" + keyName
    25. counter = counter + 1
    26. ' text = fullkey + vbCrLf + text
    28. whatever.WriteLine(lesen & fullkey)
    34. Catch ex As Exception
    36. End Try
    37. Next
    38. End If
    40. Return temp
    42. End Function
    44. Private Sub frm_main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    46. regTree.Height = Me.Height - 60
    48. End Sub
    51. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    52. counter = 0
    53. Dim rootnode As TreeNode
    55. rootnode = getnodes(My.Computer.Registry.CurrentUser)
    57. regTree.Nodes.Add(rootnode)
    58. 'MsgBox("Current User fertig")
    59. rootnode = getnodes(My.Computer.Registry.CurrentConfig)
    61. regTree.Nodes.Add(rootnode)
    62. ' MsgBox("Current Config fertig")
    63. rootnode = getnodes(My.Computer.Registry.ClassesRoot)
    65. regTree.Nodes.Add(rootnode)
    66. ' MsgBox("Classes Root fertig")
    67. rootnode = getnodes(My.Computer.Registry.Users)
    69. regTree.Nodes.Add(rootnode)
    70. ' MsgBox("Users fertig")
    71. rootnode = getnodes(My.Computer.Registry.LocalMachine)
    73. regTree.Nodes.Add(rootnode)
    75. Me.TopMost = True
    76. ' My.Computer.FileSystem.WriteAllText("C:\Users\leon\Documents\visual basic\Log.txt", text, True)
    77. whatever.Close()
    78. MsgBox("fertig um " & Format(Now(), "hh:mm"))
    80. Label1.Text = counter
    81. End Sub
    83. End Class

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

    whatever.WriteLine(lesen & fullkey)

    ... wenn sich in der datei schon inhalt befindet, dann wird so, wie es jetzt ist, dieser existierende inhalt mit jedem registry eintrag erneut reingeschrieben. denke da haste nur nen kleinen denkfehler :)

    shutdown schrieb:

    würde es dann villeicht mit einem Array schneller gehen als mit einem String?
    Dafür gibt es in .NET die StringBuilder-Klasse.
    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!

    shutdown schrieb:

    dass andere die das selbe Problem haben, die richtige Lösung sehen können.
    Was ist, wenn die nicht "leon" heißen?
    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:

    shutdown schrieb:

    dass andere die das selbe Problem haben, die richtige Lösung sehen können.
    Was ist, wenn die nicht "leon" heißen?
    Das ist dann meine Copy und Paste Bremse.
    Naja der Sinn ist ja auch nicht C & P, zwar kann man sich es kopieren, aber dann sollte man sich auch reindenken und es verstehen und spätestens bei der Fehlermeldung dass Log.txt nicht gefunden wurde, sollte es klar werden :D

    shutdown schrieb:

    Das ist dann meine Copy und Paste Bremse.
    :thumbsup: :thumbsup: :thumbsup:
    Jetzt musst Du den Thread nur noch als erledigt markieren.
    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