Blutdruck Zucker Datenbank

DummDumm

Guten Morgen,

ich wurd eheute gefragt, ob es auch möglich sei eine Datenbank Local zb TXT Datei zu haben.
Wo man dann über ein Tool eintragen kann wann man Gegessen hat Zuckerwert Blutdruck wert und nen Kleinen Timer der in einstellbarer zeit zur vollen stunde piept.

Das mit dem Sound, dem GUI ist kein Problem aber was ich net finde ist ein ANhaltspunkt oder beispiel script zum arbeiten mit
einem TXT Script wie ich reinschreibe und auslese.

Ev kann mir jemand helfen?

Gruß

PS Hinweise zu befeheln reichen mir aus will ja auch was dabei lernen

Eistee

filewrite/fileread oder
wenn man es auch mit einer ini lösen möchte
iniwrite

guck dir das ma inner hilfe an

**funkey**

Ich würde am besten mit _FileWriteLog die Daten in eine Text-Datei schreiben und mit _FileReadToArray das ganze wieder einlesen.

[autoit]

FileRead
FileWrite
IniRead
IniWrite
_FileWriteFromArray
_FileWriteLog
_FileReadToArray

[/autoit]

DummDumm

Hat ev doch jemand ein Beispiel *schäm*
glaube ich bin etwas überfordert gerade

denn wenn ich das mache:

[autoit]

IniWrite("test.ini", "Blutdruck", "Datuml", $blutdruck)
IniWrite("test.ini", "Zuckerwert", "Datuml", $zucker)

[/autoit]

schreibt er das doch in die Datei rein, wenn aber nun neue werte dazu kommen, fängt er dann immer ne neue Sektion an?
Und was ich nciht finde ist hier:
http://www.autoit.de/dokumentation_…ons/IniRead.htm

wie ich komplett die Ini dann sortiert in ner Tabelle zb anzeigen lassen kann .

Eistee

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 255, 92, 193, 115)
$Input1 = GUICtrlCreateInput("Zuckerwert", 0, 0, 121, 21)
$Input2 = GUICtrlCreateInput("Blutdruck", 128, 0, 121, 21)
$Button1 = GUICtrlCreateButton("Speichern", 56, 40, 123, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_1 ()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _1 ()
IniWrite("test.txt","1","Zucker" ,GUICtrlRead($Input1))
sleep (500)
IniWrite("test.txt","2","Blutdruck" ,GUICtrlRead($Input2))
Exit
EndFunc

[/autoit]

damit sollteste was anfangen können

DummDumm

Ah okay das script habe ich verstnadne, also kann ich so aber zb keine History machen oder?
Das ich im endefekt abrufen kann,
Wo ich direkt im endefekt in ner Tabelle den Verlaf habe

Eistee

hmm... ne history ist sicher möglich ich wüsste jetzt nicht genau wie aber ansonsten kannste die ini ja auslesen lassen.

DummDumm

So ein teilerfolg habe ich
Einzelhistory ist möglich und das eintragen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include<File.au3>
#Region ### START Koda GUI section ### Form=
$Eintragen = GUICreate("Maris Datensammler", 304, 330, 192, 124)
$Eintragen2 = GUICtrlCreateMenu("About")
$Eintragen6 = GUICtrlCreateMenuItem("Daten Eintragen", $Eintragen2)
$Eintragen9 = GUICtrlCreateMenuItem("", $Eintragen2)
$Eintragen8 = GUICtrlCreateMenuItem("Help", $Eintragen2)
$Eintragen7 = GUICtrlCreateMenuItem("Version", $Eintragen2)
$Eintragen1 = GUICtrlCreateMenu("Auslesen")
$Eintragen3 = GUICtrlCreateMenuItem("Zuckerwerte", $Eintragen1)
$Eintragen4 = GUICtrlCreateMenuItem("Blutdruckwerte", $Eintragen1)
$Eintragen5 = GUICtrlCreateMenuItem("Essensdaten", $Eintragen1)
$Eintragen10 = GUICtrlCreateMenuItem("Puls", $Eintragen1)
$Eintragen11 = GUICtrlCreateMenuItem("Medikament", $Eintragen1)
$Eintragen12 = GUICtrlCreateMenuItem("Gewicht", $Eintragen1)
$Eintragen13 = GUICtrlCreateMenuItem("Broteinheiten", $Eintragen1)
$Input1 = GUICtrlCreateInput("000/00", 176, 16, 121, 21)
$Input2 = GUICtrlCreateInput("000", 176, 48, 121, 21)
$Input3 = GUICtrlCreateInput("00", 176, 80, 121, 21)
$Input4 = GUICtrlCreateInput("xxxxxxx", 176, 112, 121, 21)
$Input5 = GUICtrlCreateInput("00", 176, 144, 121, 21)
$Input6 = GUICtrlCreateInput("Medikament 0000", 176, 176, 121, 21)
$Input7 = GUICtrlCreateInput("000", 176, 206, 121, 21)
$Label1 = GUICtrlCreateLabel("Blutdruckwert", 48, 16, 69, 17)
$Label2 = GUICtrlCreateLabel("Zuckerwert", 48, 48, 58, 17)
$Label3 = GUICtrlCreateLabel("Gewicht", 48, 80, 43, 17)
$Label4 = GUICtrlCreateLabel("Essensart", 48, 112, 50, 17)
$Label5 = GUICtrlCreateLabel("Broteinheiten", 48, 144, 66, 17)
$Label6 = GUICtrlCreateLabel("Medikamente", 48, 176, 68, 17)
$Label7 = GUICtrlCreateLabel("Puls", 48, 206, 68, 17)
$Button1 = GUICtrlCreateButton("Eintragen", 48, 236, 75, 25, $WS_GROUP)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case -3
exit
Case $Eintragen6
GUISetState(@SW_SHOW, $Eintragen)

[/autoit] [autoit][/autoit] [autoit]

Case $Eintragen3
_zucker ()

[/autoit] [autoit][/autoit] [autoit]

Case $Eintragen4
_blut ()

[/autoit] [autoit][/autoit] [autoit]

Case $Eintragen5
_essen ()

[/autoit] [autoit][/autoit] [autoit]

Case $Eintragen10
_puls ()

[/autoit] [autoit][/autoit] [autoit]

Case $Eintragen11
_medis ()

[/autoit] [autoit][/autoit] [autoit]

Case $Eintragen12
_gewicht ()

[/autoit] [autoit][/autoit] [autoit]

Case $Eintragen13
_be ()

[/autoit] [autoit][/autoit] [autoit]

Case $Button1
Global $blutdruck = GUICtrlRead($Input1)
Global $zuckerwert = GUICtrlRead($Input2)
Global $gewicht = GUICtrlRead($Input3)
Global $essen = GUICtrlRead($Input4)
Global $broteinheit = GUICtrlRead($Input5)
Global $medikamen = GUICtrlRead($Input6)
Global $puls = GUICtrlRead($Input7)

[/autoit] [autoit][/autoit] [autoit]

_Eintragen ()

[/autoit] [autoit][/autoit] [autoit]

Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Eintragen ()
;
_FileWriteLog("Zucker.log", $zuckerwert)
;
_FileWriteLog("Blutdruck.log", $blutdruck)
;
_FileWriteLog("Gewicht.log", $gewicht)
;
_FileWriteLog("Essen.log", $essen)
;
_FileWriteLog("Broteinheit.log", $broteinheit)
;
_FileWriteLog("Medikament.log", $medikamen)
;
_FileWriteLog("Puls.log", $puls)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _zucker ()
$datei = FileOpen("Zucker.log", 0)

[/autoit] [autoit][/autoit] [autoit]

; Überprüfe ob die Datei geöffnet werden konnte
If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Lese 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
$buchstabe = FileRead($datei)
If @error = -1 Then ExitLoop
MsgBox(0, "Zuckerwerte:", $buchstabe)
Wend

[/autoit] [autoit][/autoit] [autoit]

FileClose($datei)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _blut ()
$datei = FileOpen("Blutdruck.log", 0)

[/autoit] [autoit][/autoit] [autoit]

; Überprüfe ob die Datei geöffnet werden konnte
If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Lese 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
$buchstabe = FileRead($datei)
If @error = -1 Then ExitLoop
MsgBox(0, "Blutdruck:", $buchstabe)
Wend

[/autoit] [autoit][/autoit] [autoit]

FileClose($datei)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _gewicht ()
$datei = FileOpen("Gewicht.log", 0)

[/autoit] [autoit][/autoit] [autoit]

; Überprüfe ob die Datei geöffnet werden konnte
If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Lese 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
$buchstabe = FileRead($datei)
If @error = -1 Then ExitLoop
MsgBox(0, "Gewichtsverlauf:", $buchstabe)
Wend

[/autoit] [autoit][/autoit] [autoit]

FileClose($datei)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _puls ()
$datei = FileOpen("Puls.log", 0)

[/autoit] [autoit][/autoit] [autoit]

; Überprüfe ob die Datei geöffnet werden konnte
If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Lese 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
$buchstabe = FileRead($datei)
If @error = -1 Then ExitLoop
MsgBox(0, "Pulswerte:", $buchstabe)
Wend

[/autoit] [autoit][/autoit] [autoit]

FileClose($datei)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _essen ()
$datei = FileOpen("Essen.log", 0)

[/autoit] [autoit][/autoit] [autoit]

; Überprüfe ob die Datei geöffnet werden konnte
If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Lese 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
$buchstabe = FileRead($datei)
If @error = -1 Then ExitLoop
MsgBox(0, "Essensübersicht:", $buchstabe)
Wend

[/autoit] [autoit][/autoit] [autoit]

FileClose($datei)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _be ()
$datei = FileOpen("Broteinheit.log", 0)

[/autoit] [autoit][/autoit] [autoit]

; Überprüfe ob die Datei geöffnet werden konnte
If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Lese 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
$buchstabe = FileRead($datei)
If @error = -1 Then ExitLoop
MsgBox(0, "Broteinheit:", $buchstabe)
Wend

[/autoit] [autoit][/autoit] [autoit]

FileClose($datei)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _medis ()
$datei = FileOpen("Medikament.log", 0)

[/autoit] [autoit][/autoit] [autoit]

; Überprüfe ob die Datei geöffnet werden konnte
If $datei = -1 Then
MsgBox(0, "Error", "Konnte Datei nicht öffnen.")
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

; Lese 1 Buchstabe gleichzeitig bis das Ende der Datei erreicht wurde
While 1
$buchstabe = FileRead($datei)
If @error = -1 Then ExitLoop
MsgBox(0, "Medikamentenübersicht:", $buchstabe)
Wend

[/autoit] [autoit][/autoit] [autoit]

FileClose($datei)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

Leider fehlt mir nun noch die möglichkeit alles zusammen in einer Tabelle anzeigen zu lassen.
und das dann auszudrucken, da finde ich auch keine idee oder lösung in den Hilfeseiten

DummDumm

Habe das nun auch gelöst mit

_FileWriteLog("Gesamt.csv", $zuckerwert & ";" & $blutdruck & ";" & $gewicht & ";" & $broteinheit & ";" & $medikamen & ";" & $tab)

und werde die CSV dann in Exel öffnen und drucken

Danke für die hilfestellungen

Eistee

gerne