AutoIt Français

Code : Tout sélectionner

#include <GUIconstantsEx.au3>
#NoTrayIcon

$file2 = FileOpen ("cdi21.au3",1)
$file = FileOpen ("cdi.txt",1)
$guil = """"


GUICreate ("Inscription au CDI",400,400)


$var1 = GUICtrlCreateInput ("Code : ",10,50,150,20)
$var2 = GUICtrlCreateInput ("Nom : ",200,50,150,20)
$var3 = GUICtrlCreateInput ("Prénom : ",200,130,150,20)
$var4 = GUICtrlCreateCombo ("Classe (inutile pour codifier)",10,130,150,20)
GUICtrlSetData ($var4,"601|602|603|604|605|606|607|501|502|503|504|505|506|507|401|402|403|404|405|406|407|301|302|303|305|306|307|308|608|508|409|309")
$b1 = GUICtrlCreateButton (">>>Entrée<<<",10,260)
$b2 = GUICtrlCreateButton (">>>Pour Enregistrer<<<",200,260)
$b3 = GUICtrlCreateButton (">>>Ouvrir le fichier texte<<<",10,300)
$o = GUICtrlCreateCheckbox ("Oublier",200,150)


GUISetState (@SW_SHOW)

while 1
    $error = 0
    $msg = GUIGetMsg()
Select
    Case $msg = $GUI_EVENT_CLOSE
        FileClose ($file)
        Exit

        
    Case $msg = $b1 
        FileOpen ($file,1)
        $var = GUICtrlRead ($var1)
        $var41 = GUICtrlRead ($var4)
        
    If $var = 6090000003068 Then
        FileWrite ($file,"-" & "LEFEVRE Hugo 505" &  @CRLF)
    Endif       

    If $var = 6090000003150 Then
        FileWrite ($file,"-" & "KHOUADER Billel 505" &  @CRLF)
    Endif
    
    Case $msg = $b2
        FileOpen ($file,1)
        $var21 = GUICtrlRead ($var2)
        $var31 = GUICtrlRead ($var3)
        $var11 = GUICtrlRead ($var1)
        $var41 = GUICtrlRead ($var4)
        FileWrite ($file2 ,"    If $var = " & $var11 & " " & "Then" & @CRLF)  
        FileWrite ($file2,"     FileWrite ($file,""-"" & " & $guil & $var21 & " " & $var31 & " " & $var41 & $guil & " &  @CRLF" & ")" & @CRLF & "   Endif" & @CRLF)
        FileWrite ($file, "-" & $var21 & " " & $var31 & " " & $var41 & @CRLF)
    
    Case $msg = $b3
        FileClose ($file)
        FileOpen ("cdi.txt",1)
        ShellExecute ("cdi.txt")

        
        
        
        
    
EndSelect

WEnd