Log wird nicht Vollständig ausgelesen

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

Es gibt 43 Antworten in diesem Thema. Der letzte Beitrag () ist von xX-Nick-Xx.

    Tja, dann haste wohl nen Abend mit debuggen vor dir.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    @xX-Nick-Xx Poste mal Deinen aktuelles Projekt und die Datei, ZIP, bereinigt.
    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!

    mrMo schrieb:

    Tja, dann haste wohl nen Abend mit debuggen vor dir.


    Ich habe grad mal jedes Panel mit einer Zahl versehen.
    Ergebnis: 800
    Aber die Messagebox sagt mit 1500?

    VB.NET-Quellcode

    1. MessageBox.Show(FlowLayoutPanel5.Controls.Count)

    Ähm?
    ~Ich denk mal das sind die Label und die Panels zusammen?!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xX-Nick-Xx“ ()

    Ist der Inhalt der Datei denn korrekt? Nicht das da was fehlt oder Absätze oder so fehlen…
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Hallo,
    teste doch erstmal, ob die Datei komplett eingelesen wird, bevor du irgendwelche Panels und Labels deiner Form hinzufügst. Folgender Code gibt mir jede Zeile deiner Log-Datei korrekt aus:

    C#-Quellcode

    1. ​var lines = System.IO.File.ReadLines(@"E:\Temp\log.txt");
    2. int i = 0;
    3. foreach (var line in lines)
    4. {
    5. ++i;
    6. Console.WriteLine($"Line {i}: {line}");
    7. }

    Dein Problem scheint mMn. nichts mit dem Einlesen der Datei zu tun zu haben.

    @xX-Nick-Xx Mit welchem (aktualisierten) Code liest Du gegenwärtig die Datei ein?
    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:

    @xX-Nick-Xx Mit welchem (aktualisierten) Code liest Du gegenwärtig die Datei ein?


    VB.NET-Quellcode

    1. For Each line In System.IO.File.ReadLines(My.Settings.LogPath)
    2. ' Dim inhalt() As String = System.IO.File.ReadAllLines(My.Settings.LogPath)
    4. 'PanelBLOG = New Panel
    5. 'FlowLayoutPanel5.Controls.Add(PanelBLOG)
    6. 'With PanelBLOG
    7. ' .Name = TotalLog & "_LogPanel"
    8. ' .Dock = DockStyle.Top
    9. ' .BackColor = Color.FromArgb(50, 50, 50)
    10. ' .Height = 35
    11. ' .Width = 1220
    12. ' ' .Padding = New Padding(1)
    13. ' .SendToBack()
    14. 'End With
    16. 'PBULOG = New PictureBox
    17. 'PanelBLOG.Controls.Add(PBULOG)
    18. '' Dim lines5() As String = System.IO.File.ReadAllLines(ModFolderPath & "\" & i & ".mfp")
    19. 'With PBULOG
    20. ' .Name = TotalLog & "_LogPictureBox"
    21. ' .Dock = DockStyle.Left
    22. ' .BackColor = Color.FromArgb(40, 40, 40)
    23. ' .SizeMode = PictureBoxSizeMode.CenterImage
    24. ' If line.Contains("Error:") Then
    25. ' .Image = My.Resources.erroricon
    26. ' ErrorLog = ErrorLog + 1
    27. ' ElseIf line.Contains("Warning:") Then
    28. ' .Image = My.Resources.warningICON
    29. ' WarnLog = WarnLog + 1
    30. ' Else
    31. ' .Image = My.Resources.infoIcon
    32. ' OKLog = OKLog + 1
    33. ' End If
    35. ' ' .SizeMode = PictureBoxSizeMode.CenterImage
    37. ' .SendToBack()
    38. ' .Width = 37
    40. 'End With
    41. ' AddHandler PBULOG.Click, AddressOf Me.PBUClick
    42. LBLoG = New Label
    43. FlowLayoutPanel5.Controls.Add(LBLoG)
    44. With LBLoG
    45. .Name = TotalLog & "_LogLabel"
    46. .Dock = DockStyle.Left
    47. .BackColor = Color.FromArgb(40, 40, 40)
    48. .Width = 1200
    49. .AutoSize = True
    50. .Height = 30
    51. .AutoEllipsis = True
    52. .Text = line
    53. .TextAlign = ContentAlignment.MiddleLeft
    54. ' .Font = New Font("Segoe UI", 12, FontStyle.Bold Or FontStyle.Bold)
    55. ' .Font = New Font("Segoe UI", "12", "style=Bold")
    56. .BringToFront()
    57. End With
    59. TotalLog = TotalLog + 1
    61. Next

    Testweise hatte ich mal alles Deaktiviert...


    @xX-Nick-Xx Überzeuge Dich doch bitte davon, dass der Code auch bei mir läuft, wenn ich ihn einfüge.
    ====
    Warum schreibst Du unlesbare Label, bevor Dein Problem gelöst ist?

    VB.NET-Quellcode

    1. ...
    2. TotalLog = TotalLog + 1
    3. Next
    4. Label1.Text = $"{TotalLog} Zeilen gelesen"
    5. 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!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RodFromGermany“ ()

    RodFromGermany schrieb:

    Warum schreibst Du unlesbare Label, bevor Dein Problem gelöst ist?

    Ich habe es einmal nur mit den Labels versucht, und da klappt es ohne Probleme, nur mit Panel und PB klappt es nicht..

    Hier der Gesamte Code

    VB.NET-Quellcode

    1. Dim LBLoG As New Label
    2. Dim PBULOG As New PictureBox
    3. Dim PanelBLOG As New Panel
    4. Dim WarnLog As Integer = 0
    5. Dim OKLog As Integer = 0
    6. Dim ErrorLog As Integer = 0
    7. Dim TotalLog As Integer = 0
    8. Public Sub CreateLog()
    9. Try
    11. For Each line In System.IO.File.ReadLines(My.Settings.LogPath)
    12. ' Dim inhalt() As String = System.IO.File.ReadAllLines(My.Settings.LogPath)
    14. PanelBLOG = New Panel
    15. FlowLayoutPanel5.Controls.Add(PanelBLOG)
    16. With PanelBLOG
    17. .Name = TotalLog & "_LogPanel"
    18. .Dock = DockStyle.Top
    19. .BackColor = Color.FromArgb(50, 50, 50)
    20. .Height = 35
    21. .Width = 1220
    22. ' .Padding = New Padding(1)
    23. .SendToBack()
    24. End With
    26. PBULOG = New PictureBox
    27. PanelBLOG.Controls.Add(PBULOG)
    28. ' Dim lines5() As String = System.IO.File.ReadAllLines(ModFolderPath & "\" & i & ".mfp")
    29. With PBULOG
    30. .Name = TotalLog & "_LogPictureBox"
    31. .Dock = DockStyle.Left
    32. .BackColor = Color.FromArgb(40, 40, 40)
    33. .SizeMode = PictureBoxSizeMode.CenterImage
    34. If line.Contains("Error:") Then
    35. .Image = My.Resources.erroricon
    36. ErrorLog = ErrorLog + 1
    37. ElseIf line.Contains("Warning:") Then
    38. .Image = My.Resources.warningICON
    39. WarnLog = WarnLog + 1
    40. Else
    41. .Image = My.Resources.infoIcon
    42. OKLog = OKLog + 1
    43. End If
    45. ' .SizeMode = PictureBoxSizeMode.CenterImage
    47. .SendToBack()
    48. .Width = 37
    50. End With
    51. ' AddHandler PBULOG.Click, AddressOf Me.PBUClick
    52. LBLoG = New Label
    53. FlowLayoutPanel5.Controls.Add(LBLoG)
    54. With LBLoG
    55. .Name = TotalLog & "_LogLabel"
    56. .Dock = DockStyle.Left
    57. .BackColor = Color.FromArgb(40, 40, 40)
    58. .Width = 1200
    59. .AutoSize = True
    60. .Height = 30
    61. .AutoEllipsis = True
    62. .Text = line
    63. .TextAlign = ContentAlignment.MiddleLeft
    64. ' .Font = New Font("Segoe UI", 12, FontStyle.Bold Or FontStyle.Bold)
    65. ' .Font = New Font("Segoe UI", "12", "style=Bold")
    66. .BringToFront()
    67. End With
    69. TotalLog = TotalLog + 1
    71. Next
    72. Catch ex As Exception
    73. MessageBox.Show(ex.Message & ex.StackTrace)
    74. End Try
    75. End Sub

    Ich würde ja aufjedenfall mal das komische Try-Catch wegmachen bringt dir beim Debuggen garnix und erschwert dir nur die Suche nach dem Fehler.

    Und die Frage der Fragen: Warum mit sovielen Controls rumhantieren? Ein Log ist doch nur ein Log... Nimm nen Datagridview oder eine Listbox und style die dementsprechend.
    Was klappt denn nicht? kommt eine Fehlermeldung? Woran merkst du das "es nicht klappt"?
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    Jou, erstmal den Blödsinn mit dem Try-Catch weg. Was ist, wenn Du nur die Panels hinzufügst und die PicBoxen und die Labels weglässt? Was, wenn Du Panels und Labels weglässt und nur PicBoxen hinzufügst? Wenn Du alles aktivierst, wäre ab einer gewissen Schleifeniteration eine per Haltepunkt schrittweise Abarbeitung sinnvoll. Also z.B.

    VB.NET-Quellcode

    1. For Each line In System.IO.File.ReadLines(My.Settings.LogPath)
    2. If TotalLog = DieZahlAbDerEsNichtMehrLäuft Then Stop 'also z.B. 1598
    3. 'und dann hier Dein restlicher Code

    Sobald eben der 1598ste Durchlauf stattfindet, kommt der Compiler beim Stop an. Dann schrittweise mit F11 oder Haltepunkten durchgehen und schauen, wo das Programm die Sub abbricht. Aber ich dacht auch, dass es daran liegen könnte, was EdR schon sagte: Ab einer bestimmten Control-Anzahl ist aus die Maus.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    was EdR schon sagte: Ab einer bestimmten Control-Anzahl ist aus die Maus.

    Wie oben schon Beschrieben habe ich aber ein Bereich wo er viel mehr Controls erstellen muss und da läuft es ohne Probleme :D
    Aber ich werde es mal Testen wie du meintest

    Wahrscheinlich ist der Bereich + dein Log Bereich einfach zu viel insgesammt?
    Siehe: stackoverflow.com/questions/52…w-in-a-windows-forms-form

    Mit deiner abenteuerlichen Art den Log anzuzeigen zusätzlich wirst du sicher schnell an die 10000 Grenze kommen.
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    @xX-Nick-Xx Auch mit Deinem Code aus Post #31 komme ich an das Ende der Datei aus Post #25.
    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!

    Wie lange dauert das Laden eigentlich bei Dir @xX-Nick-Xx? Nicht, dass die kritische Minute überschritten wird.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

    Also mit allen Controls hat es Ca 2min Gedauert (Aber da hat er ja auch nicht Vollständig geladen)

    nur mit den Labels hat er 1x bei mir um die 20min Geladen xD

    Vollzitat eines Vorposts durch Anredefunktion ersetzt ~VaporiZed
    @RodFromGermany: Er hat bei dir alles Geladen?
    bei mir und meinem Kollegen nicht.

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

Facebook
Telefonspende