;...:::*$$_/'''made up by darkjoker'''\_$$*:::...
#include <GUIConstants.au3>
#include <File.au3>
GUICreate("File editor", 250, 350)
$input = GUICtrlCreateInput ("inserire il nome del file da creare o editare", 10, 30)
$edit = GUICtrlCreateEdit ("inserire il testo da inserire nel file", 10, 100)
$ok = GUICtrlCreateButton ("Ok", 70, 300, 100, 30)
$about = GUICtrlCreateButton ("About the author", 70, 265, 100, 30)
GUISetState ()   

While 1
    $msg = GUIGetMsg()
    Select
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   case $msg = $ok
      if not FileExists (guictrlread ($input)) Then
         _FileCreate (guictrlread ($input))
      EndIf
      FileOpen(guictrlread ($input), 1)
      FileWriteLine (guictrlread ($input), guictrlread ($edit))
   case $msg = $about
      MsgBox (32, "About the author", "File editor è stato creato da darkjoker"&@crlf&"http://xhack.forumitalian.net")
    EndSelect
Wend

#include <GUIConstants.au3>
#include <File.au3>
GUICreate("File editor", 500, 500)
$menu1 = guictrlcreatemenu ("File")
$obj_menu1 = GUICtrlCreateMenuItem ("Apri", $menu1)
$obj_menu2 = GUICtrlCreateMenuItem ("Salva", $menu1)
$obj_menu3 = GUICtrlCreateMenuItem ("Esci", $menu1)
$menu2 = GUICtrlCreateMenu ("About")
$obj_menu4 = GUICtrlCreateMenuItem ("About the author", $menu2)
GUICtrlCreateLabel ("inserire il nome del file da creare o editare", 10, 20)
$input = GUICtrlCreateInput ("", 230, 15, 260)
GUICtrlCreateLabel ("inserire il testo da inserire nel file", 10, 50)
$edit = GUICtrlCreateEdit ("", 10, 65, 480,400)
GUISetState ()   
HotKeySet ("^a", 'apri')
HotKeySet ("^s", 'salva')
HotKeySet ("^e", 'esci')
HotKeySet ("^i", 'info')
While 1
    $msg = GUIGetMsg()
    Select
      case $msg = $obj_menu1
         $file = FileOpenDialog("Selezionare file",@DesktopDir,"All (*.*)")
      GUICtrlSetData ($edit, FileRead ($file ))
         GUICtrlSetData ($input, $file)
   Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
   case $msg = $obj_menu2
      filedelete ($file)
         _FileCreate (guictrlread ($input))
      FileOpen(guictrlread ($input), 1)
      FileWriteLine (guictrlread ($input), guictrlread ($edit))
   case $msg = $obj_menu4
      MsgBox (32, "About the author", "File editor è stato creato da darkjoker"&@crlf&"http://xhack.forumitalian.net")
   case $msg = $obj_menu3
      ExitLoop
    EndSelect
Wend
func apri ()
   $file = FileOpenDialog("Selezionare file",@DesktopDir,"All (*.*)")
   GUICtrlSetData ($edit, FileRead ($file ))
   GUICtrlSetData ($input, $file)
EndFunc
func salva ()
   filedelete ($input)
   _FileCreate (guictrlread ($input))
   FileOpen(guictrlread ($input), 1)
   FileWriteLine (guictrlread ($input), guictrlread ($edit))
EndFunc
func esci ()
   Exit
EndFunc
func info ()
   MsgBox (32, "About the author", "File editor è stato creato da darkjoker"&@crlf&"http://xhack.forumitalian.net")
EndFunc

$file=guictrlread($input)