AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <file.au3>
#include <array.au3>

dim $ES_PASSWORD,$ES_AUTOHSCROLL
Dim $Fic = "fichier.txt"
Dim $Count
#Region ### START Koda GUI section ### 
$Form1 = GUICreate("Form1", 633, 447, -1, -1)
$NomPC = GUICtrlCreateLabel("Numero Inventaire ex:0391234", 144, 32, 71, 17)
$Domaine = GUICtrlCreateLabel("Domaine", 144, 112, 46, 17)
$Site = GUICtrlCreateLabel("Site", 144, 192, 22, 17)
$User = GUICtrlCreateLabel("User Reseaux ex:A\frxxxxx", 144, 273, 26, 17)
$Password = GUICtrlCreateLabel("Password Reseaux", 144, 353, 50, 17)
$Input1 = GUICtrlCreateInput("Sxxxxxx", 144, 72, 201, 21)
$Domaine1 = GUICtrlCreateCombo("", 144, 152, 201, 25)
GUICtrlSetData (-1, "B|A", "A")
$Site1 = GUICtrlCreateCombo("", 144, 233, 201, 25)
GUICtrlSetData (-1, "1|2", "2")
$Input2 = GUICtrlCreateInput("", 144, 313, 201, 21)
$Input3 = GUICtrlCreateInput("", 144, 393, 201, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$OK = GUICtrlCreateButton("OK", 432, 176, 129, 113, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    
    
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE 
            Exit
        Case $OK
            ecriredansfichier()
    EndSwitch
WEnd
    
    
Func ecriredansfichier()
$hFile = FileOpen($Fic, 0)
While 1
    $line = FileReadLine($hFile)
    ; Si c'est la fin du fichier, on sort.
    If @error = -1 Then ExitLoop
    ; Petit compteur pour connaitre la ligne traitée.
    $Count = $Count + 1
    
    ; Ici je regarde si la chaine mdp=mdpDeX existe dans la ligne.
    If StringInStr($line, "=") Then
        ; Je met à jour la variable $Line avec les nouvelles infos.
        $line = StringReplace($line, "$valeur1", GUICtrlRead($NomPC))
        ; Fermeture du fichier (En lecture).
        FileClose($hFile)
        ; On écrit la ligne au bon endroit.
        _FileWriteToLine($Fic, $Count, $line, 1)
        MsgBox(64, "Info", "Le fichier à été modifié.")
        Exit
    EndIf
WEnd
FileClose($hFile)
EndFunc