#include <file.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#region variabili
$a = 0
$b = 0
$c = 0
$d = 0
$e = 0
$f = 30
$g = 1
#endregion
if Not InetRead("http://tecguide.altervista.org/imageorganizer.txt") = "2.1" Then
$aggiornamento = MsgBox(4,"","č presente una nuova versione del programma lo scarico sul tuo desktop?")
if $aggiornamento = 6 Then inetget("http://tecguide.altervista.org/imageorganizer.exe",@DesktopDir & "\image organizer.exe")
EndIf
$Form1 = GUICreate("IMAGE ORAGNIZZER V2", 675, 443, 192, 124)
GUISetBkColor(0xC0C0C0)
#region menu
$MenuItem1 = GUICtrlCreateMenu(" file ")
$chiudi = GUICtrlCreateMenuItem("esci", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenu(" lista ")
$cartella = GUICtrlCreateMenu(" cartella di destinazione ")
$avanzate = GUICtrlCreateMenu(" opzioni avanzate")
$cache= GUICtrlCreateMenuItem("svuota la cache", $avanzate)
$aggiungi = GUICtrlCreateMenuItem("aggiungi cartella alla lista", $MenuItem3)
GUICtrlCreateMenuItem("", $MenuItem3)
$apri = GUICtrlCreateMenuItem("apri", $MenuItem3)
$salva = GUICtrlCreateMenuItem("salva", $MenuItem3)
$elimina = GUICtrlCreateMenuItem("elimina attuale", $MenuItem3)
$mas = GUICtrlCreateMenuItem("imposta", $cartella)
#endregion menu
#region pulsanti laterali
$chiave = GUICtrlCreateInput("1)inserisci una parola chiave", 335, 83, 145, 21)
$add = GUICtrlCreateButton("aggiungi",490,80,100,25)
GUICtrlCreateGroup("", 312, 64, 289, 89)
$nuovonome = GUICtrlCreateInput("2)Inserici nuovo nome", 336, 115, 145, 21)
$rinomina = GUICtrlCreateButton("rinomina e invia",490,112,100,25)
#endregion
$sali = GUICtrlCreateButton("/\", 275, 80, 30, 30)
GUICtrlSetFont(-1, 15)
GUICtrlSetState($sali, $GUI_HIDE)
$scendi = GUICtrlCreateButton("\/", 275, 350, 30, 30)
GUICtrlSetFont(-1, 15)
GUISetState(@SW_SHOW)
_carica()
$master = ""
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aggiungi
_aggiungicartella()
Case $rinomina
_rinomina()
Case $scendi
GUICtrlSetState($sali, $GUI_SHOW)
For $a = $d + 1 To $d + 10
GUICtrlSetState($immagine[$a], $GUI_HIDE)
GUICtrlSetState($pic[$a], $GUI_HIDE)
Next
$d = $d + 10
For $a = $d + 1 To $d + 10
If $a > _FileCountLines("lista.txt") Then
GUICtrlSetState($scendi, $GUI_HIDE)
ExitLoop
EndIf
GUICtrlSetState($immagine[$a], $GUI_SHOW)
GUICtrlSetState($pic[$a], $GUI_SHOW)
Next
Case $sali
GUICtrlSetState($scendi, $GUI_SHOW)
For $a = $d + 1 To $d + 10
GUICtrlSetState($immagine[$a], $GUI_HIDE)
GUICtrlSetState($pic[$a], $GUI_HIDE)
Next
$d = $d - 10
If $d = 0 Then GUICtrlSetState($sali, $GUI_HIDE)
For $a = $d + 1 To $d + 10
GUICtrlSetState($immagine[$a], $GUI_SHOW)
GUICtrlSetState($pic[$a], $GUI_SHOW)
Next
case $add
_chiave()
case $mas
$master = FileSelectFolder("","")
case $elimina
FileDelete("lista.txt")
case $chiudi
Exit
case $salva
$percorso = FileSaveDialog("",@DesktopDir,"liste di foto(*.lst)")
FileMove("lista.txt",$percorso & ".lst")
case $apri
$percorso2 = FileOpenDialog("",@DesktopDir,"liste di foto(*.lst)")
filedelete("lista.txt")
FileMove($percorso2,@ScriptDir & "\lista.txt")
case $cache
$a = 1
$files = _FileListToArray(@ScriptDir, "*.txt")
if $files = 0 Then
Else
while 1
FileDelete(@ScriptDir & "\" & $files[$a])
if @error then ExitLoop
$a = $a + 1
WEnd
EndIf
EndSwitch
WEnd
Func _aggiungicartella()
$dir = FileSelectFolder("seleziona la cartella da aggiungere alla lista", "")
$file = _FileListToArray($dir, "*.jpg")
if $file = "" Then
MsgBox(0,"","nella cartella non cč alcun file .jpg")
Else
if 0 = _FileCountLines("lista.txt") Then
Else
For $a = 1 To _FileCountLines("lista.txt")
GUICtrlDelete($immagine[$a])
GUICtrlDelete($pic[$a])
Next
EndIf
For $a = 1 To $file[0]
FileWriteLine("lista.txt", $dir & "\" & $file[$a])
Next
_carica()
EndIf
EndFunc ;==>_aggiungicartella
Func _carica()
Global $immagine[_FileCountLines("lista.txt") + 21]
Global $pic[_FileCountLines("lista.txt") + 21]
For $a = 1 To _FileCountLines("lista.txt")
$pic[$a] = GUICtrlCreatePic(FileReadLine("lista.txt", $a), $f, ($a - $b) * 70, 90, 60)
$immagine[$a] = GUICtrlCreateCheckbox("", $f - 25, ($a - $b) * 70, 20, 20)
$c = $c + 1
If $c = 5 Then
$b = $b + 5
if $g = 1 Then
$f = 155
$g = 0
Else
$f = 30
$g = 1
EndIf
$c = 0
EndIf
Next
For $a = 11 To _FileCountLines("lista.txt")
GUICtrlSetState($immagine[$a], $GUI_HIDE)
GUICtrlSetState($pic[$a], $GUI_HIDE)
Next
EndFunc ;==>_carica
Func _rinomina()
if $master = "" Then
MsgBox(0,"","devi selezionare una cartella di destinazione")
Else
$nuovonome2 = GUICtrlRead($nuovonome)
For $a = 1 To _FileCountLines("lista.txt")
If GUICtrlRead($immagine[$a]) = $GUI_CHECKED Then
$asa =StringSplit(FileReadLine("lista.txt",$a),"\")
$zxc = $asa[0]
FileMove(FileReadLine("lista.txt", $a), $master & "\" & $nuovonome2 & $e &"("& FileRead($asa[$zxc] & ".txt")& ").jpg")
$e = $e + 1
EndIf
Next
EndIf
EndFunc ;==>_rinomina
func _chiave()
$chiave2 = GUICtrlRead($chiave,0)
For $a = 1 To _FileCountLines("lista.txt")
$asa =StringSplit(FileReadLine("lista.txt",$a),"\")
$zxc = $asa[0]
If GUICtrlRead($immagine[$a]) = $GUI_CHECKED Then FileWrite($asa[$zxc]& ".txt",$chiave2 & " ")
Next
EndFunc