Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 3
Aller à la page: 1, 2, 3  >
[Terminer] Gestionnaire de projet AutoIt
Auteur Message
Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour à tous,

mon futur projet est de créer un gestionnaire de projet Autoit, c'est à dire pouvoir lister le contenu d'un dossier par défaut avec à l interieur des dossiers pour chaque projet autoit réalisé.

Base de reflexion :


inputbox pour créer un nouveau dossier
TreeView pour lister le contenu de chaque dossier
ouverture de ScIte.

Si vous êtes intéressé, poster dans ce sujet.


1. Créer l'interface utilisateur
2. Fonction pour ouvrir le fichier au3.



Dernière édition par Laddy le Jeu 15 Déc 2011 - 07:35; édité 1 fois

______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Salut Laddy,

j'ai pas forcément beaucoup de temps à consacrer à ce projet mais je veux bien t'aider pour tester,
déboguer.

Voilà.



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour Laddy,
si vous acceptez les débutants en AutoIT, je suis partant.
Je réalise actuellement un jeu pour aider mes enfants à l'apprentissage des multiplications, mais j'ai du temps que je peux consacrer également.
Cordialement
Did85



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour
merci à vous deux, pour les tests ça ne va trop tardé, vu que j'ai bien avancé

Edit j'ai pas de bol je change de dossier et bing, ça ne fonctionne plus Crying or Very sad


Avancement :
Définition de la Gui [Ok]
Sauvegarder du dossier racine Projet via un fichier ini [Ok]
Création du plugin dans ScIte accessible par CTRL+ALT+j [ok]

Maj : 1 avril ce n'est pas un poisson.

#Ajout du déplacement des fenêtres du plugin et SciTE.

Si vous voulez tester le fichier au3 doit être absolument compilé :

Code:

#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#RequireAdmin
#cs
Title : ProjectList
Auteur : Laddy
Version : 1
Func Plugin by ZeShrek ->DirInstall
#ce


Opt("MustDeclareVars", 1)
Opt("TrayIconHide", 1) ; pas de traymenu
Global Const $Version = 1
Global $FilePath, $IniFolder, $var, $idx, $Index
Global $frmMain, $frmMainFileMenu, $frmMainFileMenu_Exit , $frmMain_FileTree
Global $i, $iF, $aFiles, $aDirectorys, $aDirNames, $aFileNames
;~ SciTE Plugin install

_PluginInstall()
_Main()

Func _Main()
Opt("GUIOnEventMode", 1)
WinMove("[CLASS:AutoIt v3 GUI]", "", 0, 0, 295, @DesktopHeight)
WinMove("[CLASS:SciTEWindow]", "", 300, 0, @DesktopWidth - 295, @DesktopHeight)
$frmMain = GUICreate("Gestion Projet", 295, @DesktopHeight, 0,0, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "ExitApp")

$frmMainFileMenu = GUICtrlCreateMenu("File")
$frmMainFileMenu_Exit = GUICtrlCreateMenuItem("Exit", $frmMainFileMenu)
GUICtrlSetOnEvent($frmMainFileMenu_Exit, "ExitApp")

$frmMain_FileTree = GUICtrlCreateTreeView(10, 20, 275, 430, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)

Global $idx = 0
Dim $Index[$idx + 1][2]
$IniFolder = IniRead(@ScriptDir & "\Config.ini", "Projets", "Dossier", "NotFound")
;Get all directorys in script directory
$aDirectorys = _FileListToArray($IniFolder, '*.*', 2)
_ArrayDelete($aDirectorys, 0)


;Loop through returned array and add directorys to treeview
For $i = 0 To UBound($aDirectorys) - 1
   $aDirNames = GUICtrlCreateTreeViewItem($aDirectorys[$i], $frmMain_FileTree)
   GUICtrlSetOnEvent(-1, "_Show")
   ;Get files in each folder
   $aFiles = _FileListToArray($IniFolder &"\"&$aDirectorys[$i], "*.au3", 1)
   _ArrayDelete($aFiles, 0)

   ;Loop through returned file names and add file name to each directory
   For $iF = 0 To UBound($aFiles) - 1
      $aFileNames = GUICtrlCreateTreeViewItem($aFiles[$iF], $aDirNames)
      GUICtrlSetOnEvent(-1, "_Show")
      $idx = $idx + 1
      ReDim $Index[$idx + 1][2]
      $Index[$idx][0] = $aFileNames
      $Index[$idx][1] = $aDirectorys[$i] & "\" & $aFiles[$iF]
   Next
Next
GUISetState(@SW_SHOW, $frmMain)

While 1
   Sleep(1000)
WEnd
EndFunc

Func ExitApp()
   Exit
EndFunc   ;==>ExitApp

Func _Show()
   Local $Folder = "" ; TROUVER LE DOSSIER PARENT DU FICHIER
   Local $Scite = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe", "")
   Local $LocalPath = @ScriptDir

   For $i = 1 To $idx
      If @GUI_CtrlId = $Index[$i][0] Then
         Local $FilePath = $Index[$i][1]
         ShellExecute($Scite, Chr(34) & $FilePath & Chr(34))
      EndIf
   Next

EndFunc   ;==>_Show

;Code ZeShrek DirInstall plugin.
Func _PluginInstall()
   If @Compiled Then
      If $cmdline[0] = "" Then
         Local $file, $Nblignes, $Trouve, $ndx, $Button1, $nMsg
         Local $ScitePath = StringSplit(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe", ""), "\")
         Local $InstallDir = ""
         For $i = 1 To $ScitePath[0] - 1
            $InstallDir = $InstallDir & $ScitePath[$i] & "\"
         Next
         DirCreate($InstallDir & "ProjectFile") ;creation du dossier
         FileCopy(@ScriptFullPath, $InstallDir & "ProjectFile\ProjectFile.exe", 1) ; copie de l exe
         Local $var = FileSelectFolder("Choisis ton Dossier", "")
         IniWrite($InstallDir & "ProjectFile\Config.ini", "Projets", "Dossier", $var)


         $file = FileOpen($InstallDir & "Properties\au3.properties") ; ouverture du fichier
   
         Dim $properties[2]
         $i = 0
         While 1
            $properties[$i] = FileReadLine($file)
            If @error Then ExitLoop
            $i = $i + 1
            ReDim $properties[$i + 1]
         WEnd
         FileClose($file)
         $Nblignes = $i
         $Trouve = False

         $file = FileOpen($InstallDir & "Properties\au3.properties", 2)

         For $i = 0 To $Nblignes
            If StringInStr($properties[$i], "Laddy's ProjectFile") Then
               $Trouve = True
               ; $ndx = StringMid($properties[$i], 3, 2)
               $ndx = 33
               $properties[$i] = "# " & $ndx & " Laddy's ProjectFile v" & $Version
               $properties[$i + 1] = "command." & $ndx & ".$(au3)=" & Chr(34) & "$(SciteDefaultHome)\ProjectFile\ProjectFile.exe" & Chr(34) & " /Scite"
               $properties[$i + 2] = "command.subsystem." & $ndx & ".$(au3)=1"
               $properties[$i + 3] = "command.name." & $ndx & ".$(au3)=ProjectFile v" & $Version
               $properties[$i + 4] = "command.shortcut." & $ndx & ".$(au3)=Ctrl+Alt+j"
               $properties[$i + 5] = "command.save.before." & $ndx & ".$(au3)=2"
               $properties[$i + 6] = "command.replace.selection." & $ndx & ".$(au3)=1"
               $properties[$i + 7] = "command.quiet." & $ndx & ".$(au3)=1"
            EndIf
            FileWriteLine($file, $properties[$i])
         Next
         If $Trouve = False Then
            For $i = 0 To $Nblignes
               If StringInStr($properties[$i], "Laddy's ProjectFile") Then
                  For $j = $i To $i + 7
                     FileWriteLine($file, $properties[$j])
                  Next
                  $ndx = StringMid($properties[$i], 3, 2) + 1
                  FileWriteLine($file, "# " & $ndx & " Laddy's ProjectFile v" & $Version)
                  FileWriteLine($file, "command." & $ndx & ".$(au3)=" & Chr(34) & "$(SciteDefaultHome)\ProjectFile\ProjectFile.exe" & Chr(34) & " /Scite")
                  FileWriteLine($file, "command.subsystem." & $ndx & ".$(au3)=1")
                  FileWriteLine($file, "command.name." & $ndx & ".$(au3)=ProjectFile v" & $Version)
                  FileWriteLine($file, "command.shortcut." & $ndx & ".$(au3)=Ctrl+Alt+j")
                  FileWriteLine($file, "command.save.before." & $ndx & ".$(au3)=2")
                  FileWriteLine($file, "command.replace.selection." & $ndx & ".$(au3)=1")
                  FileWriteLine($file, "command.quiet." & $ndx & ".$(au3)=1")
                  $i = $i + 8

               EndIf
               FileWriteLine($file, $properties[$i])
            Next
         EndIf
         FileClose($file)

         Local $Gui = GUICreate("ProjectFile v" & $Version & " is installed", 415, 164, -1, -1,$DS_MODALFRAME)
         GUISetBkColor(0xFFFFFF)
         GUICtrlCreateLabel("ProjectFile is now ready." & @CRLF & @CRLF & "Close and reopen your SciTE editor, then press <CTRL><ALT><j> or click the menu Tool / ProjectFile to use it", 88, 8, 317, 65)
         $Button1 = GUICtrlCreateButton("Ok", 160, 104, 75, 25, $WS_GROUP)
         GUICtrlSetOnEvent($Button1, "ExitApp")
         GUISetState(@SW_SHOW, $Gui)

         While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $Button1
            Exit
    EndSwitch
WEnd
      EndIf
   EndIf

EndFunc   ;==>_PluginInstall


TODO :
Débugage, est ce que ça fonctionne chez vous ?
Si non :
Os testé, capture d'écran merci

Le must serait que ce soit comme funcPopUP.
Ouverture à gauche, scite à droite

Il faudrait utiliser WinMove, pour redimensionner les deux Gui, si quelqu'un veut tenter sa chance.



Dernière édition par Laddy le Ven 1 Avr 2011 - 16:54; édité 4 fois

______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour Laddy,
merci pour ton script.
Je te joins un fichier te demandant des explications.

Je compile, je lance, je choisis le répertoire d'installation du fichier (je dois mal faire ici), je relance SciTE, mais CTRL + ALT + j ne donne rien.
A te lire

Les copies d'écran : http://www.sendspace.com/file/2mig15
Cordialement
Did85



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour laddy,

donc moi je suis sous windows vista ed. familiale 32 bits.
Je lance le programme compilé via autoit et la treeview apparaît, alors je choisis un lieu pour placer le dossier
et je reçois la fenêtre qui m'indique que le dossier a été créé et que je peux maintenant soit appuyer sur crt+alt+j ou
aller dans outil puis cliquer sur le programme.
Je fais ctrl+alt+j et rien, alors je vais dans outil et là ton programme n'est pas affiché.

J'ai regardé vite fais le code mais il me faudrait vraiment que j'y consacre une petite heure pour être sûr d'avoir tout compris et peut-être voir
où est l'erreur.

Sinon tu pourrais mettre les commenttaires aussi en français, car je comprends tes commentaires mais je ne suis pas sûr de ma traduction.

Allze bon courage

EDIT :

En effet WinMove est la solution mais je préfère attendre que ton code fonctionne avant d'esseyer quelque chose



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour à tous deux :

je comprend le soucis, je ne vous ai pas donnée le nom de l'executable, du coup ça ne peut pas fonctionner, j aurai du vous le donner compiler.

donc le au3 doit avoir ce nom obligatoirement : ProjectFile.exe

Ensuite si le raccoucis manque toujours vers l outil et qu il est absent de la liste.

vérifier que le dossier ProjetFile existe dans Scite, et que vous trouvez en le mot Laddy dans le fichier au3.propriety situé dans propertiers dans scite toujours.


J'ai corrigé une ligne dans le code au dessus.
merci pour le pdf c est excellent pour le debug
A+




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour Laddy,
aide-moi s'il te plait, je ne dois pas être bon !

Je copie/colle ton code dans Scite.
J'enregistre ton code sous un répertoire Documents/AutoIT/Laddy, je nomme le fichier ProjectFile.au3
Ensuite, je vais dans le menu Outils > Compiler, une fenêtre s'ouvre, je ne touche à rien, et je clique sur le bouton "Compile Script"
Je le laisse dans le même dossier que ton code enregistré précédemment.

Maintenant, j'ouvre le dossier Documents/AutoIT/Laddy, et je double clic sur l'exécutable.
Une fenêtre s'ouvre me demandant de choisir un dossier.
Je m'exécute, je sélectionne le dossier Documents/AutoIT (juste avant Laddy)
J'ai le message me disant que je dois maintenant fermer et ré-ouvrir SciTe.

Je ferme Scite, j'ouvre à nouveau Scite et là que dois-je trouver ?
- un nouveau menu ?
- une option particumière ?

La commande CTRL + ALT +j ne me donne rien.
Je n'ai pas de répertoire créé au nom de ProjectFile dans Documents/AutoIT, ni de fichier.

Merci
Did85



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour

il me faudrait plus d'information.
Quel est ton système d'exploitation ?

Je viens de tester sur deux XP Pro et Home et ça fonctionne bien. Le plugin est installé.
Scrite version 1.79

Voici l'executable compililé : http://www.box.net/shared/26blxjgoxx
Place le sur le bureau, double clic dessus pour l'installer.
Si seven/vista clic droit sur l'executable : Executer en tant qu'admin.


Dans ScIte, Menu Outils > ProjectFile v1 (ctrl+alt+j) doit se trouver au dessus de OrganizeInclude.

->Si il n'apparait toujours pas.
Vérifier que le dossier ProjectFile existe dans C:\Program files\AutoIt3\Scite
Vérifier la présence du fichier ProjectFile.exe et config.ini Dans C:\Program files\AutoIt3\Scite
Vérifie le contenu de config.ini
Editer le fichier au3.properties situé dans C:\Program Files\AutoIt3\Scite\Properties

Rechercher ceci : l. 898
Citation:

# 33 Laddy's ProjectFile v1
command.33.$(au3)="$(SciteDefaultHome)\ProjectFile\ProjectFile.exe" /Scite
command.subsystem.33.$(au3)=1
command.name.33.$(au3)=ProjectFile v1
command.shortcut.33.$(au3)=Ctrl+Alt+j
command.save.before.33.$(au3)=2
command.replace.selection.33.$(au3)=1
command.quiet.33.$(au3)=1


Présent ou absent ?









______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Merci Laddy pour toutes ces explications.

Je suis sous W7 32 bits familiale.

Effectivement, je dois avoir un problème avec le fichier : au3.properties
"Editer le fichier au3.properties situé dans C:\Program Files\AutoIt3\Scite\Properties"

Il n'y a pas ta partie dedans.

Je t'ai fais un PDF d'explication du début à la fin de ma manipulation, peut-être y verras-tu quelque chose d'incorrect.

Le fichier : http://www.sendspace.com/file/ladkc2
Did85



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Oui effectivement, ça bloque à ce niveau pourtant il y a eu des modifications dans ton fichier

peux tu m'uploader ton fichier au3.proprietes s'il te plait,
j'ai modifié un truc dans l'executable si tu veux retesté.
Merci ça m'aide bien.

PS : essaie voir si ça fonctionne toujours d'ajouter manuellement la configuration de ce fichier pour voir si ça passe ou pas.
merci




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Voici Laddy le fichier au3.proprietes ici : http://www.cijoint.fr/cjlink.php?file=cj201104/cijxlg6VsD.zip

Je tente à nouveau ton exécutable. Par contre, pour ton nouvel exécutable, je reprends le lien plus haut ?
Citation:
Je viens de tester sur deux XP Pro et Home et ça fonctionne bien. Le plugin est installé.
Scrite version 1.79

Voici l'executable compililé : http://www.box.net/shared/26blxjgoxx
Place le sur le bureau, double clic dessus pour l'installer.
Si seven/vista clic droit sur l'executable : Executer en tant qu'admin.

Si ça ne fonctionne pas, j'ajoute manuellement les lignes indiquées.

Did85



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Coucou Did85
oui c'est le meme lien, je viens d'uploader à nouveau le fichier.

#Ajout
Déplacement de la fenetre du gestionnaire à gauche et Scite à droite.

http://img.xooimage.com/files64/d/8/4/projectfile02-273b8fa.png




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Bonjour Laddy,

donc moi aussi j'ai le même problème, le fichier au3.properties ne possède pas la partie spécifiée
et ceci avec l'exécutable ou le code compilé via Scite.



Répondre en citant
Message [Terminer] Gestionnaire de projet AutoIt 
Quel OS ? et en ajoutant le code ?

Maj du code, maj de l'exe.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message [Terminer] Gestionnaire de projet AutoIt 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 3
Aller à la page: 1, 2, 3  >
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch