[R] GUICtrlCreateDate & GUICtrlRead

[silvere]

Bonjour
Je voudrais faire un logiciel ou l'on rentre une date (avec GUICtrlCreateDate) puis quand on ferme est ré-ouvre le logiciel sa affiche la date selectionner de la dernière foi.

alors j'ai fait sa :

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <GUIConstantsEx.au3>

Global $Form1 = GUICreate("Form1", 295, 97, 228, 151)
Global $Date1 = GUICtrlCreateDate(FileReadLine(@DesktopDir & "\info.txt"), 40, 16, 217, 33)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            If Not FileExists(@DesktopDir & "\info.txt") Then _FileCreate(@DesktopDir & "\info.txt")
            _FileWriteToLine(@DesktopDir & "\info.txt", 1, GUICtrlRead($Date1), 1)
            Exit
    EndSwitch
WEnd

Sa n'a pas marcher alors j'ai lu dans l'aide :

Code : Tout sélectionner

The "data" date format is "yyyy/mm/dd".

Ma question est donc comment faire ?

[matwachich]

Code : Tout sélectionner

#include <GuiDateTimePicker.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>

Global $file = @ScriptDir & "\date.txt"

Global $Form1 = GUICreate("Form1", 200, 40)
Global $Date1 = _GUICtrlDTP_Create($Form1, 10, 10, 180, 20)
_GuiCtrlDTP_SetFormat($Date1, "d MMMM yyyy")
GUISetState(@SW_SHOW)

$read = FileRead($file)
If $read Then
    $read = StringSplit($read, "|")
    If $read[0] = 6 Then
        $read[0] = False
        _GuiCtrlDTP_SetSystemTime($Date1, $read)
    EndIf
EndIf

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            $read = _GuiCtrlDTP_GetSystemTime($Date1)
            FileDelete($file)
            FileWrite($file, _ArrayToString($read, "|"))
            Exit
    EndSwitch
WEnd
 

[silvere]

Ha super !
Merci