Page 1 sur 1
[R] Récupérer les paramètres d'un logiciel (The Dude)
Posté : mer. 24 avr. 2013 18:33
par cbourdu57
Bonjour,
Je fais appel à vous car j'ai de gros problèmes ...
Je dois créer un script qui permet de comparer la date du jour et la date de modification d'un fichier, si c'est le même jour ça doit renvoyer 1 sinon 0 ...
Le chemin du fichier à vérifier est renseigné dans un logiciel appelé The Dude ...
J'ai essayé d'utiliser $CmdLine[1] pour récupérer le 1er paramètre de The Dude (Custom Field 1) mais cela ne fonctionne pas ...
La partie vérification de date marche très bien, car quand j'écris le chemin du fichier en dur, ça fonctionne
Voici mon code ...
Code : Tout sélectionner
#include<date.au3>
If $CmdLine[0] > 0 Then ; vérification si paramètre
$fichier = $CmdLine[1] ;lecture du 1er paramètre
Else
msgbox(0,"erreur","paramètre obligatoire")
EndIf
If FileExists($fichier) = 0 Then
MsgBox(0,"","Votre sauvegarde n'existe pas")
Else
$t = FileGetTime($fichier)
$date_fichier=$t[0] & "/" & $t[1] & "/" & $t[2] & " " & $t[3] & ":" & $t[4] & ":" & $t[5]
$date_jour=_NowCalc() ;récupère la date du jour
$calcul=_DateDiff ('d',$date_fichier,$date_jour)
$date_fichier_fr=_DateTimeFormat($date_fichier,2)
If Not @error Then
If $calcul=0 Then
$export=1
Else
$export=0
EndIf
Return $export
EndIf
EndIf
On me retourne seulement le message: "paramètre obligatoire"
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : mer. 24 avr. 2013 20:14
par mikell
cbourdu57 a écrit :Le chemin du fichier à vérifier est renseigné dans un logiciel appelé The Dude ...
Renseigné où précisément ?
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : mer. 24 avr. 2013 20:38
par cbourdu57
Quand on click droit sur un appareil, dans les paramètres, on peut rajouter des Custom Fields ... Et c'est les valeurs du Custom Field que je veux récupéré ...
Je sais qu'en Vbscript c'est Wscript.Argument pour les récupéré mais en autoit je sais pas ...
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : jeu. 25 avr. 2013 09:11
par cbourdu57
Pour info en vbscript c'est ça :
Code : Tout sélectionner
'strFile1 = "C:\test.txt" 'Ceci est un commentaire ....
strFile1 = WScript.Arguments(0)
SET objFS = CreateObject( "Scripting.FileSystemObject" )
diff = DateDiff("d",objFS.GetFile(strFile1).DateLastModified,Date)
IF diff <= 7 THEN
WScript.Echo "1"
ELSEIF diff > 7 THEN
WScript.Echo "0"
END IF
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : jeu. 25 avr. 2013 21:52
par Tlem
Pour avoir les informations de date de création et de modification d'un fichier (comme demandé dans votre premier message), vous devez utiliser la commande FileGetTime.
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : ven. 26 avr. 2013 09:20
par cbourdu57
Merci mais cette partie là fonctionne très bien quand on rentre le fichier a la main ...
Mon seul soucis c'est que je ne sais pas comment récupérer le chemin du fichier dans The Dude ...
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : sam. 27 avr. 2013 00:26
par Tlem
Je ne sais pas ce qu'est The Dude !!! Mais si ce logiciel n'est pas en mesure de vous fournir les informations ou une liste de fichiers à traiter, ca va pas le faire ...
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : lun. 29 avr. 2013 09:33
par cbourdu57
Merci je vais voir le coté Dude de mon coté, par contre vu que j'ai le script en VBscript , est ce que quelqu'un sait l'équivalent en Auto it de WScript.Arguments(0) et WScript.Echo ?
J'ai mis le code en VBscript un peu plus tot...
Merci pour vos réponses c'est simpa
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : lun. 29 avr. 2013 11:53
par cbourdu57
Ou plus simplement, comment encapsuler mon .exe de autoit dans du vb ( comme ça je pourrais utiliser le Wscript.Arguments() et Wscript.Echo ) ?
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : lun. 29 avr. 2013 15:32
par mikell
Wscript.Arguments.Count => $CmdLine[0]
Wscript.Arguments(0) => $CmdLine[1]
Wscript.Echo => MsgBox
Mais pour que ça marche et que les params soient récupérés il faut que le script compilé soit lancé par ton logiciel, exemple (lancer le script 1) :
► Afficher le texteScript1.au3
Code : Tout sélectionner
Local $string = '"ceci est le paramètre"'
ShellExecute(@ScriptDir & '\Script2.au3', $string )
ou
► Afficher le texteScript1.vbs
Code : Tout sélectionner
strpath = Replace(WScript.ScriptFullName, WScript.ScriptName, "") ' = @scriptdir
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute strpath & "Script2.au3", "paramètre"
► Afficher le texteScript2.au3
Code : Tout sélectionner
MsgBox(0,'params', $CmdLine[0] &@crlf& $CmdLine[1]) ; nb de paramètres passés après le nom du script / 1er paramètre
MsgBox(0,'$CmdLineRaw', $CmdLineRaw) ; commande complète
Après comme l'a dit Tlem "The Dude" on connait pas donc pas moyen d'en dire plus ^^
Re: [..] Récupérer les paramètres d'un logiciel (The Dude)
Posté : lun. 29 avr. 2013 15:41
par cbourdu57
Merci beaucoup pour vos réponses rapides et pertinentes !
Je testerai tout ça de mon côté, vous m'avez été d'une grande aide !
Bonne continuation ! Vous êtes super !
Re: [R] Récupérer les paramètres d'un logiciel (The Dude)
Posté : mar. 30 avr. 2013 11:04
par cbourdu57
Juste une dernière petite question si ça ne te dérange pas ...
Sais tu l'équivalence du code VBscript si dessous en Autoit ?
Re: [R] Récupérer les paramètres d'un logiciel (The Dude)
Posté : mar. 30 avr. 2013 11:40
par mikell
En autoit tu n'en as pas besoin :
Code : Tout sélectionner
SET objFS = CreateObject( "Scripting.FileSystemObject" )
set file = objFS.OpenTextFile(...) => $file = FileOpen(...)
set text = objFS.Read(...) => $text = FileRead(...)
etc
....
objFS.GetFile(File1).DateLastModified => FileGetTime($File1, 0)
Re: [R] Récupérer les paramètres d'un logiciel (The Dude)
Posté : mar. 30 avr. 2013 11:46
par cbourdu57
Merci
Re: [R] Récupérer les paramètres d'un logiciel (The Dude)
Posté : jeu. 02 mai 2013 10:05
par cbourdu57
Code : Tout sélectionner
;$fichier="C:\Stage\test.txt"
$fichier= $CmdLine[1]
$diff=_DateDiff('d',FileGetTime($fichier),_NowCalc())
if $diff<=7 Then
MsgBox(0,"","1")
ElseIf $diff>7 Then
MsgBox(0,"",0)
EndIf
J'ai l'erreur là qui s'inscrit ... Quelqu'un sait pourquoi ?
Re: [R] Récupérer les paramètres d'un logiciel (The Dude)
Posté : jeu. 02 mai 2013 10:40
par mikell
Oui c'est dans les valeurs de retour des fonctions
Code : Tout sélectionner
$array= FileGetTime($fichier)
$date = $array[0] &"/"& $array[1] &"/"& $array[2]
$diff = _DateDiff('d', $date, _NowCalcDate())
Re: [R] Récupérer les paramètres d'un logiciel (The Dude)
Posté : mar. 07 mai 2013 09:12
par cbourdu57
Merci !