[Ex] Prédiction de texte

[ethneldryt]

Bonjour, voila un bout de code qui permet de prédire des mots qui sont dans un fichier texte par exemple. Le code est en vrac, mais je pense qu'on peut l’améliorer.

► Afficher le textecode

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
 

le fichier toto.txt est a récupérer ici : http://dl.free.fr/nTMTqi5Cz
il contient un dictionnaire.
Mais si quelqu'un connais un autre dictionnaire, merci de me le dire, car il manque pas mal de lettre dans celui la ^^