Checkbox in ini speichern/lesen aber es gibt fehler. [NEU]

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

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

    Checkbox in ini speichern/lesen aber es gibt fehler. [NEU]

    Hallo liebe Com,

    ich habe ein kleines aber feines Problem.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. ' Deklaration der Pfadangabe
    5. Dim sAppPath As String
    7. sAppPath = Application.StartupPath
    9. 'Wert einem String zuordnen
    11. Dim sb As StringBuilder
    13. sb = New StringBuilder(1024)
    15. 'INI Datei auslesen
    17. INI.Lesen("Einstellungen", "Arma 3 Pfad", "", sb, sb.Capacity, sAppPath & "\Settings.ini")
    19. TextBox1.Text = sb.ToString
    21. INI.Lesen("Einstellungen", "Startparameter", "", sb, sb.Capacity, sAppPath & "\Settings.ini")
    23. TextBox2.Text = sb.ToString
    25. INI.Lesen("Einstellungen", "Teamspeak 3 Pfad", "", sb, sb.Capacity, sAppPath & "\Settings.ini")
    27. TextBox3.Text = sb.ToString
    29. If INI.Lesen("Einstellungen", "Automatische Updates", "", sb, sb.Capacity, sAppPath & "\Settings.ini") = "True" Then
    31. CheckBox1.Checked = True
    33. Else
    35. CheckBox1.Checked = False
    37. End If
    39. End Sub


    Diese Code Zeile funktioniert so garnicht ich habe es auch ohne das IF versucht es ging. Aber ich kriege diesen Fehler hier nicht raus:

    Ungültige Konvertierung von der Zeichenfolge True in Typ Double manchmal auch Bolean.


    Der ganze Bereich sieht so aus

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Globalization
    3. Imports System.Threading
    5. Imports nUpdate.Updating
    7. Imports System.IO
    9. Imports System.Runtime.InteropServices
    11. Imports System.Text
    13. 　
    15. 　
    17. 　
    19. 　
    21. Public Class Einstellungen
    23. Private Declare Ansi Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (
    25. ByVal lpApplicationName As String,
    27. ByVal lpKeyName As String,
    29. ByVal lpString As String,
    31. ByVal lpFileName As String) _
    33. As Integer
    35. 　
    37. Private Sub Einstellungen_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    39. If (e.Button = Windows.Forms.MouseButtons.Left) Then
    41. Me.Capture = False
    43. Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))
    45. Else : End If
    47. End Sub
    49. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    51. ' Deklaration der Pfadangabe
    53. Dim sAppPath As String
    55. sAppPath = Application.StartupPath
    57. ' TextFeld einem Wert zuweisen
    59. Dim ArmaD = TextBox1.Text
    61. Dim TeamspeakD = TextBox3.Text
    63. Dim Startparam = TextBox2.Text
    65. Dim AutoJa = CheckBox1.Checked
    67. 　
    69. 'INI Datei speichern
    71. WritePrivateProfileString("Einstellungen", "Arma 3 Pfad", ArmaD, sAppPath & "\Settings.ini")
    73. WritePrivateProfileString("Einstellungen", "Startparameter", Startparam, sAppPath & "\Settings.ini")
    75. WritePrivateProfileString("Einstellungen", "Teamspeak 3 Pfad", TeamspeakD, sAppPath & "\Settings.ini")
    77. WritePrivateProfileString("Einstellungen", "Automatische Updates", AutoJa, sAppPath & "\Settings.ini")
    79. Me.Close()
    81. End Sub
    83. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    85. Dim manager As New UpdateManager(New Uri("http://**********/launcher/updates.json"), ************ den Code habe ich extra entfernt :D
    87. Dim updaterUI As New UpdaterUI(manager, SynchronizationContext.Current)
    89. updaterUI.ShowUserInterface()
    91. updaterUI.UseHiddenSearch = True
    93. End Sub
    95. Private Sub Einstellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    97. ' Deklaration der Pfadangabe
    99. Dim sAppPath As String
    101. sAppPath = Application.StartupPath
    103. 'Wert einem String zuordnen
    105. Dim sb As StringBuilder
    107. sb = New StringBuilder(1024)
    109. 'INI Datei auslesen
    111. INI.Lesen("Einstellungen", "Arma 3 Pfad", "", sb, sb.Capacity, sAppPath & "\Settings.ini")
    113. TextBox1.Text = sb.ToString
    115. INI.Lesen("Einstellungen", "Startparameter", "", sb, sb.Capacity, sAppPath & "\Settings.ini")
    117. TextBox2.Text = sb.ToString
    119. INI.Lesen("Einstellungen", "Teamspeak 3 Pfad", "", sb, sb.Capacity, sAppPath & "\Settings.ini")
    121. TextBox3.Text = sb.ToString
    123. If INI.Lesen("Einstellungen", "Automatische Updates", "", sb, sb.Capacity, sAppPath & "\Settings.ini") = "True" Then
    125. CheckBox1.Checked = True
    127. Else
    129. CheckBox1.Checked = False
    131. End If
    133. End Sub
    135. End Class


    dazu gehört noch dieses schmucke ding

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Imports System.Text
    5. Public Class INI
    7. <DllImport("kernel32", EntryPoint:="GetPrivateProfileString")>
    9. Shared Function Lesen(
    11. ByVal Sektion As String, ByVal Key As String, ByVal StandartVal As String,
    13. ByVal Result As StringBuilder, ByVal Size As Int32, ByVal Dateiname As String) As Int32
    15. End Function
    17. End Class


    Ich verstehe leider nicht ganz was der Fehler ist hab schon einige Fehler von anderen gesehen jedoch kriege ich sie nicht auf "meinen" Code geändert. (ist nicht meiner ich nenne ihn mal nur so)
    Dies soll einfach abgespeichert werden und auch richtig angezeigt werden. Es soll eine Funktion für einen Automatisches Update mit nUpdate sein.- Es funktioniert alles bis auf diese Checkbox


    Mit freundlichen Grüßen

    Zeeanq

    Shared Function Lesen(....) As Int32 = "True"?!
    Dat geht auch nicht.

    Da mixt aber auch alles zusammen...
    True ist eigentlich nen Bool... den machst du mit "" zu nem String und vergleichst ihn mit ner Zahl... Also da solltest nochmal drüber nachdenken was du so tun willst.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Es soll nur einen Wert welchen auch immer ausgeben wenn der Haken gesetzt wurde. Standartmäßig setzt er ja ein True. Ich habe bisher auch keine Möglichkeit gefunden was anderes an der Stelle zu setzten.
    Mit Dropdown Liste wäre es doch wohl einfacher oder nicht?
    Warum habe ich nicht vorher dran gedacht.

    Hast du denn an anderer Stelle schonmal ne Ini eingelesen?
    Wobei ich von Inis eh abraten würde, da .Net ja My.Settings hat, welche dafür gedacht sind.
    Ich kenn deine INI Methode nu nicht ausm Kopf. Ich hab zwar auch irgendwo eine rumfliegen, aber ich glaub das bedienst nicht richtig.

    edit:
    Da hatte ich mal ne INI Klasse gepostet
    Datenbank Zugangsdaten von einer .INI Datei auslesen

    Es soll nur einen Wert welchen auch immer ausgeben wenn der Haken gesetzt wurde. Standartmäßig setzt er ja ein True

    Den Sinn versteh ich nu nicht so recht.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

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

    Zeeanq schrieb:

    in eine Externe ini File
    Nimm Settings und binde die entsprechenden Properties an entsprechende Settings. Alles .NET-konform. Die kannst Du auch lokal in einer Datei ablegen, gugst Du hier.
    Deine User sollten Entwicklungen im Sinne des technischen Fortschritts akzeptieren.
    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 habe es zwar hingekriegt das er das alles so speichert und ausliest wie ich das will jedoch habe ich ein anderes Problem.

    @RodFromGermany
    Ich danke dir für die Antwort jedoch ist das jetzt geklärt.

    Ich versuche jetzt grade einen Simplen Auto Updater der aus der Ini lessen soll ob Ja oder Nein drinne steht.
    Der Code hat aber nicht wirklich sinn gehabt.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub IoLLauncher_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Dim Ja As Boolean
    5. ' Deklaration der Pfadangabe
    7. Dim sAppPath As String
    9. sAppPath = Application.StartupPath
    11. 'Wert einem String zuordnen
    13. Dim sb As StringBuilder
    15. sb = New StringBuilder(1024)
    17. If INI.Lesen("Einstellungen", "Automatische Updates", "", sb, sb.Capacity, sAppPath & "\Settings.ini") = Ja Then
    19. Dim manager As New UpdateManager(New Uri("http://******/launcher/updates.json"), *****
    21. Dim updaterUI As New UpdaterUI(manager, SynchronizationContext.Current)
    23. updaterUI.ShowUserInterface()
    25. End If
    27. End Sub


    was mache ich denn falsch

    Zeeanq schrieb:

    ob Ja oder Nein drinne steht
    Da steht gewöhnlich noch viel mehr drinne.
    Also:
    Alle Gruppen auslesen, für jede Gruppe alle Einträge auslesen, jeden Eintrag einzeln auslesen und auswerten.
    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!

    Zeeanq schrieb:

    was genau du meinst
    Ich gehe davon aus, dass Du die Win-API-INI-Funktionen kennst:
    GetPrivateProfileSectionNames
    GetPrivateProfileSection
    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!

    Zeeanq schrieb:

    hier nicht weiter
    Dann solltest Du bereit sein, alles in Frage zu stellen.
    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!

    Zeeanq schrieb:

    ein wenig weiter hilft
    Hast Du dies schon gefunden?

    RodFromGermany schrieb:

    GetPrivateProfileSectionNames
    GetPrivateProfileSection
    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
Telefonspende