[R] Date différée ne fonctionne pas avec moi

[jeanmimigab]

Bonsoir à tous(tes)

C'est encore moi

Je tente de m'inspirer de ce topic >> http://www.autoitscript.fr/forum/viewto ... =3&t=13690

afin de décaler la date du nom de mon fichier jjmmaaaa.vbs généré par une date inférieure de 10 jours

par exemple le fichier "jjmmaaaa.vbs" se nommerait "19092015" au lieu de "29092015 si il était créé aujourd'hui

Je pense que je m'y prend comme un manche de pioche pour intégrer _DateAdd dans mon script

► 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>
#include <date.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 $ecri2 = guictrlread($Input1)
    Global $DateDeMonRDV = guictrlread($Date1)
    Global $sNewDate = _DateAdd('d', -10, $DateDeMonRDV)
    Global $ecri3 = StringReplace($sNewDate, "/", "")
MsgBox(64,"ALARME RENDEZ-VOUS", "N'oubliez pas votre rendez-vous le " & $ecri3)

$msg = GUIGetMsg()


Exit
EndFunc

Merci d'avance

[mikell]

Non c'est juste que _DateAdd() fonctionne avec le format EN donc ya des petites manipulations à effectuer
Essaie ça, j'ai mis une série de msgbox pour visualiser le truc
Le StringRegExpReplace vient tout droit de l'exemple du fichier d'aide

► Afficher le texte

Code : Tout sélectionner

Func _Creatappini()
    $ecri2 = guictrlread($Input1)
    $DateDeMonRDV = guictrlread($Date1)
MsgBox(0,"", $DateDeMonRDV)
   $formatEN = StringRegExpReplace($DateDeMonRDV, '(\d{2})/(\d{2})/(\d{4})', "$3/$2/$1")
MsgBox(0,"", $formatEN)
    $sNewDate = _DateAdd('d', -10, $formatEN)
MsgBox(0,"", $sNewDate)
    $formatFR = StringRegExpReplace($sNewDate, '(\d{4})/(\d{2})/(\d{2})', "$3/$2/$1")
MsgBox(0,"", $formatFR)
    $ecri3 = StringReplace($formatFR, "/", "")
MsgBox(64,"ALARME RENDEZ-VOUS", "N'oubliez pas votre rendez-vous le " & $ecri3)
EndFunc

Et par pitié arrête de mettre des "Global" partout, au mieux c'est pas utile, au pire c'est une grosse erreur (selon le cas)

[jeanmimigab]

Bonsoir Mikell,

global ?

Super ! J'obtiens le bon résultat et tous tes exemples de msgbox vont m'aider à comprendre la structure du script.

Je vais pouvoir avancé dans mon usine à gaz de script

merci beaucoup et bonne soirée...

Amicalement,

Jeanmimi