[R] Créer et éditer un fichier.vbs

[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

[parazitenew]

Bonsoir,

Ceci fonctionne, à toi de l'adapter à ton script.

Code : Tout sélectionner

_FileCreate(@ScriptDir & "\" & @MDAY & @MON & @YEAR &".vbs")

Il ne faut pas oublier le #include <file.au3>

[jeanmimigab]

Bonsoir parazitenew,

Je teste cela et te tiens au courant

Merci beaucoup et bonne soirée

[jeanmimigab]

c'est tout bon, cela marche nickel

Un grand merci pour ton aide

@++ JM

[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 ,

Code : Tout sélectionner

_FileCreate(@ScriptDir & "\" & $ecri3 &".vbs")

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

[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.

[jeanmimigab]

Désolé, on c'est croisés, j'ai édité mon message précédent à cause du format desiré à la création

[jeanmimigab]

ok, je vais essayer ce que tu proposes et je te tiens au courant.

bonne appétit et bonne soirée

[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

[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...

[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