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