Page 1 sur 1
[R] Créer et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 20:21
par jeanmimigab
Bonjour à tous(tes),
J’essaie de faire un script qui à un moment doit créer un fichier.vbs, ce qui me bloque c'est que je voudrais que le nom du fichier soit celui de la date du jour au format jjmmaaaa, par exemple si le fichier est créé aujourd'hui il doit se nommé 28092015.vbs
J'arrive à récupérer la date au format voulu, mais je ne sais pas comment l'insérer dans le nom du fichier créé
en voyant mon script vous comprendrez vite d'où vient le souci ( le fichier porte le nom de la variable au lieu du résultat de cette variable )
Code : Tout sélectionner
#Region ### START Koda GUI section ### Form=C:\Users\Jeanmimi\Desktop\test\Form1.kxf
$Form1 = GUICreate("Form1", 259, 242, 263, 230)
$Input1 = GUICtrlCreateInput("Input1", 48, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 72, 136, 75, 25)
$Date1 = GUICtrlCreateDate("2015/09/25 20:13:44", 24, 88, 186, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
EXIT
Case $msg = $Button1
; appel fonction
_Creatappini()
EndSelect
WEnd
Exit
;début fonction
Func _Creatappini()
Global $ecri2 = guictrlread($Input1)
Global $ecri3 = guictrlread($Date1)
$msg = GUIGetMsg()
;création des dossiers nominatifs
DirCreate('TECHNICIENS\' & $ecri2)
;création du fichier.vbs date du jour au format jjmmaaaa.vbs
_FileCreate("$ecri3.vbs")
FileWrite(@scriptdir & "/$ecri3.vbs", 'MsgBox ' &'"' &' Mr ' & $ecri2 & ' blablabla....' & '"'& @CRLF)
Exit
EndFunc
merci d'avance pour votre aide
Re: [..] créé et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 20:56
par parazitenew
Bonsoir,
Ceci fonctionne, à toi de l'adapter à ton script.
Il ne faut pas oublier le #include <file.au3>
Re: [..] créé et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 22:22
par jeanmimigab
Bonsoir parazitenew,
Je teste cela et te tiens au courant
Merci beaucoup et bonne soirée
Re: [..] créé et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 22:32
par jeanmimigab
c'est tout bon, cela marche nickel
Un grand merci pour ton aide
@++ JM
Re: [..] créé et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 22:43
par jeanmimigab
encore un petit truc stp...
Si je veux nommer le fichier vbs avec la date saisie dans le calendrier ( $ecri3 ) mais au format jjmmaaaa.vbs
comment je peux m'y prendre stp ?
car si j'utilise cela ,
j'ai le nom du fichier au format lu dans la fenêtre "date1" et de mémoire je ne peux avoir que "lundi 28 septembre 2015.vbs" ou "28/09/2015.vbs" alors que le résultat recherché est dans ce format jjmmaaaa soit 28092015.vbs
merci encore de ta patience
Re: [..] créé et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 22:44
par parazitenew
Tu remplaces la date @MDAY & @MON & @YEAR par GuiCtrlRead()
Edit: Si tu veux le format spécifique t'as deux façons de faire.
Soit tu crées 3 inputs pour jour date et heure. Dans ce cas tu as chaque donnée dans une variable.
Soit tu crée un seul input, l'utilisateur écrira la date dans n'importe quel format et tu devras extraire les chiffres et les faire se suivre pour avoir le format jjmmyyyy.
T'as compris.
Je fais vite car je dois aller voir mon riz à la cuisine.
Re: [..] créé et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 22:45
par jeanmimigab
Désolé, on c'est croisés, j'ai édité mon message précédent à cause du format desiré à la création
Re: [..] créér et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 22:53
par jeanmimigab
ok, je vais essayer ce que tu proposes et je te tiens au courant.
bonne appétit et bonne soirée
Re: [..] créer et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 23:04
par mikell
Tu peux aussi essayer ça
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <DateTimeConstants.au3>
$Form1 = GUICreate("Form1", 259, 242, 263, 230)
$Button1 = GUICtrlCreateButton("Button1", 72, 136, 75, 25)
$Date1 = GUICtrlCreateDate("2015/09/25 20:13:44", 24, 88, 186, 21, $DTS_SHORTDATEFORMAT)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
EXIT
Case $msg = $Button1
_Creatappini()
EndSelect
WEnd
;début fonction
Func _Creatappini()
Global $date = guictrlread($Date1)
$ecri3 = StringReplace($date, "/", "")
msgbox(0,"", $ecri3)
EndFunc
Re: [..] créer et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 23:10
par orax
D'après l'exemple n°3 de GUICtrlCreateDate dans la doc :
Code : Tout sélectionner
#include <DateTimeConstants.au3>
...
$Date1 = GUICtrlCreateDate("2015/09/25 20:13:44", 24, 88, 186, 21)
$Style = "ddMMyyyy"
GUICtrlSendMsg($Date1, $DTM_SETFORMATW, 0, $Style)
$Date1 contient
25092015 au lieu de
Vendredi 25...
Re: [..] créer et éditer un fichier.vbs
Posté : lun. 28 sept. 2015 23:43
par jeanmimigab
Bonsoir
aurax, c'était si simple ?
Je n'avais pas trouvé cette option dans les paramètres de style de KODA FD, donc je pensais que ce n'était pas possible
Bonsoir
Mikell,
En tout cas un grand merci à vous trois, vous faite vraiment une superbe équipe sur ce fofo, c'est un plaisir d'y demander de l'aide
j'en apprend toujours un max...
@mikell, ta technique fonctionne nickel..
► Afficher le texte
Code : Tout sélectionner
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <ComboConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Jeanmimi\Desktop\test\Form1.kxf
$Form1 = GUICreate("Form1", 259, 242, 263, 230)
$Input1 = GUICtrlCreateInput("Input1", 48, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 72, 136, 75, 25)
$Date1 = GUICtrlCreateDate("2015/09/25 20:13:44", 24, 88, 186, 21, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
EXIT
Case $msg = $Button1
; appel fonction
_Creatappini()
EndSelect
WEnd
Exit
;début fonction
Func _Creatappini()
Global $date = guictrlread($Date1)
Global $ecri2 = guictrlread($Input1)
$ecri3 = StringReplace($date, "/", "")
msgbox(0,"", $ecri3)
$msg = GUIGetMsg()
;création des dossiers nominatifs
DirCreate('TECHNICIENS\' & $ecri2)
;création du fichier.vbs date du jour au format jjmmaaaa.vbs et édition contenu
_FileCreate(@ScriptDir & "\" & $ecri3 &".vbs")
FileWrite(@scriptdir & "/" & $ecri3 &".vbs", 'MsgBox ' &'"' &' Mr ' & $ecri2 & ' blablabla....' & '"'& @CRLF)
Exit
EndFunc