Hallo Zusammen,
Ich habe derzeit einen kleinen Denkfehler bezüglich einer Funktion. Folgendes:
In einer ini Datei speicher ich 5 Werte ab und aktualisiere jeweil den Wert der da nach kommt. Ebenfalls werden gleiche Werte ignoriert.
Nun soll der Benutzer aber noch die möglichkeit haben, diese Werte zulöschen, was an sich kein Problem ist doch allerdings überschreibt er dann ja nicht den leeren Wert. Sofern ihr es verstanden habt, ich suche nach einem Weg diese super lange if Abfrage zu verkürzen, sodass er immer den Wert überschreibt, der entweder leer ist oder einen erstellt der nicht existiert. Gleichzeitig soll sobald ein 6ter Eintrag kommt der älteste überschrieben werden.
Hier ist mal meine derzeitige Lösung, allerdings denke ich das es wesentlich einfacher gehen kann.
Dazu noch eine kurze Frage bezüglich Schleifen, ich möchte auf einer anderen Form alle Inhalte einens MenüStrips auslesen wie lässt sich das nochmal realisieren?
Vielen dank und Liebe Grüße!
Ich habe derzeit einen kleinen Denkfehler bezüglich einer Funktion. Folgendes:
In einer ini Datei speicher ich 5 Werte ab und aktualisiere jeweil den Wert der da nach kommt. Ebenfalls werden gleiche Werte ignoriert.
Nun soll der Benutzer aber noch die möglichkeit haben, diese Werte zulöschen, was an sich kein Problem ist doch allerdings überschreibt er dann ja nicht den leeren Wert. Sofern ihr es verstanden habt, ich suche nach einem Weg diese super lange if Abfrage zu verkürzen, sodass er immer den Wert überschreibt, der entweder leer ist oder einen erstellt der nicht existiert. Gleichzeitig soll sobald ein 6ter Eintrag kommt der älteste überschrieben werden.
Hier ist mal meine derzeitige Lösung, allerdings denke ich das es wesentlich einfacher gehen kann.
VB.NET-Quellcode
- 'Lesezeichen Funktion
- Dim lesezeichenINI As New INIDatei
- lesezeichenINI.Pfad = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Umrechner\settings.ini"
- If Lesezeichen1ToolStripMenuItem1.Text = GetLoadFile.FileName Or Lesezeichen1ToolStripMenuItem2.Text = GetLoadFile.FileName Or Lesezeichen1ToolStripMenuItem3.Text = GetLoadFile.FileName Or Lesezeichen1ToolStripMenuItem4.Text = GetLoadFile.FileName Or Lesezeichen1ToolStripMenuItem5.Text = GetLoadFile.FileName Then
- 'Nichts machen
- Else
- If lesezeichenINI.WertLesen("Lesezeichen", "current") = Nothing Then
- lesezeichenINI.WertSchreiben("Lesezeichen", "current", "2")
- lesezeichenINI.WertSchreiben("Lesezeichen", "1", GetLoadFile.FileName)
- Lesezeichen1ToolStripMenuItem1.Enabled = True
- Lesezeichen1ToolStripMenuItem1.Visible = True
- Lesezeichen1ToolStripMenuItem1.Text = GetLoadFile.FileName
- ElseIf lesezeichenINI.WertLesen("Lesezeichen", "current") = "1" Then
- lesezeichenINI.WertSchreiben("Lesezeichen", "1", GetLoadFile.FileName)
- lesezeichenINI.WertSchreiben("Lesezeichen", "current", "2")
- Lesezeichen1ToolStripMenuItem1.Enabled = True
- Lesezeichen1ToolStripMenuItem1.Visible = True
- Lesezeichen1ToolStripMenuItem1.Text = GetLoadFile.FileName
- ElseIf lesezeichenINI.WertLesen("Lesezeichen", "current") = "2" Then
- lesezeichenINI.WertSchreiben("Lesezeichen", "2", GetLoadFile.FileName)
- lesezeichenINI.WertSchreiben("Lesezeichen", "current", "3")
- Lesezeichen1ToolStripMenuItem2.Enabled = True
- Lesezeichen1ToolStripMenuItem2.Visible = True
- Lesezeichen1ToolStripMenuItem2.Text = GetLoadFile.FileName
- ElseIf lesezeichenINI.WertLesen("Lesezeichen", "current") = "3" Then
- lesezeichenINI.WertSchreiben("Lesezeichen", "3", GetLoadFile.FileName)
- lesezeichenINI.WertSchreiben("Lesezeichen", "current", "4")
- Lesezeichen1ToolStripMenuItem3.Enabled = True
- Lesezeichen1ToolStripMenuItem3.Visible = True
- Lesezeichen1ToolStripMenuItem3.Text = GetLoadFile.FileName
- ElseIf lesezeichenINI.WertLesen("Lesezeichen", "current") = "4" Then
- lesezeichenINI.WertSchreiben("Lesezeichen", "4", GetLoadFile.FileName)
- lesezeichenINI.WertSchreiben("Lesezeichen", "current", "5")
- Lesezeichen1ToolStripMenuItem4.Enabled = True
- Lesezeichen1ToolStripMenuItem4.Visible = True
- Lesezeichen1ToolStripMenuItem4.Text = GetLoadFile.FileName
- ElseIf lesezeichenINI.WertLesen("Lesezeichen", "current") = "5" Then
- lesezeichenINI.WertSchreiben("Lesezeichen", "5", GetLoadFile.FileName)
- lesezeichenINI.WertSchreiben("Lesezeichen", "current", "1")
- Lesezeichen1ToolStripMenuItem5.Enabled = True
- Lesezeichen1ToolStripMenuItem5.Visible = True
- Lesezeichen1ToolStripMenuItem5.Text = GetLoadFile.FileName
- End If
- End If
Dazu noch eine kurze Frage bezüglich Schleifen, ich möchte auf einer anderen Form alle Inhalte einens MenüStrips auslesen wie lässt sich das nochmal realisieren?
Vielen dank und Liebe Grüße!