Statistik und Ini

WhiteHorse

Hallo ich stehe vor ein Problem und weiß nicht, wie ich es umsetzen soll.

Ich habe ich mir eine Anrufstatistik gebastelt diese wird automatisch gefüttert in einer ini Datei

jetzt habe ich mir den Spaß gemacht und habe mir eine GUI erstellt die mir diese Statistik besser und genauer anzeigt, Script teile ich hier gleich

die Statistik wird aufgezeichnet, sobald man sein Programm startet darum geht es aber nicht es geht nur um das Auslesen und das Datum in die Combobox eintragen sowie rechts in das Edit Fenster nach jedem Start wird eine neue Section in der ini datei geschrieben Anrufe Name sowie Datum usw das Datum taucht nur einmal in jeder section auf

Ich möchte ganz gerne das wenn man die GUI hier startet er schaut in die ini Datum 13.07.2024 14.07.2024 15.07.2024. 16.07.2024 und jedes Datum hat andere Werte und diese werte Sollen in das Edit und in der Combo steht dann das Datum damit man auch einen verlauf hat

Hier mein beispiel Script:

AutoIt

$ini = @ScriptDir & 'Stats.ini'

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#include <Date.au3>

;Varialen
Global $StatsZahlListe				= 1												;kann ggf überarbeitet werden weiß garnicht mehr wieso ich das hier an der Stelle geschrieben habe
Local Const $sIniSection			= $StatsZahlListe
Global $DatumStats					= IniRead($ini, $sIniSection, "Datum", "default")
Global $AnrufeStats					= IniRead($ini, $sIniSection, "Anrufe", "default")
Global $VerpassteAnrufeStats 		= IniRead($ini, $sIniSection, "Verpasste Anrufe", "default")
Global $ZurueckgerufenStats 		= IniRead($ini, $sIniSection, "Zurückgerufen", "default")
Global $NameStats 					= IniRead($ini, $sIniSection, "Name", "default")
Global $WeggedruecktStats 			= IniRead($ini, $sIniSection, "Weggedrückt", "default")








#Region MainMenu erstellung
$MainMenu = GUICreate("Anrufe Legende", 939, 569, 223, 141)

$LabelMainMenu = GUICtrlCreateLabel("Anrufe Legende", 369, 16, 201, 29)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")


$GroupRechts = GUICtrlCreateGroup("", 640, 56, 289, 481)


$InfoStatistik = GUICtrlCreateEdit("", 648, 72, 273, 457, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_BORDER))
GUICtrlSetData(-1, StringFormat("            STATISTIK\r\n\r\n\r\nDatum: "&$DatumStats&"\r\n\r\n\r\nAnrufe: "&$AnrufeStats&"\r\n\r\n\r\nVerpasste: "&$VerpassteAnrufeStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nZurückgerufen: "&$ZurueckgerufenStats&"\r\n\r\n\r\nName: "&$NameStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nWeggedrückt: "&$WeggedruecktStats&"\r\n\r\n"))
GUICtrlSetFont(-1, 10, 800, 0, "DejaVu Sans Mono")
GUICtrlCreateGroup("", -99, -99, 1, 1)

$GroupMitte = GUICtrlCreateGroup("", 336, 88, 273, 169)


$ButtonSchliessen = GUICtrlCreateButton("Schließen", 359, 180, 227, 57)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)


$GroupMitteStats = GUICtrlCreateGroup("", 336, 264, 273, 273)


$ComboStatsWahl = GUICtrlCreateCombo("", 344, 304, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "");hier sollten die Datums angezeigt werden jedes Datum hat ihr eigenes Abteil bedeutet das Datum kommt nur einmal in der Kompletten Statistik vor
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)


$LabelStats = GUICtrlCreateLabel("Statistik wählen", 424, 280, 111, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")


$ButtonLoeschen = GUICtrlCreateButton("Löschen", 520, 496, 75, 25)		;Wenn Datum gewählt wurde in der Combo und man klickt auf Löschen soll die Statistik die gewählt wurde gelöscht werden aus der InI
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetCursor (-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW)


Global $Ergebnis = 0
#EndRegion MainMenu erstellung


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit



		Case $ButtonLoeschen
			;Funktion noch nicht umgesetzt ???


		Case $ComboStatsWahl



		Case $ButtonSchliessen
			Exit

	EndSwitch
WEnd

Alles anzeigen

Ich teile hier auch nochmal die ini Datei vielleicht hat jemand eine Idee?

Stats.7z

MojoeB

C

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Array.au3>

Global $ini = @ScriptDir & '\Stats.ini'
Global $sections

; GUI erstellen
$MainMenu = GUICreate("Anrufe Legende", 939, 569, 223, 141)
$LabelMainMenu = GUICtrlCreateLabel("Anrufe Legende", 369, 16, 201, 29)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$GroupRechts = GUICtrlCreateGroup("", 640, 56, 289, 481)
$InfoStatistik = GUICtrlCreateEdit("", 648, 72, 273, 457, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_BORDER))
GUICtrlSetFont(-1, 10, 800, 0, "DejaVu Sans Mono")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupMitte = GUICtrlCreateGroup("", 336, 88, 273, 169)
$ButtonSchliessen = GUICtrlCreateButton("Schließen", 359, 180, 227, 57)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetCursor(-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupMitteStats = GUICtrlCreateGroup("", 336, 264, 273, 273)
$ComboStatsWahl = GUICtrlCreateCombo("", 344, 304, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor(-1, 0)
$LabelStats = GUICtrlCreateLabel("Statistik wählen", 424, 280, 111, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$ButtonLoeschen = GUICtrlCreateButton("Löschen", 520, 496, 75, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetCursor(-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

; Funktionen

Func LoadSections()
    $sections = IniReadSectionNames($ini)
    If @error Then
        MsgBox(0, "Fehler", "Die INI-Datei konnte nicht gelesen werden.")
        Exit
    EndIf

    GUICtrlSetData($ComboStatsWahl, "")
    For $i = 1 To $sections[0]
        Local $Datum = IniRead($ini, $sections[$i], "Datum", "")
        If $Datum <> "" Then
            GUICtrlSetData($ComboStatsWahl, $Datum, True)
        EndIf
    Next
EndFunc

Func DisplayStats($section)
    Local $DatumStats = IniRead($ini, $section, "Datum", "default")
    Local $AnrufeStats = IniRead($ini, $section, "Anrufe", "default")
    Local $VerpassteAnrufeStats = IniRead($ini, $section, "Verpasste Anrufe", "default")
    Local $ZurueckgerufenStats = IniRead($ini, $section, "Zurückgerufen", "default")
    Local $NameStats = IniRead($ini, $section, "Name", "default")
    Local $WeggedruecktStats = IniRead($ini, $section, "Weggedrückt", "default")

    Local $data = StringFormat("            STATISTIK\r\n\r\n\r\nDatum: "&$DatumStats&"\r\n\r\n\r\nAnrufe: "&$AnrufeStats&"\r\n\r\n\r\nVerpasste: "&$VerpassteAnrufeStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nZurückgerufen: "&$ZurueckgerufenStats&"\r\n\r\n\r\nName: "&$NameStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nWeggedrückt: "&$WeggedruecktStats&"\r\n\r\n")
    GUICtrlSetData($InfoStatistik, $data)
EndFunc

Func DeleteStats($section)
    IniDelete($ini, $section)
    LoadSections()
    GUICtrlSetData($InfoStatistik, "")
EndFunc

; Initialisierung
LoadSections()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonLoeschen
            Local $selectedDate = GUICtrlRead($ComboStatsWahl)
            If $selectedDate <> "" Then
                For $i = 1 To $sections[0]
                    If IniRead($ini, $sections[$i], "Datum", "") = $selectedDate Then
                        DeleteStats($sections[$i])
                        ExitLoop
                    EndIf
                Next
            EndIf
        Case $ComboStatsWahl
            Local $selectedDate = GUICtrlRead($ComboStatsWahl)
            If $selectedDate <> "" Then
                For $i = 1 To $sections[0]
                    If IniRead($ini, $sections[$i], "Datum", "") = $selectedDate Then
                        DisplayStats($sections[$i])
                        ExitLoop
                    EndIf
                Next
            EndIf
        Case $ButtonSchliessen
            Exit
    EndSwitch
WEnd

Alles anzeigen

Das sollte das ziel sein oder ?

**Moombas**

Ich habe mal etwas "aufgeräumt" was Deklarationen und Zuweisungen angeht:

AutoIt

Opt('MustDeclareVars', 1)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

;Varialen
Global Const $ini 					= @ScriptDir & 'Stats.ini'
;~ Global $StatsZahlListe				= 1												;kann ggf überarbeitet werden weiß garnicht mehr wieso ich das hier an der Stelle geschrieben habe
Global Const $sIniSection			= 1
Global $DatumStats					= IniRead($ini, $sIniSection, "Datum", "default")
Global $AnrufeStats					= IniRead($ini, $sIniSection, "Anrufe", "default")
Global $VerpassteAnrufeStats 		= IniRead($ini, $sIniSection, "Verpasste Anrufe", "default")
Global $ZurueckgerufenStats 		= IniRead($ini, $sIniSection, "Zurückgerufen", "default")
Global $NameStats 					= IniRead($ini, $sIniSection, "Name", "default")
Global $WeggedruecktStats 			= IniRead($ini, $sIniSection, "Weggedrückt", "default")
Global $Ergebnis 					= 0
Global $nMsg

#Region MainMenu erstellung
Global $MainMenu = GUICreate("Anrufe Legende", 939, 569, 223, 141)

Global $LabelMainMenu = GUICtrlCreateLabel("Anrufe Legende", 369, 16, 201, 29)
	GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")

Global $GroupRechts = GUICtrlCreateGroup("", 640, 56, 289, 481)

Global $InfoStatistik = GUICtrlCreateEdit("", 648, 72, 273, 457, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_BORDER))
	GUICtrlSetData(-1, StringFormat("            STATISTIK\r\n\r\n\r\nDatum: "&$DatumStats&"\r\n\r\n\r\nAnrufe: "&$AnrufeStats&"\r\n\r\n\r\nVerpasste: "&$VerpassteAnrufeStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nZurückgerufen: "&$ZurueckgerufenStats&"\r\n\r\n\r\nName: "&$NameStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nWeggedrückt: "&$WeggedruecktStats&"\r\n\r\n"))
	GUICtrlSetFont(-1, 10, 800, 0, "DejaVu Sans Mono")
	GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $GroupMitte = GUICtrlCreateGroup("", 336, 88, 273, 169)

Global $ButtonSchliessen = GUICtrlCreateButton("Schließen", 359, 180, 227, 57)
	GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
	GUICtrlSetCursor (-1, 0)
	GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $GroupMitteStats = GUICtrlCreateGroup("", 336, 264, 273, 273)

Global $ComboStatsWahl = GUICtrlCreateCombo("", 344, 304, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
	GUICtrlSetData(-1, "");hier sollten die Datums angezeigt werden jedes Datum hat ihr eigenes Abteil bedeutet das Datum kommt nur einmal in der Kompletten Statistik vor
	GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
	GUICtrlSetCursor (-1, 0)

Global $LabelStats = GUICtrlCreateLabel("Statistik wählen", 424, 280, 111, 20)
	GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

Global $ButtonLoeschen = GUICtrlCreateButton("Löschen", 520, 496, 75, 25)		;Wenn Datum gewählt wurde in der Combo und man klickt auf Löschen soll die Statistik die gewählt wurde gelöscht werden aus der InI
	GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
	GUICtrlSetColor(-1, 0x800000)
	GUICtrlSetCursor (-1, 0)
	GUICtrlCreateGroup("", -99, -99, 1, 1)

	GUISetState(@SW_SHOW)
#EndRegion MainMenu erstellung


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $ButtonLoeschen
			;Funktion noch nicht umgesetzt ???
		Case $ComboStatsWahl

		Case $ButtonSchliessen
			Exit
	EndSwitch
WEnd

Alles anzeigen

Nun zum eigentlichen Problem:

Warum nimmst du nicht 1 Label je Eintrag anstatt alles in ein Edit zu "quetschen"?
Das würde vieles schon mal einfacher machen. Den Rest schaue ich mir gerade mal an.

Edit: Damn MojoeB warst du schnell.

MojoeB

Zitat von Moombas

Edit: Damn MojoeB warst du schnell.

das habe ich auf die schnelle gemacht für meine Projekte mit guis, gehe ich etwas anders vor, ist aber Geschmackssache.
Ich bevorzuge eine Globale Variable für das gesamte zusammenhängende GUI Gerüst, und für jede weitere GUI eine neue Globale Variable.

**Moombas**

Ich meinte damit das ganze (mit den Funktionen) MojoeB

MojoeB

achso naja er hat es ja bereits vorgelegt und ausreichend gesagt was er braucht, also habe ich zum ende gebracht.

WhiteHorse

Ich bin aktuell noch unterwegs und probiere es dann sobald ich zuhause bin Danke 😊👍

Ich habe das in ein Edit gepackt weil so habe ich das gleich alles in einer zeile mit Umbruch sonst hätte ich jedes Label Positionieren müssen 😅

WhiteHorse

Zitat von MojoeB

C

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Array.au3>

Global $ini = @ScriptDir & '\Stats.ini'
Global $sections

; GUI erstellen
$MainMenu = GUICreate("Anrufe Legende", 939, 569, 223, 141)
$LabelMainMenu = GUICtrlCreateLabel("Anrufe Legende", 369, 16, 201, 29)
GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
$GroupRechts = GUICtrlCreateGroup("", 640, 56, 289, 481)
$InfoStatistik = GUICtrlCreateEdit("", 648, 72, 273, 457, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_BORDER))
GUICtrlSetFont(-1, 10, 800, 0, "DejaVu Sans Mono")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupMitte = GUICtrlCreateGroup("", 336, 88, 273, 169)
$ButtonSchliessen = GUICtrlCreateButton("Schließen", 359, 180, 227, 57)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetCursor(-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupMitteStats = GUICtrlCreateGroup("", 336, 264, 273, 273)
$ComboStatsWahl = GUICtrlCreateCombo("", 344, 304, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor(-1, 0)
$LabelStats = GUICtrlCreateLabel("Statistik wählen", 424, 280, 111, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$ButtonLoeschen = GUICtrlCreateButton("Löschen", 520, 496, 75, 25)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetCursor(-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

; Funktionen

Func LoadSections()
    $sections = IniReadSectionNames($ini)
    If @error Then
        MsgBox(0, "Fehler", "Die INI-Datei konnte nicht gelesen werden.")
        Exit
    EndIf

    GUICtrlSetData($ComboStatsWahl, "")
    For $i = 1 To $sections[0]
        Local $Datum = IniRead($ini, $sections[$i], "Datum", "")
        If $Datum <> "" Then
            GUICtrlSetData($ComboStatsWahl, $Datum, True)
        EndIf
    Next
EndFunc

Func DisplayStats($section)
    Local $DatumStats = IniRead($ini, $section, "Datum", "default")
    Local $AnrufeStats = IniRead($ini, $section, "Anrufe", "default")
    Local $VerpassteAnrufeStats = IniRead($ini, $section, "Verpasste Anrufe", "default")
    Local $ZurueckgerufenStats = IniRead($ini, $section, "Zurückgerufen", "default")
    Local $NameStats = IniRead($ini, $section, "Name", "default")
    Local $WeggedruecktStats = IniRead($ini, $section, "Weggedrückt", "default")

    Local $data = StringFormat("            STATISTIK\r\n\r\n\r\nDatum: "&$DatumStats&"\r\n\r\n\r\nAnrufe: "&$AnrufeStats&"\r\n\r\n\r\nVerpasste: "&$VerpassteAnrufeStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nZurückgerufen: "&$ZurueckgerufenStats&"\r\n\r\n\r\nName: "&$NameStats&"\r\n\r\n\r\nPlatzhalter:\r\n\r\n\r\nWeggedrückt: "&$WeggedruecktStats&"\r\n\r\n")
    GUICtrlSetData($InfoStatistik, $data)
EndFunc

Func DeleteStats($section)
    IniDelete($ini, $section)
    LoadSections()
    GUICtrlSetData($InfoStatistik, "")
EndFunc

; Initialisierung
LoadSections()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ButtonLoeschen
            Local $selectedDate = GUICtrlRead($ComboStatsWahl)
            If $selectedDate <> "" Then
                For $i = 1 To $sections[0]
                    If IniRead($ini, $sections[$i], "Datum", "") = $selectedDate Then
                        DeleteStats($sections[$i])
                        ExitLoop
                    EndIf
                Next
            EndIf
        Case $ComboStatsWahl
            Local $selectedDate = GUICtrlRead($ComboStatsWahl)
            If $selectedDate <> "" Then
                For $i = 1 To $sections[0]
                    If IniRead($ini, $sections[$i], "Datum", "") = $selectedDate Then
                        DisplayStats($sections[$i])
                        ExitLoop
                    EndIf
                Next
            EndIf
        Case $ButtonSchliessen
            Exit
    EndSwitch
WEnd

Alles anzeigen

Das sollte das ziel sein oder ?

Danke so habe ich mir das vorgestellt ich danke dir
und Moombas