AutoIt Français

Code : Tout sélectionner

$txt = @ScriptDir & "\toto.txt"
$fl = FileOpen($txt,0)
$read = FileRead($fl)
FileClose($fl)

$guiname = "test"
$gui = GUICreate($guiname,200,90)
$label = GUICtrlCreateLabel("Suggestion : ",5,5,150,30)
$input = GUICtrlCreateInput("",5,40,150,30)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            Exit
    EndSwitch
    
    If ControlGetFocus($guiname) = "Edit1" Then
        $lecture = GUICtrlRead($input)
        $str = StringInStr($read,$lecture)
        $rr = StringMid($read,$str)
        $rr2 = StringSplit($rr,@crlf)
        GUICtrlSetData($label,"Suggestion : " & $rr2[1])
    EndIf
WEnd