Schleifen Problem

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von BiedermannS.

    Schleifen Problem

    Hi, ich habe ein Problem,

    ich habe eine Klassen "Nachrichten", in der von mir IDs und Strings (Betreff und Absender) vergeben werden.

    Ich habe eine Listbox, wo Absender & ": " & betreff aufgelistet sind.

    Ich speichere die Nachrichten alledings anhand der ID in einer einfachen Textdatei (ist so gewollt).

    Wenn ich diese jetzt auslese, finde ich leider keinen Weg, die Daten abzugleichen.

    Ich lese alle Zeilen der Textdatei aus und packe sie in eine list of integer.
    Danach gehe ich diese Liste in einer Schleife durch und gehe dann die Klasse durch und suche die ID:

    VB.NET-Quellcode

    1. Dim liste As New List(Of Integer)
    2. Do
    3. sLine = oStream.ReadLine
    4. If sLine = Nothing Then Exit Do
    5. liste.Add(sLine)
    6. Loop
    9. For i As Integer = 0 To liste.Count - 1
    11. For Each nach As Nachricht In Nachrichten
    12. If nach.ID = liste(i) Then
    13. LbNachrichten.Items.Add(nach.Absender & ": " & nach.Betreff)
    14. End If
    15. Next
    16. Next


    Ich bin ein wenig überarbeitet und sehe vielleicht meinen Fehler nicht? Ich habe übrigens am obigen Code einiges ausprobiert. Ich bin mir nichtmal sicher, ob das überhaupt funktioniert.

    Liebe Grüße

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

    Ein sehr seltsames Datenmodell, das du da hast.
    Du speicherst nur die IDs in eine txt? Wo werden dann die Nachrichten gespeichert?
    Typisiertes Dataset und binäre Serialization kann ich dir auch empfehlen (wie rotherford schon gesagt hat)
    Folgende Zeile ist Schwachsinn:

    VB.NET-Quellcode

    1. If sLine = Nothing Then Exit Do

    Soll da auf Dateiende geprüft werden???
    Schau dir mal File.ReadAllLines

    Außerdem mach mal bitte Option Strict On (siehe meine Signatur) und korrigier alle angezeigten Fehler (string to integer usw).

    Hi, danke für die Nachrichten erstmal.

    Es ist strict on und ich habe keine Fehler.

    ja, das sline ist quatsch, ads weiß ich auch, aber das bringt mir zur Zeit keine Probleme, darum geht es auch nicht.

    die Nachrichten sind im Programm gespeichert, nur die IDs nicht.

    Ich möchte, dass man die Datei von überall aus mitnehmen kann, also die ID gleich bleibt, aber ich notfalls die Nachricht ändern kann.

    Könntet ihr mir einen guten Link zu euren Vorschlägen nennen?

    Bitte beantworte meine Frage: Wie speicherst du die Nachrichten?
    Es ist strict on und ich habe keine Fehler.

    Nein, hast du nicht.

    VB.NET-Quellcode

    1. liste.Add(sLine)
    konvertiert implizit string zu integer. (vorrausgesetzt sLine ist ein String, ansonsten ist der Fehler 2 Zeilen drüber)

    Du schreibst:
    Ich möchte, dass man die Datei von überall aus mitnehmen kann, also die ID gleich bleibt, aber ich notfalls die Nachricht ändern kann.

    Außerdem benutzt du eine txt zum Speichern der IDs. Aus diesen beiden Sachen schließe ich, dass du die Nachrichten auch nach einem Programmneustart wieder vorhanden sein sollen.
    Also nochmal: Speicherst du die Nachrichten auf der Festplatte? Nach dem Beenden des Programmes sind sie sonst weg.

    Die Lösungen wurden übrigens im ersten Antwortpost schon erwähnt.
    Hier ein gutes Tutorial zu Datasets (ganz unten)

    Meine Güte,

    VB.NET-Quellcode

    1. Private Sub NachrichtenLaden(ByVal lbnachrichten As ListBox)
    2. Dim oStream As IO.StreamReader
    3. Dim sLine As Integer
    4. Dim nachrichtendatei As String = Application.StartupPath & "\messages.txt"
    5. Dim nachrichten As New List(Of Nachricht)
    8. If IO.File.Exists(nachrichtendatei) Then
    9. oStream = New IO.StreamReader(nachrichtendatei)
    11. Dim listee As New List(Of Integer)
    12. Do
    13. sLine = CInt(oStream.ReadLine)
    14. If sLine = Nothing Then Exit Do
    15. listee.Add(sLine)
    16. Loop
    19. For i As Integer = 0 To listee.Count - 1
    21. For Each nach As Nachricht In nachrichten
    22. If nach.ID = listee(i) Then
    23. MsgBox("JA")
    24. lbnachrichten.Items.Add(nach.Absender & ": " & nach.Betreff)
    25. End If
    26. Next
    27. Next
    28. oStream.Close()
    29. End If
    30. End Sub


    Das ist der aktuelel Code, ich hoffe, dass damit das OFFTOPIC-Thema damit vom Tisch ist!

    Ich speichere die IDs, die der Benutzer bereits erhalten hat.

    Also die Nachrichten, die er schon bekommen hat und ja, sie sollen wieder da sein.

    Abgesehen davon, dass es nicht Offtopic ist, hast du leider immer noch nicht die Frage beantwortet, woher die Daten für die Variable nachrichten nach einem Programmstart kommen.
    Ich frage nicht nach der .txt mit den ID's sondern nach dem Inhalt der Nachrichten.

    Nachrichten hinzufügen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Msgesadd()
    2. Nachrichten.Add(New Nachricht("Absender", "Betreff", "Text", ID, GelesenoderNicht (boolean)))
    3. end sub



    Bei FormLoad:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Msgesadd()


    Speichern:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub MsgesSave(ByVal LbNachrichten As ListBox, ByVal Nachrichtendatei As String)
    2. Dim ostream As IO.StreamWriter = New IO.StreamWriter(Nachrichtendatei)
    3. For i As Integer = 0 To LbNachrichten.Items.Count - 1
    5. For Each nach As Nachricht In Nachrichten
    7. If LbNachrichten.Items(i).ToString.Contains(nach.Betreff) And LbNachrichten.Items(i).ToString.Contains(nach.Absender) Then
    8. ostream.WriteLine(nach.ID)
    9. End If
    11. Next
    12. Next
    13. ostream.Close()
    14. End Sub



    Laden habe ich ja bereits gepostet.

    Ich hoffe das konnte helfen?

    Ich habe das Gefühl, dass du auf dem Holzweg bist. Das ist übrigens das, was rotherford in seinem ersten Post dir zu verstehen geben wollte.
    Beschreibe doch mal die Aufgabe deines Programmes.
    z.B.
    Ist es eine Art Chatprogramm oder Email Programm?
    Wo kommen die Daten für deine "Nachrichten"? (Usereingabe, email, httpwebrequest, festplatte, ...)
    Wie werden die Daten angezeigt... (z.B. Datagridview)
    Wie werden die Daten intern gespeichert? z.B.:
    -Dataset (ermöglicht praktische Datenbindung an Control)
    -Klassen (scheint dein jetziges System zu sein)
    Wie werden Daten gespeichert, um nach dem Neustart des Programmes verfügbar zu sein?

    Hier mal ein Beispiel zur Serialisierung:

    Datenklassen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Serializable()>
    2. Public Class Messages
    3. Inherits Dictionary(Of Integer, List(Of Message))
    4. Protected Sub New(ByVal info As Runtime.Serialization.SerializationInfo, ByVal context As Runtime.Serialization.StreamingContext)
    5. MyBase.New(info, context)
    6. End Sub
    7. Sub New()
    9. End Sub
    10. Public Property ID As Integer = 0
    11. Sub AddMessage(ByVal ID As Integer, ByVal Sender As String, ByVal Subject As String, ByVal Text As String, Optional ByVal IsRead As Boolean = False)
    12. If Not MyBase.ContainsKey(ID) Then
    13. MyBase.Add(ID, {New Message With {.Sender = Sender, .Subject = Subject, .Text = Text, .IsRead = IsRead}}.ToList)
    14. Else
    15. MyBase.Item(ID).Add(New Message With {.Sender = Sender, .Subject = Subject, .Text = Text, .IsRead = IsRead})
    16. End If
    17. End Sub
    18. End Class
    20. <Serializable()>
    21. Public Class Message
    22. Private _Sender As String = String.Empty
    23. Public Property Sender As String
    24. Get
    25. Return _Sender
    26. End Get
    27. Set(value As String)
    28. _Sender = value
    29. End Set
    30. End Property
    32. Private _Subject As String = String.Empty
    33. Public Property Subject As String
    34. Get
    35. Return _Subject
    36. End Get
    37. Set(value As String)
    38. _Subject = value
    39. End Set
    40. End Property
    42. Private _Text As String = String.Empty
    43. Public Property Text As String
    44. Get
    45. Return _Text
    46. End Get
    47. Set(value As String)
    48. _Text = value
    49. End Set
    50. End Property
    52. Private _IsRead As Boolean = False
    53. Public Property IsRead As Boolean
    54. Get
    55. Return _IsRead
    56. End Get
    57. Set(value As Boolean)
    58. _IsRead = value
    59. End Set
    60. End Property
    61. End Class


    Laden und Speichern:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub Speichern(ByVal pfad As String, ByVal obj As Messages)
    2. Using fs As New IO.FileStream(pfad, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.None)
    3. Dim formatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
    4. formatter.Serialize(fs, obj)
    5. End Using
    6. End Sub
    8. Function Laden(ByVal pfad As String) As Messages
    9. Dim obj As Messages
    10. Using fs As New IO.FileStream(pfad, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
    11. Dim formatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
    12. obj = DirectCast(formatter.Deserialize(fs), Messages)
    13. End Using
    14. Return obj
    15. End Function


    Testprogramm (Konsolenanwendung):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private NachrichtenListe As New Messages
    2. Sub printAll()
    3. For Each ID As Integer In NachrichtenListe.Keys
    4. For Each m As Message In NachrichtenListe(ID)
    5. MsgBox("Betreff: " & m.Subject & vbCrLf &
    6. "Nachricht:" & vbCrLf & m.Text, MsgBoxStyle.OkOnly, "Absender: " & m.Sender)
    7. Next
    8. Next
    9. End Sub
    11. Sub Main()
    12. Dim currentID As Integer = 15
    14. NachrichtenListe.AddMessage(currentID, "VB-PARADISE.DE", "Datenstrukturen", "Man sollte immer richtige Datenstrukturen verwenden!", False)
    15. NachrichtenListe.AddMessage(currentID, "VB-PARADISE.DE", "Datenstrukturen2", "Serialisierung ist was schönes :)", False)
    16. currentID = 26
    17. NachrichtenListe.AddMessage(currentID, "lol@rofl.xD", "Test", "Das ist eine Testnachricht!", False)
    19. printAll()
    20. Speichern("c:\test.xml", NachrichtenListe)
    21. NachrichtenListe.Clear()
    22. printAll()
    23. NachrichtenListe = Laden("c:\test.xml")
    24. printAll()
    25. End Sub


    Wichtig: Serialisierung eignet sich nicht für große Datenmengen. Daher wäre es ratsam, schon mal auf Datenbanken hinzuarbeiten.
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Michilol schrieb:

    Ich speichere die Nachrichten alledings anhand der ID in einer einfachen Textdatei (ist so gewollt).
    Ähm - Welcher Depp will denn sowas?
    Kann man mit ihm reden? - vlt. isser ja garkein Depp.

    Dann kannman noch vertreten, dass eine Xml-Datei natürlich auch eine TextDatei ist.

    Wenns alles nix hilft, muß man halt einen Konverter schreiben, der diese DAtei in ein typisiertes Dataset einliest, und das Dataset auch in dieses komische Format zurückspeichern kann.
    Dass wenigstens intern eine vernünftige Datenstruktur besteht.

    Aber scheint mir nicht sinnvoll, mit was annerem als typDataset hier rumzuwerkeln.
    Übringens, Serialisierung scheidet aus, sobald in der Datenstruktur m:n - Relationen auftauchen.
    Also wenns da Nachricht-Adressen und Nachrichten gibt, und jede Nachricht ist sowohl mit einer Sender-Addresse, als auch mit einer Empfänger-Addresse verknüpft, dann ist sone Struktur per Serialisierung nicht mehr persistierbar.
    Weil Serialisierung würde hier dazu führen, dass derselbe Address-DAtensatz mehrmals abgespeichert würde.
    Also im Grunde das Problem, was auch in die relationale GrundIdee anfangs kurz angerissen wird.

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

    Ich kann EDR nur zustimmen. m:n Relationen kann man nicht gut darstellen und wenn man es irgendwie schafft, ist es der selbe Schrott wie mit Textdateien herum zu werkeln.

    Also Dataset ansehen :)
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

Facebook
Telefonspende