[..] Tricher au scrable avec Autoit ?

[Kikoolol]

Bonsoir, j'aimerais crée une sorte de programme avec Autoit permettant de trouver une combinaison de lettre formant un mot.

Voila ce que je voudrais faire :

Le programme se lance, nous donnons 7 Lettres au programme.
Je valide.
Le programme me sort tout les mots possible avec les lettres (une partie des lettres dans n'importe quelle ordre), les mots doivent être triépar nombres de lettres.
(seuls les mots comportant entre 3 et 5 lettres compris doivent être affichés. Ordre croissant a décroissant)

Voici un site qui illustre parfaitement l'idée : http://www.kurokatta.org/hacks/scarab-fr
Voir le premier formulaire.

Seulement je ne sais pas trop comment m'y prendre ni où récuperer les mots du dictionnaire...

Merci d'avance

[jbnh]

Bonjour,

Je pense que le plus simple serait de rapatrier le code html de la page pour en extraire le contenu.
Exemple : si je prend comme lettres aobtyhg, l'url est alors comme suit: http://www.kurokatta.org/hacks/scarab-fr?q=[b]aobtyhg[/b]

On ramène l'html de cette page la et on en extrait les mots.
Il me semble que cette méthode est la plus simple.

[Kikoolol]

Merci beaucoup jbnh pour cette réponse très rapide.

Seulement, comment faire pour "extraire" juste les données nécessaires pour les afficher dans mon programme sans pour autant être obliger d'ouvrir la navigateur ?

[jbnh]

Avec inetget et des string pour isoler les infos.

[Kikoolol]

Oké !
Alors j'ai compris comment me servir d'Iniget mais pour les String je patoche totalement !

Code : Tout sélectionner

InetGet("http://www.kurokatta.org/hacks/scarab-fr?q=aobtyhg", @TempDir + "cs.htm")
$file = FileOpen(@TempDir + "cs.htm", 0)

J'ai chercher sur la doc et le forum mais rien n'y fait je n'arrive pas à me servir de ces fonctions. Pouvez-vous m'aider ?

[jumby]

Cela devrait vous convenir :

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
$2lettres = False
$3lettres = False
$4lettres = False
$5lettres = False
$6lettres = False
$7lettres = False
$8lettres = False
$9lettres = False
Global $numberofresult1
Global $numberofresult2

$lettres = InputBox('Recherche mot', 'Entrez vos lettres', '')
$pathfile = 'resultat.htm' ; Le nom du fichier où sera stockée la page web contenant les résultats
InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)

$pathresultat = 'resultat.txt' ; Le nom du fichier où seront stockées les résultats


if FileExists($pathresultat) Then
    FileDelete($pathresultat)
EndIf

$countline = _FileCountLines($pathfile)
for $checkallfile = 1 to $countline
$readline = FileReadLine($pathfile, $checkallfile)
$numberchar1 = StringLen($readline)
for $check1 = 1 to $numberchar1
$a = StringMid($readline, $check1, 14)

if $2lettres = False Then
if $a = '2&nbsp;lettres' Then
FileWrite($pathresultat, '2 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$2lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf

if $3lettres = False Then
if $a = '3&nbsp;lettres' Then
FileWrite($pathresultat, '3 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$3lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf

if $4lettres = False Then
if $a = '4&nbsp;lettres' Then
FileWrite($pathresultat, '4 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$4lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf

if $5lettres = False Then
if $a = '5&nbsp;lettres' Then
FileWrite($pathresultat, '5 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$5lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf

if $6lettres = False Then
if $a = '6&nbsp;lettres' Then
FileWrite($pathresultat, '6 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$6lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf

if $7lettres = False Then
if $a = '7&nbsp;lettres' Then
FileWrite($pathresultat, '7 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$7lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf


if $8lettres = False Then
if $a = '8&nbsp;lettres' Then
FileWrite($pathresultat, '8 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$8lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf

if $9lettres = False Then
if $a = '9&nbsp;lettres' Then
FileWrite($pathresultat, '9 lettres :'&@crlf&@crlf)
for $checkend = 2 to 9999 step 1
$readline = FileReadLine($pathfile, $checkallfile+$checkend)
$numberchar2 = StringLen($readline)
$a = StringMid($readline, 5, 5)
if $a = '</dd>' Then
$readend = $checkallfile+$checkend - 1 
ExitLoop
EndIf
Next
for $check2lettres = 2 to $readend step 1
$readline = FileReadLine($pathfile, $checkallfile+$check2lettres)
$numberchar2 = StringLen($readline)
if $checkallfile+$check2lettres = $readend Then
$a = StringMid($readline, 7, $numberchar2 - 6)
FileWrite($pathresultat, $a&@crlf&@crlf)
$9lettres = True
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
Exitloop 2
Else
$a = StringMid($readline, 7, $numberchar2 - 7)
FileWrite($pathresultat, $a&@crlf)
$numberofresult1 = $numberofresult2
$numberofresult2 = $numberofresult1 + 1
EndIf
Next

EndIf
EndIf




Next
if $checkallfile = $countline Then
    if FileExists($pathresultat) = 0 Then
        MsgBox(0, 'Aucun résultat trouvé', 'Aucun résultat trouvé')
    Else
    MsgBox(0, $numberofresult2&' résultats trouvés', $numberofresult2&' résultats trouvés')
    ShellExecute($pathresultat)
    EndIf
EndIf

Next

[Kikoolol]

Sa marche super bien merci !
Juste une dernier petit détail, jumby, comment faire pour que ton script retourne simplement les valeur dans un tableau à 2 dimensions.
Je m'explique :
Ton script s'exécute "comme une fonctione", il retourne les valeurs suivantes :

$Word[$NbrLettre][$NumMot] = LeMotEnEntier

Merci beaucoup !

[kay69]

Tien Kikoolol sa devrais t'aller, c'est un script que je viens de faire ^^
j'ai pris le script de jumby comme base, et j'ai opter pour les stringsplit car je trouve le script beaucoup plus rapide comme sa ^^, surtout quand il y a beaucoup de lettres.
si tu le souhaite, tu a juste a copier/coller les fonction déjà existantes, si tu veux plus de 8 lettres.

► Afficher le textecode

Code : Tout sélectionner

#include <File.au3>
#include <GuiConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#Include <GuiButton.au3>

Dim $word[99][9999]

$Form2 = GUICreate("Vos lettres", 640, 300, -1, -1)
GUICtrlCreateLabel("2 lettres", 27, 40)
GUICtrlCreateLabel("3 lettres", 117, 40)
GUICtrlCreateLabel("4 lettres", 207, 40)
GUICtrlCreateLabel("5 lettres", 297, 40)
GUICtrlCreateLabel("6 lettres", 387, 40)
GUICtrlCreateLabel("7 lettres", 477, 40)
GUICtrlCreateLabel("8 lettres", 567, 40)
$2lettres=GUICtrlCreateEdit("", 10, 60, 80, 180, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$3lettres=GUICtrlCreateEdit("", 100, 60, 80, 180, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$4lettres=GUICtrlCreateEdit("", 190, 60, 80, 180, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$5lettres=GUICtrlCreateEdit("", 280, 60, 80, 180, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$6lettres=GUICtrlCreateEdit("", 370, 60, 80, 180, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$7lettres=GUICtrlCreateEdit("", 460, 60, 80, 180, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$8lettres=GUICtrlCreateEdit("", 550, 60, 80, 180, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
GUICtrlSetBkColor($2lettres, 0xffffff)
GUICtrlSetBkColor($3lettres, 0xffffff)
GUICtrlSetBkColor($4lettres, 0xffffff)
GUICtrlSetBkColor($5lettres, 0xffffff)
GUICtrlSetBkColor($6lettres, 0xffffff)
GUICtrlSetBkColor($7lettres, 0xffffff)
GUICtrlSetBkColor($8lettres, 0xffffff)
$Lettres2=GUICtrlCreateInput("", 10, 10, 145, 20)
$Rechercher=GUICtrlCreateButton("Rechercher", 160, 9, 70, 22, $BS_DEFPUSHBUTTON )
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            
        Case $Rechercher
            $lettres = GUICtrlRead($Lettres2)
            GUICtrlSetData($2lettres, "")
            GUICtrlSetData($3lettres, "")
            GUICtrlSetData($4lettres, "")
            GUICtrlSetData($5lettres, "")
            GUICtrlSetData($6lettres, "")
            GUICtrlSetData($7lettres, "")
            GUICtrlSetData($8lettres, "")
            _2lettres()
            
    EndSwitch
WEnd

Func _2lettres()
    $pathfile = 'resultat.txt'
    $pathresultat = 'resultats.txt'
    InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)
    $Read=String(FileRead($pathfile))
    $split=StringSplit($read, "<dt>2&nbsp;lettres</dt>",1)
    If @error Then Return
        
    FileDelete($pathfile)
    FileDelete($pathresultat)

    $split=StringSplit($split[2], "Calcul", 1)
    $split=StringSplit($split[1], "<dt>3&nbsp;lettres</dt>", 1)
    $Rpl=StringReplace($Split[1], "<dd>", "")
    $Rpl=StringReplace($Rpl, "</dd>", "")
    $Rpl=StringReplace($Rpl, "<dl>", "")
    $Rpl=StringReplace($Rpl, "</dl>", "")
    $Rpl=StringReplace($Rpl, "<dt>", "")
    $Rpl=StringReplace($Rpl, "</dt>", "")
    $Rpl=StringReplace($Rpl, "<p>", "")
    $Rpl=StringReplace($Rpl, Chr(10), "")
    $Rpl=StringReplace($Rpl, ",", @CRLF)
    $Rpl=StringReplace($Rpl, " ", "")
    GUICtrlSetData($2lettres, $Rpl)
    FileWrite($pathresultat, $rpl)
    $line=_FileCountLines($pathresultat)
    For $i=1 To $line
        $word[2][$i]=FileReadLine($pathresultat, $i)
;~         ConsoleWrite("$word[2][" & $i & "] = " & FileReadLine($pathresultat, $i) & @CRLF)
    Next
    FileDelete($pathresultat)
    _3lettres()
EndFunc

Func _3lettres()
    $pathfile = 'resultat.txt'
    $pathresultat = 'resultats.txt'
    InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)
    $Read=String(FileRead($pathfile))
    $split=StringSplit($read, "<dt>3&nbsp;lettres</dt>",1)
    If @error Then Return
    
    FileDelete($pathfile)
    FileDelete($pathresultat)

    $split=StringSplit($split[2], "Calcul", 1)
    $split=StringSplit($split[1], "<dt>4&nbsp;lettres</dt>", 1)
    $Rpl=StringReplace($Split[1], "<dd>", "")
    $Rpl=StringReplace($Rpl, "</dd>", "")
    $Rpl=StringReplace($Rpl, "<dl>", "")
    $Rpl=StringReplace($Rpl, "</dl>", "")
    $Rpl=StringReplace($Rpl, "<dt>", "")
    $Rpl=StringReplace($Rpl, "</dt>", "")
    $Rpl=StringReplace($Rpl, "<p>", "")
    $Rpl=StringReplace($Rpl, Chr(10), "")
    $Rpl=StringReplace($Rpl, ",", @CRLF)
    $Rpl=StringReplace($Rpl, " ", "")
    GUICtrlSetData($3lettres, $Rpl)
    FileWrite($pathresultat, $rpl)
    $line=_FileCountLines($pathresultat)
    For $i=1 To $line
        $word[3][$i]=FileReadLine($pathresultat, $i)
;~         ConsoleWrite("$word[3][" & $i & "] = " & FileReadLine($pathresultat, $i) & @CRLF)
    Next
    FileDelete($pathresultat)
    _4lettres()
EndFunc

Func _4lettres()
    $pathfile = 'resultat.txt'
    $pathresultat = 'resultats.txt'
    InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)
    $Read=String(FileRead($pathfile))
    $split=StringSplit($read, "<dt>4&nbsp;lettres</dt>",1)
    If @error Then Return
    
    FileDelete($pathfile)
    FileDelete($pathresultat)

    $split=StringSplit($split[2], "Calcul", 1)
    $split=StringSplit($split[1], "<dt>5&nbsp;lettres</dt>", 1)
    $Rpl=StringReplace($Split[1], "<dd>", "")
    $Rpl=StringReplace($Rpl, "</dd>", "")
    $Rpl=StringReplace($Rpl, "<dl>", "")
    $Rpl=StringReplace($Rpl, "</dl>", "")
    $Rpl=StringReplace($Rpl, "<dt>", "")
    $Rpl=StringReplace($Rpl, "</dt>", "")
    $Rpl=StringReplace($Rpl, "<p>", "")
    $Rpl=StringReplace($Rpl, Chr(10), "")
    $Rpl=StringReplace($Rpl, ",", @CRLF)
    $Rpl=StringReplace($Rpl, " ", "")
    GUICtrlSetData($4lettres, $Rpl)
    FileWrite($pathresultat, $rpl)
    $line=_FileCountLines($pathresultat)
    For $i=1 To $line
        $word[4][$i]=FileReadLine($pathresultat, $i)
;~         ConsoleWrite("$word[4][" & $i & "] = " & FileReadLine($pathresultat, $i) & @CRLF)
    Next
    FileDelete($pathresultat)
    _5lettres()
EndFunc

Func _5lettres()
    $pathfile = 'resultat.txt'
    $pathresultat = 'resultats.txt'
    InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)
    $Read=String(FileRead($pathfile))
    $split=StringSplit($read, "<dt>5&nbsp;lettres</dt>",1)
    If @error Then Return
    
    FileDelete($pathfile)
    FileDelete($pathresultat)

    $split=StringSplit($split[2], "Calcul", 1)
    $split=StringSplit($split[1], "<dt>6&nbsp;lettres</dt>", 1)
    $Rpl=StringReplace($Split[1], "<dd>", "")
    $Rpl=StringReplace($Rpl, "</dd>", "")
    $Rpl=StringReplace($Rpl, "<dl>", "")
    $Rpl=StringReplace($Rpl, "</dl>", "")
    $Rpl=StringReplace($Rpl, "<dt>", "")
    $Rpl=StringReplace($Rpl, "</dt>", "")
    $Rpl=StringReplace($Rpl, "<p>", "")
    $Rpl=StringReplace($Rpl, Chr(10), "")
    $Rpl=StringReplace($Rpl, ",", @CRLF)
    $Rpl=StringReplace($Rpl, " ", "")
    GUICtrlSetData($5lettres, $Rpl)
    FileWrite($pathresultat, $rpl)
    $line=_FileCountLines($pathresultat)
    For $i=1 To $line
        $word[5][$i]=FileReadLine($pathresultat, $i)
;~         ConsoleWrite("$word[5][" & $i & "] = " & FileReadLine($pathresultat, $i) & @CRLF)
    Next
    FileDelete($pathresultat)
    _6lettres()
EndFunc

Func _6lettres()
    $pathfile = 'resultat.txt'
    $pathresultat = 'resultats.txt'
    InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)
    $Read=String(FileRead($pathfile))
    $split=StringSplit($read, "<dt>6&nbsp;lettres</dt>",1)
    If @error Then Return
    
    FileDelete($pathfile)
    FileDelete($pathresultat)

    $split=StringSplit($split[2], "Calcul", 1)
    $split=StringSplit($split[1], "<dt>7&nbsp;lettres</dt>", 1)
    $Rpl=StringReplace($Split[1], "<dd>", "")
    $Rpl=StringReplace($Rpl, "</dd>", "")
    $Rpl=StringReplace($Rpl, "<dl>", "")
    $Rpl=StringReplace($Rpl, "</dl>", "")
    $Rpl=StringReplace($Rpl, "<dt>", "")
    $Rpl=StringReplace($Rpl, "</dt>", "")
    $Rpl=StringReplace($Rpl, "<p>", "")
    $Rpl=StringReplace($Rpl, Chr(10), "")
    $Rpl=StringReplace($Rpl, ",", @CRLF)
    $Rpl=StringReplace($Rpl, " ", "")
    GUICtrlSetData($6lettres, $Rpl)
    FileWrite($pathresultat, $rpl)
    $line=_FileCountLines($pathresultat)
    For $i=1 To $line
        $word[6][$i]=FileReadLine($pathresultat, $i)
;~         ConsoleWrite("$word[6][" & $i & "] = " & FileReadLine($pathresultat, $i) & @CRLF)
    Next
    FileDelete($pathresultat)
    _7lettres()
EndFunc

Func _7lettres()
    $pathfile = 'resultat.txt'
    $pathresultat = 'resultats.txt'
    InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)
    $Read=String(FileRead($pathfile))
    $split=StringSplit($read, "<dt>7&nbsp;lettres</dt>",1)
    If @error Then Return
    
    FileDelete($pathfile)
    FileDelete($pathresultat)

    $split=StringSplit($split[2], "Calcul", 1)
    $split=StringSplit($split[1], "<dt>8&nbsp;lettres</dt>", 1)
    $Rpl=StringReplace($Split[1], "<dd>", "")
    $Rpl=StringReplace($Rpl, "</dd>", "")
    $Rpl=StringReplace($Rpl, "<dl>", "")
    $Rpl=StringReplace($Rpl, "</dl>", "")
    $Rpl=StringReplace($Rpl, "<dt>", "")
    $Rpl=StringReplace($Rpl, "</dt>", "")
    $Rpl=StringReplace($Rpl, "<p>", "")
    $Rpl=StringReplace($Rpl, Chr(10), "")
    $Rpl=StringReplace($Rpl, ",", @CRLF)
    $Rpl=StringReplace($Rpl, " ", "")
    GUICtrlSetData($7lettres, $Rpl)
    FileWrite($pathresultat, $rpl)
    $line=_FileCountLines($pathresultat)
    For $i=1 To $line
        $word[7][$i]=FileReadLine($pathresultat, $i)
;~         ConsoleWrite("$word[7][" & $i & "] = " & FileReadLine($pathresultat, $i) & @CRLF)
    Next
    FileDelete($pathresultat)
    _8lettres()
EndFunc

Func _8lettres()
    $pathfile = 'resultat.txt'
    $pathresultat = 'resultats.txt'
    InetGet('http://www.kurokatta.org/hacks/scarab-fr?q='&$lettres, $pathfile)
    $Read=String(FileRead($pathfile))
    $split=StringSplit($read, "<dt>8&nbsp;lettres</dt>",1)
    If @error Then Return
    
    FileDelete($pathfile)
    FileDelete($pathresultat)

    $split=StringSplit($split[2], "Calcul", 1)
    $split=StringSplit($split[1], "<dt>9&nbsp;lettres</dt>", 1)
    $Rpl=StringReplace($Split[1], "<dd>", "")
    $Rpl=StringReplace($Rpl, "</dd>", "")
    $Rpl=StringReplace($Rpl, "<dl>", "")
    $Rpl=StringReplace($Rpl, "</dl>", "")
    $Rpl=StringReplace($Rpl, "<dt>", "")
    $Rpl=StringReplace($Rpl, "</dt>", "")
    $Rpl=StringReplace($Rpl, "<p>", "")
    $Rpl=StringReplace($Rpl, Chr(10), "")
    $Rpl=StringReplace($Rpl, ",", @CRLF)
    $Rpl=StringReplace($Rpl, " ", "")
    GUICtrlSetData($8lettres, $Rpl)
    FileWrite($pathresultat, $rpl)
    $line=_FileCountLines($pathresultat)
    For $i=1 To $line
        $word[8][$i]=FileReadLine($pathresultat, $i)
;~         ConsoleWrite("$word[8][" & $i & "] = " & FileReadLine($pathresultat, $i) & @CRLF)
    Next
    FileDelete($pathresultat)
;~  _9lettres()
EndFunc

[TommyDDR]

Je pense que kikoolol a du mourir dans un accident tragique.

Bravo a toi kay69, je voulais créer le programme mais le tien me conviens parfaitement

[TommyDDR]

Humm... désolé key69 mais après analyse, ton programme n'est pas du tout optimal car très redondant.

1er défaut : une fonction par nombre de lettres (quand tu copie colle des fonctions c'est que tu peu utiliser un tableau )
2eme défaut : tu récupère 8 fois la page ce qui ralenti le programme

J'ai gardé ta GUI et refait totalement le programme.

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui
Dim $NomPageHTML = @ScriptDir & "\test.html"
Dim $TailleMAX = 2
Dim $Tableau[7][$TailleMAX]
Dim $editLettres[7]
Dim $accelerators[1][2]

$Gui            = GUICreate("Scrabble", 640, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
$inputLettres   = GUICtrlCreateInput("", 10, 10, 145, 20)
$Rechercher     = GUICtrlCreateButton("Rechercher", 160, 9, 70, 22)
GUICtrlSetOnEvent($Rechercher, "Rechercher")
$labelResultat  = GUICtrlCreateLabel("Résultat pour : " , 250, 13, 390, 20)
GUICtrlSetState($labelResultat, $GUI_HIDE)
GUICtrlCreateLabel("2 lettres", 27, 40)
GUICtrlCreateLabel("3 lettres", 117, 40)
GUICtrlCreateLabel("4 lettres", 207, 40)
GUICtrlCreateLabel("5 lettres", 297, 40)
GUICtrlCreateLabel("6 lettres", 387, 40)
GUICtrlCreateLabel("7 lettres", 477, 40)
GUICtrlCreateLabel("8 lettres", 567, 40)
$editLettres[0] = GUICtrlCreateEdit("", 10, 60, 80, 230, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$editLettres[1] = GUICtrlCreateEdit("", 100, 60, 80, 230, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$editLettres[2] = GUICtrlCreateEdit("", 190, 60, 80, 230, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$editLettres[3] = GUICtrlCreateEdit("", 280, 60, 80, 230, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$editLettres[4] = GUICtrlCreateEdit("", 370, 60, 80, 230, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$editLettres[5] = GUICtrlCreateEdit("", 460, 60, 80, 230, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
$editLettres[6] = GUICtrlCreateEdit("", 550, 60, 80, 230, BitOR($ES_READONLY, $ES_AUTOVSCROLL, $WS_VSCROLL))
GUICtrlSetBkColor($editLettres[0], 0xffffff)
GUICtrlSetBkColor($editLettres[1], 0xffffff)
GUICtrlSetBkColor($editLettres[2], 0xffffff)
GUICtrlSetBkColor($editLettres[3], 0xffffff)
GUICtrlSetBkColor($editLettres[4], 0xffffff)
GUICtrlSetBkColor($editLettres[5], 0xffffff)
GUICtrlSetBkColor($editLettres[6], 0xffffff)
$accelerators[0][0] = "{ENTER}"
$accelerators[0][1] = $Rechercher
GUISetAccelerators($accelerators)
GUISetState()

While(True)
    Sleep(10)
WEnd

Func Rechercher()
    Local $file = ""
    Local $contenuFichier = ""
    Local $temp = ""
    Local $var = ""
    Local $NombreLettres = 0
    InetGet("http://www.kurokatta.org/hacks/scarab-fr?q=" & GUICtrlRead($inputLettres), $NomPageHTML)
    $file = FileOpen($NomPageHTML, 0)
    $contenuFichier = FileRead($file)
    FileClose($file)
    FileDelete($NomPageHTML)
    If(StringInStr($contenuFichier, "sultats")) Then
        $temp = StringSplit($contenuFichier, "-->", 1)
        $contenuFichier = $temp[4]
        $temp = StringSplit($contenuFichier, "<p>", 1)
        $contenuFichier = $temp[1]
        $contenuFichier = StringReplace($contenuFichier, "</dl>", "")
        $contenuFichier = StringReplace($contenuFichier, "<dl>", "")
        $contenuFichier = StringReplace($contenuFichier, ",", "")
        $contenuFichier = StringReplace($contenuFichier, "      ", "")

;~      MsgBox(0, "", "." & $contenuFichier & ".")
        $temp = StringSplit($contenuFichier, "<dt>", 1)
        For $j = 2 To $temp[0]
            $NombreLettres = StringLeft($temp[$j], 1)-2
            $var = StringSplit($temp[$j], @CRLF)
            If($var[0] > $TailleMAX) Then
                $TailleMAX = $var[0]
                ReDim $Tableau[7][$TailleMAX]
            EndIf
            For $i = 3 To $var[0]
                If(StringInStr($var[$i], "</dd>")) Then
                    $Tableau[$NombreLettres][0] = $i-3
                    ExitLoop
                EndIf
                $Tableau[$NombreLettres][$i-2] = $var[$i]
            Next
            If(($j+1) > 8) Then
                ExitLoop
            EndIf
        Next
        For $j = 0 To 6
            $temp = ""
            GUICtrlSetData($editLettres[$j], "")
            $temp = $Tableau[$j][1]
            For $i = 2 To $Tableau[$j][0]
                $temp &= @CRLF & $Tableau[$j][$i]
            Next
            GUICtrlSetData($editLettres[$j], $temp)
        Next
        GUICtrlSetData($labelResultat, "Résultats pour : """ & GUICtrlRead($inputLettres) & """")
        GUICtrlSetState($labelResultat, $GUI_SHOW)
        GUICtrlSetData($inputLettres, "")
    Else
        GUICtrlSetData($labelResultat, "Pas de résultat pour : """ & GUICtrlRead($inputLettres)& """")
        GUICtrlSetState($labelResultat, $GUI_SHOW)
    EndIf
EndFunc

Func quit()
    Exit
EndFunc
 

Voila, avec 7mois de décalage ^^

[Sh4dows]

Lol, il vous a fallut le temps