Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Projet] BatchCreator
Auteur Message
Répondre en citant
Message [Projet] BatchCreator 
[BatchCreator] - Sablier94
BatchCreator serait un logiciel permettant de créer des batchs facilement (du genre powerbatch) et ajouter quelques fonctions utiles.


Plateforme de développement : Principalement Windows 7

Todolist :



    -Pouvoir enregistrer correctement le batch
    -Pouvoir ouvrir un batch
    -Pouvoir crypter un batch et exécuter le fichier crypté (on le décrypte, puis on crée le batch temporaire, on le lance, puis on le supprime.)
    -Pouvoir ajouter de la coloration syntaxique (http://www.autoit.fr/forum/viewtopic.php?f=21&t=6738)
    -Autre, à voir





J'ai déjà commencé l'interface et un bout de code, voici le code :
Code:
#include <GUIConstants.au3>
#include <file.au3>

Global $name ="", $dossier = IniRead("BatchCreator.ini","Réglages","Dossier",@DocumentsCommonDir&"\BatchCreator"), $popup = False

#Region ### START Koda GUI section ###
$BatchCreator = GUICreate("BatchCreator", 627, 538, 194, 125)
$batch = GUICtrlCreateEdit("", 8, 8, 601, 513)
GUICtrlSetData(-1, "@echo off")
$m_fichier = GUICtrlCreateMenu("Fichier")
$_ouvrir = GUICtrlCreateMenuItem("Ouvrir", $m_fichier)
$_nouveau = GUICtrlCreateMenuItem("Nouveau", $m_fichier)
$_enregistrer = GUICtrlCreateMenuItem("Enregistrer", $m_fichier)
$_enregistrersous = GUICtrlCreateMenuItem("Enregistrer sous", $m_fichier)
$_quitter = GUICtrlCreateMenuItem("Quitter", $m_fichier)
$m_options = GUICtrlCreateMenu("Options")
$_reglages = GUICtrlCreateMenuItem("Réglages", $m_options)
$_dossier = GUICtrlCreateMenuItem("&Changer le dossier des batchs", $m_options)
$m_aide = GUICtrlCreateMenu("Aide")
$_apropos = GUICtrlCreateMenuItem("A propos", $m_aide)
$_aide = GUICtrlCreateMenuItem("Aide", $m_aide)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
boucle()

Func boucle()
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $_enregistrer
         save()
      Case $_quitter
         exit
      Case $_reglages
         settings()
      Case $_enregistrersous
         savesous()
      Case $_apropos
         about()
      Case $_aide
         help()
      Case $_ouvrir
         open()
      Case $_dossier
         IniRead("BatchCreator.ini","Réglages","Dossier",$dossier)
EndSwitch
WEnd
EndFunc


Func open()
if Not FileExists($dossier) Then DirCreate($dossier)
$name = InputBox("BatchCreator","Quel batch du dossier '"& $dossier &"' voulez vous ouvrir ?")
If Not FileExists($name) Then $batchopen = ""
If FileExists($name) Then $batchopen = FileRead($dossier&"\"&$name&".bat")
GUICtrlSetData($batch,$batchopen)
Global $name
EndFunc

Func settings()
MsgBox(0,"BatchCreator","En construction...")
boucle()
EndFunc

Func about()
MsgBox(0,"BatchCreator","Ce logiciel a été créé par Sablier94 pour la team batch.xooit.it. Ceci est la version 1.0")
boucle()
EndFunc

Func help()
MsgBox(0,"BatchCreator","L'aide n'est pas encore disponible, désolé.")
boucle()
EndFunc

Func savesous()
$batch = GUICtrlRead($batch)
$name = InputBox("BatchCreator","Sous quel nom voulez-vous enregistrer le batch: ?")
If FileExists($dossier&"\"&$name&".bat") Then
$msgbox = MsgBox(1,"BatchCreator","Un batch sous ce nom existe déjà, voulez vous le remplacer ?")
Switch $msgbox
    Case 6
        FileOpen($dossier&"\"&$name&".bat",10)
    Case 2
      $name = InputBox("BatchCreator","Le fichier n'a pas été sauvé, sous quel nom voulez-vous enregistrer le batch ?")
      FileOpen($dossier&"\"&$name&".bat",10)
EndSwitch
EndIf

FileWrite($dossier&"\"&$name&".bat",$batch)
MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$dossier&"\"&$name&".bat")
Global $name
FileClose($dossier&"\"&$name&".bat")
boucle()
EndFunc

Func save()
$batch = GUICtrlRead($batch)
If $name = "" Then $name = InputBox("BatchCreator","Sous quel nom voulez-vous enregistrer le batch: ?") & $popup = True
FileOpen($dossier&"\"&$name&".bat",10)
FileWrite($dossier&"\"&$name&".bat",$batch)
If $popup Then MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$dossier&"\"&$name&".bat")
Global $name
FileClose($dossier&"\"&$name&".bat")
boucle()
EndFunc


Donc on peut enregistrer et enregistrer sous avec la barre d'outil en haut de la fenêtre. Mais le bug, c'est que quand on enregistre, il n'efface pas l'ancien contenu, mais rajoute le nouveau après l'ancien. Pourtant, j'ai ouvert le batch avec le mode 2 qui efface l'ancien contenu. Donc si vous savez d'où vient le problème ça m'avancerait bien

N'hésitez pas à participer au projet et à dire ce que vous en pensez.

Sablier94




______________________________________________________
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Projet] BatchCreator 
Bonjour

le script m'enregistre le fichier vers un chemin un peu farfulu donc non compatible avec mon os..

il ne me créé pas le dossier batchcreator, il ne crée pas le fichier ini. Je n'ai pas vu de IniWrite...

je pense que fileopendialog serait plus approprié que inputbox

Création du fichier ini, contenant le nom du dossier par défaut.
Code:
$dossier= IniWrite("BatchCreator.ini","Reglages","Dossier","\BatchCreator")
$CreateFolder = IniRead("BatchCreator.ini","Reglages","Dossier",$dossier)

;création du dossier à partir du fichier ini.
if Not FileExists($CreateFolder) Then DirCreate(@ScriptDir &$CreateFolder)





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Projet] BatchCreator 
Code:

#cs ----------------------------------------------------------------------------
 Title : BatchCreator
 Auteur: sablier94       

 Fonction du Script :
   créateur de fichier batch

#ce ----------------------------------------------------------------------------


#include <GUIConstants.au3>
#include <file.au3>

Global $name =""
Global $dossier, $CreateFolder


$dossier= IniWrite("BatchCreator.ini","Reglages","Dossier","\BatchCreator")
$CreateFolder = IniRead("BatchCreator.ini","Reglages","Dossier",$dossier)
ConsoleWrite($CreateFolder & $dossier)
if Not FileExists($CreateFolder) Then DirCreate(@ScriptDir &$CreateFolder)
Global $popup = False

#Region ### START Koda GUI section ###
$BatchCreator = GUICreate("BatchCreator", 627, 538, 194, 125)
$batch = GUICtrlCreateEdit("", 8, 8, 601, 513)
GUICtrlSetData(-1, "@echo off")
$m_fichier = GUICtrlCreateMenu("Fichier")
$_ouvrir = GUICtrlCreateMenuItem("Ouvrir", $m_fichier)
$_nouveau = GUICtrlCreateMenuItem("Nouveau", $m_fichier)
$_enregistrer = GUICtrlCreateMenuItem("Enregistrer", $m_fichier)
$_enregistrersous = GUICtrlCreateMenuItem("Enregistrer sous", $m_fichier)
$_quitter = GUICtrlCreateMenuItem("Quitter", $m_fichier)
$m_options = GUICtrlCreateMenu("Options")
$_reglages = GUICtrlCreateMenuItem("Réglages", $m_options)
$_dossier = GUICtrlCreateMenuItem("&Changer le dossier des batchs", $m_options)
$m_aide = GUICtrlCreateMenu("Aide")
$_apropos = GUICtrlCreateMenuItem("A propos", $m_aide)
$_aide = GUICtrlCreateMenuItem("Aide", $m_aide)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
boucle()

Func boucle()
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $_enregistrer
         save()
      Case $_quitter
         exit
      Case $_reglages
         settings()
      Case $_enregistrersous
         savesous()
      Case $_apropos
         about()
      Case $_aide
         help()
      Case $_ouvrir
         open()
      Case $_dossier
         IniRead("BatchCreator.ini","Réglages","Dossier",$dossier)
EndSwitch
WEnd
EndFunc


Func open()
$name = InputBox("BatchCreator","Quel batch du dossier '"& $dossier &"' voulez vous ouvrir ?")
If Not FileExists($name) Then $batchopen = ""
If FileExists($name) Then $batchopen = FileRead($dossier&"\"&$name&".bat")
GUICtrlSetData($batch,$batchopen)
Global $name
EndFunc

Func settings()
MsgBox(0,"BatchCreator","En construction...")
boucle()
EndFunc

Func about()
MsgBox(0,"BatchCreator","Ce logiciel a été créé par Sablier94 pour la team batch.xooit.it. Ceci est la version 1.0")
boucle()
EndFunc

Func help()
MsgBox(0,"BatchCreator","L'aide n'est pas encore disponible, désolé.")
boucle()
EndFunc

Func savesous()
$batch = GUICtrlRead($batch)
$name = InputBox("BatchCreator","Sous quel nom voulez-vous enregistrer le batch: ?")
If FileExists($dossier&"\"&$name&".bat") Then
$msgbox = MsgBox(1,"BatchCreator","Un batch sous ce nom existe déjà, voulez vous le remplacer ?")
Switch $msgbox
    Case 6
        FileOpen($dossier&"\"&$name&".bat",10)
    Case 2
      $name = InputBox("BatchCreator","Le fichier n'a pas été sauvé, sous quel nom voulez-vous enregistrer le batch ?")
      FileOpen($dossier&"\"&$name&".bat",10)
EndSwitch
EndIf

FileWrite($dossier&"\"&$name&".bat",$batch)
MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$dossier&"\"&$name&".bat")
Global $name
FileClose($dossier&"\"&$name&".bat")
boucle()
EndFunc

Func save()
$batch = GUICtrlRead($batch)
If $name = "" Then $name = InputBox("BatchCreator","Sous quel nom voulez-vous enregistrer le batch: ?") & $popup = True
FileOpen($dossier&"\"&$name&".bat",10)
FileWrite($dossier&"\"&$name&".bat",$batch)
If $popup Then MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$dossier&"\"&$name&".bat")
Global $name
FileClose($dossier&"\"&$name&".bat")
boucle()
EndFunc





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Projet] BatchCreator 
Salut,

J'avais mis à jour mon code hier, mais je n'ai pas pu le poster. J'avais effectivement utilisé des fileopendialog() et c'est bien mieux =). J'ai réussi à faire marcher la fonction ouvrir et j'étais entrain de faire pour l'enregistrer (donc pas encore finie). je n'ai pas mis de iniwrite car je ne m'en suis pas encore occupé, mais je pense qu'il va disparaitre temporairement, car comme on utilise la fonction fileopendialog() cela n'est pas d'une très grande utilité. Merci pour ton code, mais je ne vois pas très bien ce qui a changé, pourrais-tu me l'indiquer ? Merci pour l'aide, je pense que ce peut-être un bon utilitaire quand il sera fini.

Voilà le code que j'ai (mais je dois finir les fonctions enregistrer et enregistrer sous) :
Code:
#include <GUIConstants.au3>
#include <file.au3>

Global $name = "", $dossier = IniRead("BatchCreator.ini","Réglages","Dossier",@ScriptDir&"\BatchCreator"), $popup = False

#Region ### START Koda GUI section ###
$BatchCreator = GUICreate("BatchCreator", 627, 538, 194, 125)
$batch = GUICtrlCreateEdit("", 8, 8, 601, 513)
GUICtrlSetData(-1, "@echo off")
$m_fichier = GUICtrlCreateMenu("Fichier")
$_ouvrir = GUICtrlCreateMenuItem("Ouvrir", $m_fichier)
$_nouveau = GUICtrlCreateMenuItem("Nouveau", $m_fichier)
$_enregistrer = GUICtrlCreateMenuItem("Enregistrer", $m_fichier)
$_enregistrersous = GUICtrlCreateMenuItem("Enregistrer sous", $m_fichier)
$_quitter = GUICtrlCreateMenuItem("Quitter", $m_fichier)
$m_options = GUICtrlCreateMenu("Options")
$_reglages = GUICtrlCreateMenuItem("Réglages", $m_options)
$_dossier = GUICtrlCreateMenuItem("&Changer le dossier des batchs", $m_options)
$m_aide = GUICtrlCreateMenu("Aide")
$_apropos = GUICtrlCreateMenuItem("A propos", $m_aide)
$_aide = GUICtrlCreateMenuItem("Aide", $m_aide)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
boucle()

Func boucle()
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $_enregistrer
         save()
      Case $_quitter
         exit
      Case $_reglages
         settings()
      Case $_enregistrersous
         savesous()
      Case $_apropos
         about()
      Case $_aide
         help()
      Case $_ouvrir
         open()
      Case $_dossier
         IniRead("BatchCreator.ini","Réglages","Dossier",$dossier)
EndSwitch
WEnd
EndFunc


Func open()
Global $name = FileOpenDialog("Selectionner le fichier à ouvrir", @ScriptDir, "Fichiers Batch (*.bat;*.cmd;*.batch;*.xbat)")
If Not ($name = -1) Then
   $batchopen = FileRead($name)
   GuiCtrlSetData($batch, $batchopen)
Else
   MsgBox(16,"Erreur","Erreur d'ouverture de fichier. Vérifier que le fichier existe et n'est pas ouvert.")
EndIf
EndFunc

Func settings()
MsgBox(0,"BatchCreator","En construction...")
boucle()
EndFunc

Func about()
MsgBox(0,"BatchCreator","Ce logiciel a été créé par Sablier94 pour la team batch.xooit.it. Ceci est la version 1.0")
boucle()
EndFunc

Func help()
MsgBox(0,"BatchCreator","L'aide n'est pas encore disponible, désolé.")
boucle()
EndFunc

Func savesous()
$batch = GUICtrlRead($batch)
$name = InputBox("BatchCreator","Sous quel nom voulez-vous enregistrer le batch: ?")
If FileExists($dossier&"\"&$name&".bat") Then
$msgbox = MsgBox(1,"BatchCreator","Un batch sous ce nom existe déjà, voulez vous le remplacer ?")
Switch $msgbox
    Case 6
        FileOpen($dossier&"\"&$name&".bat",10)
    Case 2
      $name = InputBox("BatchCreator","Le fichier n'a pas été sauvé, sous quel nom voulez-vous enregistrer le batch ?")
      FileOpen($dossier&"\"&$name&".bat",10)
EndSwitch
EndIf

FileWrite($dossier&"\"&$name&".bat",$batch)
MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$dossier&"\"&$name&".bat")
Global $name
FileClose($dossier&"\"&$name&".bat")
boucle()
EndFunc

Func save()
$batch = GUICtrlRead($batch)
If $name = "" Then
Global $name = FileSaveDialog("Sous quel nom sauver le fichier ?", @ScriptDir, "Fichiers Batch (*.bat;*.cmd;*.batch;*.xbat)")
If @error Then
MsgBox(0,"BatchCreator","Le fichier n'a pas pu être sauvé. vérifier l'extension et le dossier choisi.")
Else
$popup = True
EndIf
FileOpen($dossier&"\"&$name&".bat",10)
FileWrite($dossier&"\"&$name&".bat",$batch)
If $popup = True Then MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$name&".bat")
Else
;If $name = "" Then $name = InputBox("BatchCreator","Sous quel nom voulez-vous enregistrer le batch: ?") & $popup = True
;FileOpen($dossier&"\"&$name&".bat",10)
;FileWrite($dossier&"\"&$name&".bat",$batch)
;If $popup Then MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$dossier&"\"&$name&".bat")
;Global $name
;FileClose($dossier&"\"&$name&".bat")
EndIf
boucle()
EndFunc





______________________________________________________
Répondre en citant
Message [Projet] BatchCreator 
Bonjour Sablier, je vais tester ton nouveau code.

La modification est indiquée dans mon précédent message et concernant la création du fichier ini, et la création du dossier par défaut.

Le fichier ini peut être intéressant pour enregistrer un fichier dans le dossier par défaut choisi, par exemple.

UDF :

TRACKER :



Edit : tu devrais aussi utiliser FileOpenDialog pour Enregistrer sous aussi. et je pense que le message de confirmation n'est pas nécessaire.

Je ne vois pas ce que tu pourrais faire pour t'aider mais peut être développer un peu plus en ajoutant un treeview à gauche ou droit pour une gestion de projet ???




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Projet] BatchCreator 
Ha ok, merci

J'ai vu Scintilla sur le forum Autoit mais je n'ai pas encore eu le temps de le voir. Il colore seulement pour du code Autoit ?

Je vais utiliser filesavedialog pour la fonction enregistrer sous, mais je ne l'ai pas encore faite et je dois aussi finir la fonction enregistrer.

Je modifie le 1er poste dès que je suis sur mon ordi.

A+




______________________________________________________
Répondre en citant
Message [Projet] BatchCreator 
Bonjour
tu en es ou ? projet toujours en cours ? abondonné ?




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Projet] BatchCreator 
Salut,

Non, malgré mon manque de temps, le projet est toujours en cours mais j'ai un problème au niveau de l'écriture du batch. soit elle ne se fait pas, soit elle n'efface pas l'ancien contenu... Il y a quelque chose que j'ai fait de faux, mais quoi ?

Dernière version du code :
Code:

#include <GUIConstants.au3>
#include <file.au3>

Global $name = "", $dossier = IniRead("BatchCreator.ini","Réglages","Dossier",@ScriptDir&"\BatchCreator"), $popup = False

#Region ### START Koda GUI section ###
$BatchCreator = GUICreate("BatchCreator", 627, 538, 194, 125)
$batch = GUICtrlCreateEdit("", 8, 8, 601, 513)
GUICtrlSetData(-1, "@echo off")
$m_fichier = GUICtrlCreateMenu("Fichier")
$_ouvrir = GUICtrlCreateMenuItem("Ouvrir", $m_fichier)
$_nouveau = GUICtrlCreateMenuItem("Nouveau", $m_fichier)
$_enregistrer = GUICtrlCreateMenuItem("Enregistrer", $m_fichier)
$_enregistrersous = GUICtrlCreateMenuItem("Enregistrer sous", $m_fichier)
$_compresser = GUICtrlCreateMenuItem("Compresser", $m_fichier)
$_decompresser = GUICtrlCreateMenuItem("Décompresser", $m_fichier)
$_quitter = GUICtrlCreateMenuItem("Quitter", $m_fichier)
$m_options = GUICtrlCreateMenu("Options")
$_reglages = GUICtrlCreateMenuItem("Réglages", $m_options)
$_dossier = GUICtrlCreateMenuItem("&Changer le dossier des batchs", $m_options)
$m_aide = GUICtrlCreateMenu("Aide")
$_apropos = GUICtrlCreateMenuItem("A propos", $m_aide)
$_aide = GUICtrlCreateMenuItem("Aide", $m_aide)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
boucle()

Func boucle()
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $_enregistrer
         save()
      Case $_quitter
         exit
      Case $_reglages
         settings()
      Case $_enregistrersous
         savesous()
      Case $_apropos
         about()
      Case $_aide
         help()
      Case $_ouvrir
         open()
      Case $_compresser
         zip()
      Case $_decompresser
         unzip()
      Case $_dossier
         IniRead("BatchCreator.ini","Réglages","Dossier",$dossier)
EndSwitch
WEnd
EndFunc


Func zip()
$batch = GUICtrlRead($batch)
$batch = StringReplace($batch,"@echo off","#ec1")
$batch = StringReplace($batch,"echo","#co")
$batch = StringReplace($batch,"title","#it")
$batch = StringReplace($batch,"cls","#lc")
$batch = StringReplace($batch,"ping","#ip")
$batch = StringReplace($batch,"color","#ol")
$batch = StringReplace($batch,"set","#es")
$batch = StringReplace($batch,"rem","#er")
$batch = StringReplace($batch,"REM","#ER")
$batch = StringReplace($batch,"goto","#og")
$batch = StringReplace($batch,"if","#fi")
$batch = StringReplace($batch,"127.0.0.1","#721")
$batch = StringReplace($batch,"echo.","#re")
$batch = StringReplace($batch,">nul","#un")


Global $name = FileSaveDialog("Sous quel nom sauver le fichier ?", @ScriptDir, "Fichiers Batch Compressés (*.xbat)")
If @error Then MsgBox(0,"BatchCreator","Le fichier n'a pas pu être sauvé. vérifier l'extension et le dossier choisi.")
FileOpen($name,10)
FileWrite($name,$batch)
MsgBox(0,"BatchCreator","le batch a bien été compressé dans : "&$name)
boucle()
EndFunc

Func unzip()
$batch = GUICtrlRead($batch)
$batch = StringReplace($batch,"#^1","@echo off")

boucle()
EndFunc

Func open()
Global $name = FileOpenDialog("Selectionner le fichier à ouvrir", @ScriptDir, "Fichiers Batch (*.bat;*.cmd;*.batch;*.xbat)")
If Not ($name = -1) Then
   $batchopen = FileRead($name)
   GuiCtrlSetData($batch, $batchopen)
Else
   MsgBox(16,"Erreur","Erreur d'ouverture de fichier. Vérifier que le fichier existe et n'est pas ouvert.")
EndIf
boucle()
EndFunc

Func settings()
MsgBox(0,"BatchCreator","En construction...")
boucle()
EndFunc

Func about()
MsgBox(0,"BatchCreator","Ce logiciel a été créé par Sablier94 pour la team batch.xooit.it. Ceci est la version 1.0")
boucle()
EndFunc

Func help()
MsgBox(0,"BatchCreator","L'aide n'est pas encore disponible, désolé.")
boucle()
EndFunc

Func savesous()
$batch = GUICtrlRead($batch)
Global $name = FileSaveDialog("Sous quel nom sauver le fichier ?", @ScriptDir, "Fichiers Batch (*.bat;*.cmd;*.batch;*.xbat)")
If @error Then
   MsgBox(0,"BatchCreator","Le fichier n'a pas pu être sauvé. vérifier l'extension et le dossier choisi.")
Else
   $popup = True
EndIf
FileOpen($dossier&"\"&$name,10)
FileWrite($dossier&"\"&$name,$batch)
If $popup = True Then MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$name)
FileClose($dossier&"\"&$name)
boucle()
EndFunc

Func save()
$batch = GUICtrlRead($batch)
If $name = "" Then
   Global $name = FileSaveDialog("Sous quel nom sauver le fichier ?", @ScriptDir, "Fichiers Batch (*.bat;*.cmd;*.batch;*.xbat)")
   If @error Then
      MsgBox(0,"BatchCreator","Le fichier n'a pas pu être sauvé. vérifier l'extension et le dossier choisi.")
Else
   $popup = True
EndIf
FileOpen($dossier&"\"&$name,10)
FileWrite($dossier&"\"&$name,$batch)
If $popup = True Then MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$name)
;--------------------
;Ancienne fonction
;If $name = "" Then $name = InputBox("BatchCreator","Sous quel nom voulez-vous enregistrer le batch: ?") & $popup = True
;FileOpen($dossier&"\"&$name&".bat",10)
;FileWrite($dossier&"\"&$name&".bat",$batch)
;If $popup Then MsgBox(0,"BatchCreator","le batch a bien été créé dans : "&$dossier&"\"&$name&".bat")
;Global $name
;FileClose($dossier&"\"&$name&".bat")
;--------------------
EndIf
boucle()
EndFunc


Je mettrais plus tard un editbox de l'UDF RichEdit je pense.
Merci




______________________________________________________
Message [Projet] BatchCreator 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



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