DropThisCode

;
; AutoHotkey Version: 1.x
; Language:       French
; Platform:       XP/W7/
; Author:         Tlams <[email protected]>
;
; Script Function:
;   Permet d'enregistrer des script puis de les retrouver facilement !
;


#NoEnv
#SingleInstance, force
SendMode Input
SetWorkingDir %A_ScriptDir%
SetTitleMatchMode, 2
SetKeyDelay, 0

;trayTip , Information,Commande: CTRL+Clic droit, 5, 1

I = 1
SetWorkingDir %A_ScriptDir%
loop, %a_workingdir%\*.*,2
{
    loop, %a_workingdir%\%A_LoopFileName%\*.*,0
    {
        Menu, Submenu%I%, Add, %A_LoopFileName%, label ; Select file.
    }
    Menu, Submenu%I%, Add
    Menu, Submenu%I%, Add, Ajouter, label_add ;Add file.
    Menu, Submenu%I%, Add, Modifier, label_modif ;Add file.
    Menu, Submenu%I%, Add, Supprimer, label_suppr ;Add file.
    Menu, MonMenu, Add, %A_LoopFileName%, :Submenu%I%
    Repertoire%A_Index% := A_LoopFileName
    I++
}
Menu, MonMenu, Add
Menu, MonMenu, Add, Ajouter Catégorie, adddir
Menu, MonMenu, Add, Modifier Catégorie, changdir
Menu, MonMenu, Add, Supprimer Catégorie, deldir
Menu, MonMenu, Add, Recharger, recharger
Menu, MonMenu, Add, Quitter, quitter

return


changdir:
FileSelectFolder, namecate , %a_workingdir%,
SplitPath, namecate, name,
InputBox, newnamedir , Modifier une catégorie, Nom de la catégorie,,,150,,,,,% name
FileMoveDir,%a_workingdir%\%name%, %a_workingdir%\%newnamedir%
reload
return

label:
    Index := SubStr(A_ThisMenu, 8)
    Fileread, donnee, % Repertoire%Index% "/" A_ThisMenuItem
    clipboard = % donnee
    Send, {CTRLDOWN}v{CTRLUP}
return

label_modif:
    Random, Varinput , 0,9999
    Index := SubStr(A_ThisMenu, 8)
    FileSelectFile, select_file , 1,  % Repertoire%Index%
    Fileread, codeaamodif,%select_file%
    SplitPath, select_file, name,
    codeaamodif = %codeaamodif%
    repertoire = % Repertoire%Index%
    Gui, 2:Add, Text,, Nom:
    Gui, 2:Add, Edit, W780 H20 ReadOnly vNom%Varinput%,% name
    Gui, 2:Add, Text,, Votre code:
    Gui, 2:Add, Edit, W780 H530 vCode%Varinput%,%codeaamodif%
    Gui, 2:Add, Button, W100 gvalid, OK
    Gui, 2:Show, W800
return

label_suppr:
Index := SubStr(A_ThisMenu, 8)
FileSelectFile, del_file , 1,  % Repertoire%Index%
FileDelete, %del_file%
reload
return


label_add:
    Random, Varinput , 0,99
    Index := SubStr(A_ThisMenu, 8)
    repertoire = % Repertoire%Index%
    Gui, Add, Text,, Nom:
    Gui, Add, Edit, W780 H20 vNom%Varinput%
    Gui, Add, Text,, Votre code:
    Gui, Add, Edit, W780 H530 vCode%Varinput%
    Gui, Add, Button, W100 gvalid, OK
    Gui, Show, W800
return

GuiClose:
reload
return

2GuiClose:
reload
return

valid:
GuiControlGet, nomvar,,Nom%Varinput%
GuiControlGet, codevar,,Code%Varinput%
FileDelete, %repertoire%/%nomvar%
FileAppend , %codevar%, %repertoire%/%nomvar%
Gui, Destroy
reload
return


^RButton::
MouseGetPos, PosX, PosY
MouseMove, 50,10,0,R
Menu, MonMenu, Show, %PosX%, %PosY%
return

recharger:
reload
return

quitter:
exitapp
return

deldir:
FileSelectFolder, delthisdir, %a_workingdir%
FileRemoveDir, %delthisdir%
reload
return

adddir:
InputBox, newdir , Ajouter une catégorie, Nom de la catégorie,,,150
if !ErrorLevel
{
   FileCreateDir, %a_workingdir%/%newdir%
   reload
}
return