Hallo.
Hier erst einmal das Script um das es geht.
Spoiler anzeigen
#include<GUIConstantsEx.au3>
$Form1 = GUICreate("Zahlenblock", 131, 171, 442, 396)
$Button1 = GUICtrlCreateButton("1", 8, 8, 33, 33, 0)
$Button2 = GUICtrlCreateButton("2", 48, 8, 33, 33, 0)
$Button3 = GUICtrlCreateButton("3", 88, 8, 33, 33, 0)
$Button4 = GUICtrlCreateButton("4", 8, 48, 33, 33, 0)
$Button5 = GUICtrlCreateButton("5", 48, 48, 33, 33, 0)
$Button6 = GUICtrlCreateButton("6", 88, 48, 33, 33, 0)
$Button7 = GUICtrlCreateButton("7", 8, 88, 33, 33, 0)
$Button8 = GUICtrlCreateButton("8", 48, 88, 33, 33, 0)
$Button9 = GUICtrlCreateButton("9", 88, 88, 33, 33, 0)
$Button10 = GUICtrlCreateButton("0", 48, 128, 33, 33, 0)
$Button11 = GUICtrlCreateButton("C", 8, 128, 33, 33, 0)
$Button12 = GUICtrlCreateButton("OK", 88, 128, 33, 33, 0)
GUISetState(@SW_SHOW)
_dateiloeschen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_dateiloeschen()
Exit
Case $Button1 ; 1
FileOpen("test.txt", 1)
FileWrite("test.txt", "1")
FileClose("test.txt")
MsgBox(0, "Test", FileRead("test.txt"))
Case $Button2 ; 2
FileOpen("test.txt", 1)
FileWrite("test.txt", "2")
FileClose("test.txt")
MsgBox(0, "Test", FileRead("test.txt"))
Case $Button3 ; 3
FileOpen("test.txt", 1)
FileWrite("test.txt", "3")
FileClose("test.txt")
MsgBox(0, "Test", FileRead("test.txt"))
#cs
Case $Button4 ; 4
Case $Button5 ; 5
Case $Button6 ; 6
Case $Button7 ; 7
Case $Button8 ; 8
Case $Button9 ; 9
Case $Button10 ; 0
#ce
Case $Button11 ; C
_dateileeren()
Case $Button12 ; OK
EndSwitch
WEnd
; löscht die Textdatei
Func _dateiloeschen()
if FileExists("test.txt") then
FileDelete("test.txt")
EndIf
EndFunc
Func _dateileeren()
FileOpen("test.txt", 2)
FileWrite("test.txt", "")
FileClose("test.txt")
EndFunc
Die Funktion _dateiloeschen() arbeitet nicht so wie sie soll. Sie soll die Datei test.txt unwiederruflich löschen. Aber das Scripüt macht gar nichts.
Laut aktueller Hilfe ist es richtig und die SuFu habe ich genutzt, um evtl. selber das Problem zu lösen, jedoch erfolglos.
LG, Lina.