Hi nochmal,
ich möchte wie gasagt den Inhalt des Edit Feneters als TXT abspeichern...In dem anderen Thread wurde mir ja auch schon geolfen, allerdings funktioniert es noch nicht; es kann ja auch noch gar nicht funktionieren...:
Case $MenuItem3
$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
$var = FileSaveDialog( "Wählen sie einen Namen!", $MyDocsFolder, "Textdokumente (*.ini;*.txt)", 2)
$inhalt = GUICtrlRead($input)
$fh = FileOpen($var, 1) ; zum Schreiben öffnen
FileWrite($fh, $inhalt)
FileClose($fh)
If @error Then
MsgBox(4096,"","Speichern abgebrochen.")
EndIF
Hierbei wird jetzt zwar eine .*txt Datei beschrieben, mit dem Inhalt des Edit Fensters, aber diese muss doch erstmal erstellt werden oder nicht?
Hier einmal das ganze Programm:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PC-Timer", 625, 445, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("Datei")
$MenuItem2 = GUICtrlCreateMenuItem("Drucken", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Speichern", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("Archiv")
$Button1 = GUICtrlCreateButton("OK", 550, 30, 50, 50)
$input = GUICtrlCreateEdit("", 96, 16, 424, 100)
$output = GUICtrlCreateEdit("", 96, 140, 424, 250, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
[/autoit] [autoit][/autoit] [autoit]Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem1
[/autoit] [autoit][/autoit] [autoit]Case $MenuItem2
$file = GUICtrlRead($input)
$print = _FilePrint($file)
[/autoit] [autoit][/autoit] [autoit]If $print Then
MsgBox(0, "Drucken ", "Die Datei wurde gedruckt. ")
Else
MsgBox(0, "Drucken ", "Fehler: " & @error & @CRLF & "Die Datei wurde nicht gedruckt. ")
EndIf
Case $MenuItem3
$MyDocsFolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
[/autoit] [autoit][/autoit] [autoit]$var = FileSaveDialog( "Wählen sie einen Namen!", $MyDocsFolder, "Textdokumente (*.ini;*.txt)", 2)
$inhalt = GUICtrlRead($input)
$fh = FileOpen($var, 1) ; zum Schreiben öffnen
FileWrite($fh, $inhalt)
FileClose($fh)
If @error Then
MsgBox(4096,"","Speichern abgebrochen.")
EndIF
Case $Button1
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($output, GUICtrlRead($input) & @CRLF, "1")
GUICtrlSetData($input, "")
GUICtrlSetState($input,$GUI_FOCUS)
EndSwitch
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit]