Integer aus einer .ini koreckt aus lesen Visual Studio 2017

10/24/2019 22:43 ProDielerNR(1)#1
Hallo mit einander ich habe ein problem
ich möchte gerne bei meinem kleinen project die zahl von einem label
was hoch gerechnet wird mit einem integer abspeichern und wieder auslesen
dies funktioniert jedoch nicht und ich weiß nicht genau warum.

Meine Deklaration
Code:
 Dim Punkte As Integer
Public WithEvents TP As New Label
Beim Anfang soll geschaut werden ob die datei mit der info exestiert
falls ja soll sie diese auslesen und die richtig zahl anzeigen,
wen sie nicht exestiert soll die zahl 0 verzeichnet werden

Code:
 If TP.Text = "Tode:" & " " & INI_ReadValueFromFile("Title", "Tode: ", "", ".\Death.ini").ToString Then
                Punkte = INI_ReadValueFromFile("Title", "Tode: ", "", ".\Death.ini").ToString
                TP.Text = "Tode:" & " " & Punkte
            Else
                TP.Text = "Tode:" & " " & "0"
                Me.TP.Font = New System.Drawing.Font("Arial", 15.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))
                Punkte = 0
            End If
wen man dann einen Punkt verzeichnet bekommen hatte soll es hier mit
die datei erstellt werden und gleichzeitig verzeichnet werden
Code:
INI_WriteValueToFile("Title", "Tode: ", Punkte, ".\Death.ini")

Im grunde geht es mir hierbei nur um das absichern und das auslesen
alles andere funktioniert tadellos

es wird auch abgesichert mit der neuen zahl die man im weiteren code verlauf bekommt nur das auslesen danach macht Schwierigkeiten :/

Closed Quest
10/25/2019 03:51 elmarcia#2
Don't know INI_ReadValueFromFile parameters, im assuming
(<section>,<key>,<default if fail>,<filename>),
Then we add "0" as default value, this works as follow, if can't find ini file because isn't created yet, or the key doesn't exists, will return default value when reading.

if so, no if clause needed since u don't need to check, also make sure to convert to int your string if u need an integer

replace:
Code:
 If TP.Text = "Tode:" & " " & INI_ReadValueFromFile("Title", "Tode: ", "", ".\Death.ini").ToString Then
                Punkte = INI_ReadValueFromFile("Title", "Tode: ", "", ".\Death.ini").ToString
                TP.Text = "Tode:" & " " & Punkte
            Else
                TP.Text = "Tode:" & " " & "0"
                Me.TP.Font = New System.Drawing.Font("Arial", 15.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))
                Punkte = 0
            End If
with:
Code:
Punkte = Convert.toInt32(INI_ReadValueFromFile("Title", "Tode: ", "0", ".\Death.ini").ToString)
TP.Text = "Tode:" & " " & Punkte