NotizErsteller

xWerter

Hallo,

ich habe einen NotizErsteller geschrieben der euch eine Textdatei mit angegebenen Namen und Inhalt auf euren Desktop erstellt.

Spoiler anzeigen

AutoIt: NotizErsteller

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NotizErsteller v1.0", 615, 275, 192, 124)
GUISetBkColor(0x3F3F3F)
$TEXT = GUICtrlCreateInput("TEXT", 16, 40, 569, 21)
$DateiName = GUICtrlCreateInput("DateiName", 32, 72, 545, 21)
$DATUM = GUICtrlCreateLabel("Datum " &@MDAY &"." &@MON &"." &@YEAR, 40, 232, 147, 33)
$Speichern = GUICtrlCreateButton("Speichern", 192, 224, 209, 41)
$Label2 = GUICtrlCreateLabel("GEMACHT VON xWERTER", 8, 8, 139, 17)
GUICtrlSetBkColor(-1, 0x5B8C04)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Speichern
			$inhalt = GUICtrlRead($Text)
			$fileName = GUICtrlRead($Dateiname)
			_FileCreate($filename &".txt")
			$offen = FileOpen($filename &".txt")
			FileWrite($filename &".txt", $inhalt)
			Filemove($filename &".txt", @Desktopdir)
			FileClose($offen)




	EndSwitch
WEnd

Alles anzeigen

Ich würde mich über eure Meinung und Verbesserungsvorschläge freuen.

Neue Version

Spoiler anzeigen

AutoIt: Notizersteller v1.1

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <guiedit.au3>
#RequireAdmin
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NotizErstellter v1.1", 615, 437, 192, 124)
$Ersteller = GUICtrlCreateLabel("Gemacht von xWerter", 8, 8, 108, 17)
GUICtrlSetBkColor(-1, 0xD5462F)
$Datum = GUICtrlCreateLabel("Datum " &@MDAY &"." &@MON &"." &@YEAR, 8, 384, 99, 25)
$Speichern = GUICtrlCreateButton("Speichern", 152, 368, 225, 41)
$DeinText = GUICtrlCreateEdit("", 24, 48, 569, 145)
GUICtrlSetData(-1, "DeinText")
$DateiName = GUICtrlCreateInput("DateiName", 24, 208, 377, 21)
$List1 = GUICtrlCreateList("", 416, 200, 177, 58)
GUICtrlSetData(-1, " |.doc|.txt")
GUICtrlSetCursor (-1, 0)
$Loeschen = GUICtrlCreateButton("Dateien Löschen", 464, 416, 113, 17)
$Laden = GUICtrlCreateButton("TextDatei Laden", 344, 416, 113, 17)
$DANKE = GUICtrlCreateButton("DANKE", 0, 416, 113, 17)


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


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Speichern
			$inhalt = GUICtrlRead($DeinText)
			$name = GUICtrlRead($DateiName)
			$endung = GUICtrlRead($List1)
			$offen = FileOpen($name &$endung, 2)




			FileWrite($offen, $inhalt &@CRLF)
			FileWriteLine($offen, @Mday &"." &@Mon &"." &@Year &@CRLF)
			FileWriteLine($offen, @hour &":" &@Min & ":" &@Sec)
			Fileclose($offen)
			FileMove($name &$endung, @desktopdir)
			Case $Loeschen
$delete = FileOpenDialog("Welche Datei soll gelöscht werden?", @desktopdir , "Alle (*.*)")
FileDelete ($delete)
		Case $Laden


			$edit = FileOpenDialog("Welche Datei willst du Laden?", "", "Textdateien (*.txt;*.doc)")
			$inhalt = FileRead($edit)
		_GUICtrlEdit_SetText($DateiName, $edit)
		_GUICtrlEdit_SetText($DeinText, $inhalt)


		case $DANKE
			MsgBox(0, "Danke!", "Danke an Oscar und Bugfix für die Verbesserungsvorschläge")


	EndSwitch
WEnd

Alles anzeigen

Neue Version 2.0

Spoiler anzeigen

AutoIt: NotizManager v2.0

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <guiedit.au3>
#include <Misc.au3>
#RequireAdmin
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("NotizErsteller v2.0", 653, 439, 192, 124)
$Ersteller = GUICtrlCreateLabel("Gemacht von xWerter", 8, 8, 108, 17)
GUICtrlSetBkColor(-1, 0xD5BC78)
$DateiName = GUICtrlCreateInput("DateiName", 24, 232, 377, 21)
$Datum = GUICtrlCreateLabel("Datum " &@MDAY &"." &@MON &"." &@YEAR , 8, 384, 99, 25)
$Speichern = GUICtrlCreateButton("Speichern", 152, 368, 225, 41)
$DeinText = GUICtrlCreateEdit("DeinText", 24, 72, 569, 145)
GUICtrlSetData(-1, "DeinText")
$List1 = GUICtrlCreateList("", 416, 224, 177, 58)
GUICtrlSetData(-1, "|.doc|.txt")
GUICtrlSetCursor (-1, 0)
$Loeschen = GUICtrlCreateButton("Dateien Löschen", 464, 416, 113, 17)
$Laden = GUICtrlCreateButton("TextDatei Laden", 344, 416, 113, 17)
$DANKE = GUICtrlCreateButton("DANKE", 0, 416, 113, 17)
$Anleitung1 = GUICtrlCreateLabel("Hier Kommt rein was später einmal in deiner Datei stehen soll.", 24, 40, 556, 20)
$Anleitung2 = GUICtrlCreateLabel("hier kannst du deinen Dateinamen eintrage. Ohne Dateiendung!", 24, 264, 374, 41)
$Anleitung3 = GUICtrlCreateLabel("Hier kannst du deine Dateiendung auswählen", 416, 296, 220, 17)
$Zwischenablage = GUICtrlCreateCheckbox("Zwischenablage", 8, 336, 105, 25)
$Papierkorb = GUICtrlCreateCheckbox("Papierkorb", 8, 320, 105, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Speichern
			$inhalt = GUICtrlRead($DeinText)
			$name = GUICtrlRead($DateiName)
			$endung = GUICtrlRead($List1)
			$offen = FileOpen($name &$endung, 2)
			FileWrite($offen, $inhalt &@CRLF)
			FileWriteLine($offen, @Mday &"." &@Mon &"." &@Year &@CRLF)
			FileWriteLine($offen, @hour &":" &@Min & ":" &@Sec)
			Fileclose($offen)
			FileMove($name &$endung, @desktopdir)
			if GUICtrlRead($Zwischenablage) = 1 Then
			ClipPut($inhalt)
EndIf
		Case $Loeschen
			$lesen = GUICtrlRead($Papierkorb)
				$delete = FileOpenDialog("Welche Datei soll gelöscht werden?", @desktopdir , "Alle (*.*)")
			if MsgBox(262196,"Sicher?","Wollen Sie diese Datei wirklich löschen?") = 6 then
        MsgBox(0, "ok", "datei wird gelöscht...")
		FileDelete ($delete)


			$huhu = GUICtrlRead($Papierkorb)
		if GUICtrlRead($Papierkorb) = 1 Then
			FileRecycleEmpty("C:\")
		EndIf
			EndIf
			Case $Laden
			MsgBox(0, "Achtung", "Diese Funktion beinhaltet leider noch einen Fehler, deswegen musst du die Dateiendung nach den Laden aus den Dateinamenfeld löschen")
			$edit = FileOpenDialog("Welche Datei willst du Laden?", "", "Textdateien (*.txt;*.doc)")
			$inhalt = FileRead($edit)
		_GUICtrlEdit_SetText($DateiName, $edit)
		_GUICtrlEdit_SetText($DeinText, $inhalt)
		case $DANKE
			MsgBox(64,"Danke!","Danke an Oscar, BugFix, bernd670 und Kanashius")
		Case $Zwischenablage
	EndSwitch
WEnd

Alles anzeigen

MFG
xWerter

**Oscar**

Als Anfänger-Projekt ist das gut geeignet! Man lernt mit solchen kleinen Programmen sehr viel.
Erst mal ein paar Fehler, die Dir passiert sind:
1. _FileCreate ist überflüssig, weil FileOpen die Datei erstellt, wenn sie noch nicht vorhanden ist.
2. FileOpen, ohne zweiten Parameter öffnet die Datei nur zum lesen (0 = Lesemodus (Standard), 2 = Schreibmodus)
3. FileWrite musst Du dann mit dem Handle von FileOpen benutzen, anstatt dem Dateinamen.
4. FileMove erst nachdem Du das Handle ($offen) mit FileClose wieder geschlossen hast, ansonsten liegt noch ein Lock auf der Datei.

Du kannst das aber noch verbessern/ausbauen. Hier mal ein paar Vorschläge/Anregungen:
1. Den Speichern-Button nur aktivieren, wenn bereits ein Text eingegeben wurde.
2. Den Benutzer den Dateinamen über einen Dialog auswählen lassen. Stichwort: FileSaveDialog()
3. Fehlerbehandlung: wenn der Benutzer bereits den Dateinamen mit Endung eingibt, dann nicht mehr ".txt" anfügen.
4. Fehlerbehandlung: wenn FileOpen fehlschlägt (z.B. wegen fehlender Schreibrechte), wird "-1" zurückgegeben, statt des Handle. Das kann man mit If...Then abfangen.

**BugFix**

Ergänzend zu Oscars Tipps:

Notizdatei bearbeitbar machen (Notiz wählen, lesen/editieren/löschen)
Mehrere Notizen in einer Datei erfassen mit Datumsstempel (z.B. [JJJJ-MM-TT]) und mit Suche nach Datum ausgeben
Notiz als Termin mit Alarm

Das sind Dinge, die alle Facetten der Dateiarbeit abdecken und dir somit ein gutes Lernpolster geben. Das kann man dann später auch noch ausweiten mit Notizversand im Netzwerk - aber da sollten vorher erst mal die Grundlagen stehen.

xWerter

habe jetzt nochmal eine neue Version gepostet.

v2.0

Spoiler anzeigen

hinzugefügt wurde:
-möglichkeit beim löschen auch den Papierkorb leeren
-möglichkeit eingegebenen Text nach speichern auf in die Zwischenablage zu kopieren
-Sicherheitsabfragen
-DankeButton

Fehler:
-wie in der vorherigen Version(wird noch immer daran gearbeitet.)

hinzufügen möchte ich noch:
-speicherbutton ausgrauen

weitere Verbesserungsvorschläge wären mir sehr wichtig

v1.1

Spoiler anzeigen

hinzugefügt wurde:

-Datei Laden
-Datei Löschen
-Ein neues Format(*.doc)

Fehler sind noch vorhanden
Datei Laden: wichtig hierbei ist es das man wenn man bei der auswahlliste auf den leeren platzhalter klickt.

Hinzufügen möchte ich noch
-Speicherbutton ausgrauen

Danke an euer Feedback hat mich sehr gefreut das ich auf meine Fehler hingewiesen wurde und auch Verbesserungsvorschläge bekommen habe.

MFG
xWerter

weitere Verbesserungsvorschläge wären mir sehr wichtig

**bernd670**

Ein paar Tipps!

zum Code:

vor FileDelete solltest du noch eine Sicherheitsabfrage à la "Sind sie sicher?" einbauen
FileDelete und FileRead sollten nur aufgerufen werden, wenn auch eine Datei ausgewählt wurde
und nicht wenn man z. B. auf Abbrechen drückt.

zum Style:

schwarze Schrift auf dunkelrotem Hintergrund kann man nur schwer lesen
die Controls sollten so groß sein das der Text auch hineinpasst
Label zu den Controls, damit man auch weiss was das Control beinhaltet

xWerter

NEUE VERSION 2.0