[Ex] Dictionnaire mutlilangues

[jbnh]

Multi-Trad

Quoi?
Voila je viens de créer un petit dictionnaire à mon sens super sympa.
Il propose un bonne quantité de langues et est facilement utilisable.

Le script est basé sur le dictionnaire de google (voir script).
Le seul problème que j'ai eu était de récupérer les mots pour chinois traditionnel et simplifié, russe et coréen. Les caractères que je recevais n'était pas lisible donc j'ai laissé tomber ces traductions (mais on peut toujours traduire par exemple de russe à anglais, car on recoit dans ce cas un mot anglais).

Franchement pratique et à avoir sur son bureau pour traduire un mot à tout moment. Si le mot n'existe pas, il se passe rien

Code?

► Afficher le textele code

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <IE.au3>
#include <array.au3>
#include <string.au3>

;====================================================================================
; Name              :  Multi-Trad
; Description     : Lot of languages
; Author            : Jbnh <hardwarez@hotmail.co.uk>
; Note(s)           : Really usefull
; ===================================================================================

GUICreate("Multi-Trad", 370, 85)
;-------------------------------------------------------------------------------------

GUICtrlCreateLabel("Entrez un mot:", 10, 10)
$mot = GUICtrlCreateInput("", 85, 8, 100, 20)
$trad = GUICtrlCreateCombo("Anglais >> Français", 190, 8, 170, 20) 
GUICtrlSetData(-1, "Français >> Anglais|Anglais >> Allemand|Allemand >> Anglais|Anglais >> Italien|Italien >> Anglais|Coréen >> Anglais|Anglais >> Espagnol|Espagnol >> Anglais|Russe >> Anglais BÊTA|Chinois (traditionnel) >> Anglais|Chinois (simplifié) >> Anglais|Anglais >> Portugais|Portugais >> Anglais|Hindi >> Anglais") 
;-----------------------------------------------------------------------------------

$btn0 = GUICtrlCreateButton("Traduire", 60, 50, 80)
$btn1 = GUICtrlCreateButton("Faq", 145, 50, 80)
$btn2 = GUICtrlCreateButton ("Annuler ",  230, 50, 80)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop    
        Case $msg = $btn0
        
        
            If GUICtrlRead($trad) = "Anglais >> Français" Then
            InetGet("http://www.google.fr/dictionary?langpair=en|fr&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Français >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=fr|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Anglais >> Allemand" Then
            InetGet("http://www.google.fr/dictionary?langpair=en|de&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Allemand >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=de|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Anglais >> Italien" Then
            InetGet("http://www.google.fr/dictionary?langpair=en|it&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Italien >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=it|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Coréen >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=ko|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Anglais >> Espagnol" Then
            InetGet("http://www.google.fr/dictionary?langpair=en|es&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Espagnol >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=es|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Russe >> Anglais BÊTA" Then
            InetGet("http://www.google.fr/dictionary?langpair=ru|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Chinois (traditionnel) >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=zh-TW|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Chinois (simplifié) >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=zh-CN|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)
            Elseif GUICtrlRead($trad) = "Anglais >> Portugais" Then
            InetGet("http://www.google.fr/dictionary?langpair=en|pt&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)            
            Elseif GUICtrlRead($trad) = "Portugais >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=pt|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)    
            Elseif GUICtrlRead($trad) = "Hindi >> Anglais" Then
            InetGet("http://www.google.fr/dictionary?langpair=hi|en&q="& GUICtrlRead($mot) & "&hl=fr&aq=f", "translate_dict", 1)    
            Endif
            
            filemove("translate_dict", "translate_dict.txt")
            
            $file = FileOpen("translate_dict.txt", 0)
            
            If $file = -1 Then
            MsgBox(0, "Error", "Unable to open file.")
            Exit
            EndIf
                        
            $String = FileRead($file)
            $aArray1 = _StringBetween($String, '<span class="mn">', '</span>')
            _ArrayDisplay($aArray1, 'Traduction')
            
            FileClose($file)
    
            FileDelete("translate_dict.txt")
            
            Case $msg = $btn2
             ExitLoop 

             
        Case $msg = $btn1
             $oIE = _IECreate ("http://www.autoitscript.fr/forum/viewtopic.php?f=6&t=1181")           
    EndSelect
Wend

 

Comme d'ab hésitez pas à critiquer, donner des suggestions, des idées etc. (exagérez pas comme icon manager ).


JBNH

[timmalos]

Magnifique, comme d'hab

[timmalos]

si tu pouvais rajouter un dictionnaire minimal interne , pour quand on ne peut pas acceder à internet, ca serait super:)
Et si le mot n'est pas trouvé, alors il va chercher sur google si il y a une connexion.

Edit: laisse tomber je viens de voir qu'il n'y avait pas que l'anglais mais aussi d'autres langues, ca serait trop long de tout faire:) je le ferai moi -même et donnerai le resultat pour partager au cas ou certains aient besoin de la meme chose que moi.

[timmalos]

JE TE DETESTE

Je suis vraiment mort de rire, lance ton programme, choisis anglais --->>> francais et essaye de traduire 'Hey':)
Voici la traduction (mais essaye de le faire toi même tu va halluciné):

► Afficher le texteNe pas regarder: le faire par soit même est beaucoup plus marrant

hé, gros lard!

J'ai tellement halluciné que j'ai regardé ton code pour voir si ce n'est pas toi qui avait rajouté quelques lignes!!!

Franchement, Vive Google Trad!

[jbnh]

pas mal, mais y'en a d'autres aussi si je me souviens bien

[timmalos]

sinon je me suis demandé pourquoi tu passais par un fichier .txt, il serait plus facile de s'en passer, et donc plus rapide!

[jbnh]

bah j'ai pas trop le choix car le fichier ramené de google est translate_dict sans extension, je pense pas que le fileopen va arriver a ouvrir le fichier

[timmalos]

non je te parle en fait de changer le Inetget par plusieurs fonctions avec l'include #Include<IE.au3>

[jbnh]

ca servirait à quoi?

[timmalos]

A ne plus ouvrir, ecrire, ferme un fichier texte donc améliorer la vitesse de réponse du script.

[tolf]

le fichier ramené de google est translate_dict sans extension, je pense pas que le fileopen va arriver a ouvrir le fichier

non aucun problème a mon avis : fileopen peut ouvrir n'importe quoi et s'en fiche de l'extension : voici un exemple

► Afficher le texteexemple de fileopen sans extention

Code : Tout sélectionner

$file = FileOpen("test", 11)
FileWrite($file, "coucou")
FileClose($file)

$file = FileOpen("test", 0)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
MsgBox(0,"valeur du fichier 'test'", FileRead($file))
FileClose($file)

[jbnh]

quoi qu'il en soit, le sujet est clos

[LELIEVRE]

Bonjour

Etes vous sûr que le fichier de sortie doit s'appeler : translate_dict car lorsque j'éxécute cet AU3, mon fichier est vierge ?

[jbnh]

Salut.
Depuis, google a changé le fonctionnement de son dictionnaire, notamment dans l'appellation des pages, c'est pourquoi le script ne ramène plus la bonne page internet avec la traduction. Des que je peux , je mets le script à jour

[jbnh]

Comme promis, j'ai mis le code à jour. J'espere que, LELIEVRE, tu verras ce post.

[LELIEVRE]

Eh oui, j'ai vu la correction (çà ne s'invente pas)
Mon fichier translate_dict n'est plus nul
Merci beaucoup