AutoIt Français

1
00:00:00,000 --> 00:00:09,000
Vendredi 1 novembre 2013 à 21:42:56
 

Created ..: 11/01/2013 20:42:56

#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <Date.au3>
#include <WindowsConstants.au3>

Global $iMemo

Example()

Func Example()
    Local $hFile, $tFile, $aTime

    ; Create GUI
    GUICreate("Time", 400, 300)
    $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

;~     ; Create test file and set file times
;~     $hFile = _WinAPI_CreateFile(@ScriptDir & "\Test.xyz", 1)
;~     If $hFile = 0 Then _WinAPI_ShowError("Unable to create file")
;~     $tFile = _Date_Time_EncodeFileTime(@MON, @MDAY, @YEAR, @HOUR, @MIN, @SEC)
;~     Local $pFile = DllStructGetPtr($tFile)
;~     _Date_Time_SetFileTime($hFile, $pFile, $pFile, $pFile)
;~     _WinAPI_CloseHandle($hFile)

    ; Read file times
    $hFile = _WinAPI_CreateFile("J:\Videos Caméscope\Nolan\SANY0200.MP4", 2)
    If $hFile = 0 Then _WinAPI_ShowError("Unable to open file")
    $aTime = _Date_Time_GetFileTime($hFile)
    _WinAPI_CloseHandle($hFile)

    MemoWrite("Created ..: " & _Date_Time_FileTimeToStr($aTime[0]))

    ; Loop until the user exits.
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

EndFunc   ;==>Example

PandiPanda a écrit :Bonjour, quelque chose comme ceci?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode",1)
Global $iMemo

Example()

Func Example()
    GUICreate("Time", 400, 300,300,300,$GUI_SS_DEFAULT_GUI, $WS_EX_ACCEPTFILES)
    GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
    GUISetOnEvent($GUI_EVENT_DROPPED,"_drop")
    Local $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    While 1
        Sleep(50)
    WEnd
EndFunc

Func quit()
    Exit
EndFunc

Func _drop()
    _createSrt(@GUI_DragFile)
EndFunc

Func _createSrt($sPathSrc)
    $sPathSrc = StringTrimRight($sPathSrc,2)
    Local $sTimeCreated = _getTimeCreated($sPathSrc)
    Local $sTxt = "1"&@CRLF&"00:00:00,000 --> 00:00:09,000"&@CRLF&$sTimeCreated&@CRLF
    If Not @error Then
        FileWrite($sPathSrc&" - "&$sTimeCreated&".srt",$sTxt)
        Return SetError(0,0,"")
    Else
        Return SetError(1,1,"")
    EndIf
EndFunc

Func _getTimeCreated($sPath)
    Local $aTime = FileGetTime($sPath,1)
    If @error Then Return SetError(1,1,"")
    Local $day[7] = ["Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche"]
    Local $month[12] =["Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Décembre"]
    Local $annee = $aTime[0]
    local $mois = $aTime[1]
    Local $jour = $aTime[2]
    Local $heure = $aTime[3]
    Local $min = $aTime[4]
    Local $sec = $aTime[5]
    Return SetError(0,0,$day[Mod($jour,7)]&" "&$jour&' '&$month[$mois]&' '&$annee&" à "&$heure&"h"&$min&"min"&$sec&"s")
EndFunc

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode",1)
Global $iMemo

Example()

Func Example()
    GUICreate("Time", 400, 300,300,300,$GUI_SS_DEFAULT_GUI, $WS_EX_ACCEPTFILES)
    GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
    GUISetOnEvent($GUI_EVENT_DROPPED,"_drop")
    Local $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    While 1
        Sleep(50)
    WEnd
EndFunc

Func quit()
    Exit
EndFunc

Func _drop()
    _createSrt(@GUI_DragFile)
EndFunc

Func _createSrt($sPathSrc)
    $sPathSrc = StringTrimRight($sPathSrc,2)
    Local $sTimeCreated = _getTimeCreated($sPathSrc)
    Local $sTxt = "1"&@CRLF&"00:00:00,000 --> 00:00:09,000"&@CRLF&$sTimeCreated&@CRLF
    If Not @error Then
        FileWrite($sPathSrc&" - "&$sTimeCreated&".srt",$sTxt)
        Return SetError(0,0,"")
    Else
        Return SetError(1,1,"")
    EndIf
EndFunc

Func _getTimeCreated($sPath)
    Local $aTime = FileGetTime($sPath,1)
    If @error Then Return SetError(1,1,"")
    Local $day[7] = ["Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche"]
    Local $month[12] =["Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Decembre"]
    Local $annee = $aTime[0]
    local $mois = $aTime[1]
    Local $jour = $aTime[2]
    Local $heure = $aTime[3]
    Local $min = $aTime[4]
    Local $sec = $aTime[5]
    Return SetError(0,0,$day[Mod($jour,7)]&" "&$jour&' '&$month[$mois-1]&' '&$annee&" "&$heure&"h"&$min&"min"&$sec&"s")
EndFunc
 

Windows stock l'heure locale dans l'horloge système, et passe donc son temps à la décaler entre hiver/été, et quand vous changez de fuseau horaire.

Linux stock l'heure GMT dans l'horloge système, elle est donc constante et fiable. Au moment de donner l'heure, Linux lit l'heure GMT et applique le décalage de fuseau horaire. On a donc de bonnes dates.

Conséquence: Sous Windows des dates de modifications de fichier ne sont pas fiables.
C'est une limitation de Windows.

source: ici

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <WinAPI.au3>

Opt("GUIOnEventMode",1)
Global $iMemo

Example()

Func Example()
    GUICreate("Time", 400, 300,300,300,$GUI_SS_DEFAULT_GUI, $WS_EX_ACCEPTFILES)
    GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
    GUISetOnEvent($GUI_EVENT_DROPPED,"_drop")
    Local $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    While 1
        Sleep(50)
    WEnd
EndFunc

Func quit()
    Exit
EndFunc

Func _drop()
    _createSrt(@GUI_DragFile)
EndFunc

Func _createSrt($sPathSrc)
    $sPathSrc = StringTrimRight($sPathSrc,2)
    Local $sTimeCreated = _getTimeCreated($sPathSrc)
    Local $sTxt = "1"&@CRLF&"00:00:00,000 --> 00:00:09,000"&@CRLF&$sTimeCreated&@CRLF
    If Not @error Then
        FileWrite($sPathSrc&" - "&$sTimeCreated&".srt",$sTxt)
        Return SetError(0,0,"")
    Else
        Return SetError(1,1,"")
    EndIf
EndFunc

Func _getTimeCreated($sPath)

    Local $aTime = FileGetTime($sPath,1)
    If @error Then Return SetError(1,1,"")
    Local $day[7] = ["Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche"]
    Local $month[12] =["Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Decembre"]
    Local $annee = $aTime[0]
    local $mois = $aTime[1]
    Local $jour = $aTime[2]
    Local $heure = $aTime[3] + _getDecal()
    Local $min = $aTime[4]
    Local $sec = $aTime[5]
    Return SetError(0,0,$day[Mod($jour,7)]&" "&$jour&' '&$month[$mois-1]&' '&$annee&" "&$heure&"h"&$min&"min"&$sec&"s")
EndFunc

Func _getDecal()
    $tSystem = _Date_Time_GetSystemTime()
    $tLocal = StringRegExpReplace(_Date_Time_SystemTimeToTzSpecificLocalTime(DllStructGetPtr($tSystem)),"(.*) (\d{1,2})(.*)","$2")
    $tLocal = _Date_Time_GetLocalTime()
    $tSystem = StringRegExpReplace(_Date_Time_TzSpecificLocalTimeToSystemTime(DllStructGetPtr($tLocal)),"(.*) (\d{1,2})(.*)","$2")
    Return (Int($tLocal) - Int($tSystem))
EndFunc

PandiPanda a écrit :Bonsoir,
pour le "mois" c'est une petite erreur de ma part, j'aurai du décrementé de 1
Bref' ici le script

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode",1)
Global $iMemo

Example()

Func Example()
    GUICreate("Time", 400, 300,300,300,$GUI_SS_DEFAULT_GUI, $WS_EX_ACCEPTFILES)
    GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
    GUISetOnEvent($GUI_EVENT_DROPPED,"_drop")
    Local $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    While 1
        Sleep(50)
    WEnd
EndFunc

Func quit()
    Exit
EndFunc

Func _drop()
    _createSrt(@GUI_DragFile)
EndFunc

Func _createSrt($sPathSrc)
    $sPathSrc = StringTrimRight($sPathSrc,2)
    Local $sTimeCreated = _getTimeCreated($sPathSrc)
    Local $sTxt = "1"&@CRLF&"00:00:00,000 --> 00:00:09,000"&@CRLF&$sTimeCreated&@CRLF
    If Not @error Then
        FileWrite($sPathSrc&" - "&$sTimeCreated&".srt",$sTxt)
        Return SetError(0,0,"")
    Else
        Return SetError(1,1,"")
    EndIf
EndFunc

Func _getTimeCreated($sPath)
    Local $aTime = FileGetTime($sPath,1)
    If @error Then Return SetError(1,1,"")
    Local $day[7] = ["Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche"]
    Local $month[12] =["Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Decembre"]
    Local $annee = $aTime[0]
    local $mois = $aTime[1]
    Local $jour = $aTime[2]
    Local $heure = $aTime[3]
    Local $min = $aTime[4]
    Local $sec = $aTime[5]
    Return SetError(0,0,$day[Mod($jour,7)]&" "&$jour&' '&$month[$mois-1]&' '&$annee&" "&$heure&"h"&$min&"min"&$sec&"s")
EndFunc
 

Pour l'heure je n'ai pas de réponse à vous fournir, en faisant une petite recherche google, je suis tombé sur ca ...

Windows stock l'heure locale dans l'horloge système, et passe donc son temps à la décaler entre hiver/été, et quand vous changez de fuseau horaire.

Linux stock l'heure GMT dans l'horloge système, elle est donc constante et fiable. Au moment de donner l'heure, Linux lit l'heure GMT et applique le décalage de fuseau horaire. On a donc de bonnes dates.

Conséquence: Sous Windows des dates de modifications de fichier ne sont pas fiables.
C'est une limitation de Windows.

source: ici

Edit : pouvez vous essayer ce script ci dessous?
J'ai essayer d'inclure le decalage horaire, sans tout de fois être certain du résultat ^^

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <WinAPI.au3>

Opt("GUIOnEventMode",1)
Global $iMemo

Example()

Func Example()
    GUICreate("Time", 400, 300,300,300,$GUI_SS_DEFAULT_GUI, $WS_EX_ACCEPTFILES)
    GUISetOnEvent($GUI_EVENT_CLOSE,"quit")
    GUISetOnEvent($GUI_EVENT_DROPPED,"_drop")
    Local $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState(@SW_SHOW)

    While 1
        Sleep(50)
    WEnd
EndFunc

Func quit()
    Exit
EndFunc

Func _drop()
    _createSrt(@GUI_DragFile)
EndFunc

Func _createSrt($sPathSrc)
    $sPathSrc = StringTrimRight($sPathSrc,2)
    Local $sTimeCreated = _getTimeCreated($sPathSrc)
    Local $sTxt = "1"&@CRLF&"00:00:00,000 --> 00:00:09,000"&@CRLF&$sTimeCreated&@CRLF
    If Not @error Then
        FileWrite($sPathSrc&" - "&$sTimeCreated&".srt",$sTxt)
        Return SetError(0,0,"")
    Else
        Return SetError(1,1,"")
    EndIf
EndFunc

Func _getTimeCreated($sPath)

    Local $aTime = FileGetTime($sPath,1)
    If @error Then Return SetError(1,1,"")
    Local $day[7] = ["Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche"]
    Local $month[12] =["Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Decembre"]
    Local $annee = $aTime[0]
    local $mois = $aTime[1]
    Local $jour = $aTime[2]
    Local $heure = $aTime[3] + _getDecal()
    Local $min = $aTime[4]
    Local $sec = $aTime[5]
    Return SetError(0,0,$day[Mod($jour,7)]&" "&$jour&' '&$month[$mois-1]&' '&$annee&" "&$heure&"h"&$min&"min"&$sec&"s")
EndFunc

Func _getDecal()
    $tSystem = _Date_Time_GetSystemTime()
    $tLocal = StringRegExpReplace(_Date_Time_SystemTimeToTzSpecificLocalTime(DllStructGetPtr($tSystem)),"(.*) (\d{1,2})(.*)","$2")
    $tLocal = _Date_Time_GetLocalTime()
    $tSystem = StringRegExpReplace(_Date_Time_TzSpecificLocalTimeToSystemTime(DllStructGetPtr($tLocal)),"(.*) (\d{1,2})(.*)","$2")
    Return (Int($tLocal) - Int($tSystem))
EndFunc

SANY0200.MP4 - Mardi 01 Novembre 2013 22h42min56s.srt

SANY0200.MP4 - Vendredi 01 Novembre 2013 21h42min56s.srt