file editor

Titolo: file editor Ven Ott 26, 2007 6:59 pm

Codice:: ;...:::*$$_/'''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

praticamente è un notepad fatto in casa... mettete un percorso di un file gia esistente o da creare nella input e poi nella textarea mettete il testo da inserire...
se non mettete nessun percorso ma solo il nome di un file ve lo modifica (o crea) nella cartella in cui si trova questo script...
per chiarimenti.... chiedete, sono qui apposta.

Titolo: Re: file editor Lun Ott 29, 2007 6:20 pm

versione 1.1 appena modificata Wink

eccovi qui un'altra versione di FileEditor, questa invece dei pulsanti usa dei menu (guictrlcreatemenu),
oltre a questo ho anche apportato delle altre modifiche:
lettura di file esterni
modifica di file esterni
edit allargata
inserite delle label
uso delle hotkey:
ctrl a -> apre un file
ctrl s -> salva un file
ctrl e -> chiude fileeditor
ctrl i -> fornisce informazioni about me
purtroppo pero ho dovuto fare in modo che prima venisse cancellato il file da edtitare, e poi che ne venisse riscritto un'altro con le stesse informazioni piu quelle che avete aggiunto voi, chi di voi sa dirmi il perche?
non è molto difficile, se ci ragionate un'attimo capite subito di cosa si tratta... Wink

Codice:: #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

Titolo: Re: file editor Lun Nov 05, 2007 2:13 pm

trovo 2 difetti:
-la variabile $file la dichiari solo se premi "apri", quindi se fai salva la variabile non è stata dichiarata, e il programma si chiude
-le 4 funzioni sono inutili, in quanto non le usi
a parte questo, mi sembra a posto...

Titolo: Re: file editor Lun Nov 05, 2007 2:25 pm

scusate, ho sbagliato, le funzioni servono per le hotkey... però consiglio di usarle anche per il menu, così si risparmiano righe... per risolvere la cosa del $file, basta aggiungere alla funzione salva la riga:

Codice:: $file=guictrlread($input)

oppure si può cambiareil filedelete($file) in filedelete(guictrlread($input))

Titolo: Re: file editor Lun Nov 05, 2007 6:34 pm

beh, si, hai ragione.. la prima versione l'ho fatta solo per creare... la seconda solo per modificare...
grazie per le correzioni...

» [c]file editor
» AppleScript (Script Editor)
» [C]Inutility per la gestione file
» Inviare file con autoit da un computer all'altro?