[R] Récupérer les paramètres d'un logiciel (The Dude)

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

[mikell]

Le chemin du fichier à vérifier est renseigné dans un logiciel appelé The Dude ...

Renseigné où précisément ?

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

[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
 

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

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

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

[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

[cbourdu57]

Ou plus simplement, comment encapsuler mon .exe de autoit dans du vb ( comme ça je pourrais utiliser le Wscript.Arguments() et Wscript.Echo ) ?

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

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

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

Code : Tout sélectionner

SET objFS = CreateObject( "Scripting.FileSystemObject" )

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

[cbourdu57]

Merci

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

[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())

[cbourdu57]

Merci !