Page 1 sur 1
[Ex] Dictionnaire mutlilangues
Posté : jeu. 03 juil. 2008 16:58
par 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
Re: [Ex] Dictionnaire mutlilangues
Posté : jeu. 03 juil. 2008 18:38
par timmalos
Magnifique, comme d'hab
Re: [Ex] Dictionnaire mutlilangues
Posté : jeu. 03 juil. 2008 18:41
par 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.
Re: [Ex] Dictionnaire mutlilangues
Posté : ven. 04 juil. 2008 18:03
par 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!
Re: [Ex] Dictionnaire mutlilangues
Posté : ven. 04 juil. 2008 18:49
par jbnh
pas mal, mais y'en a d'autres aussi si je me souviens bien
Re: [Ex] Dictionnaire mutlilangues
Posté : ven. 04 juil. 2008 19:09
par 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!
Re: [Ex] Dictionnaire mutlilangues
Posté : ven. 04 juil. 2008 19:41
par 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
Re: [Ex] Dictionnaire mutlilangues
Posté : sam. 05 juil. 2008 14:20
par timmalos
non je te parle en fait de changer le Inetget par plusieurs fonctions avec l'include #Include<IE.au3>
Re: [Ex] Dictionnaire mutlilangues
Posté : sam. 05 juil. 2008 14:23
par jbnh
ca servirait à quoi?
Re: [Ex] Dictionnaire mutlilangues
Posté : sam. 05 juil. 2008 14:32
par timmalos
A ne plus ouvrir, ecrire, ferme un fichier texte donc améliorer la vitesse de réponse du script.
Re: [Ex] Dictionnaire mutlilangues
Posté : sam. 05 juil. 2008 19:06
par tolf
jbnh a écrit :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)
Re: [Ex] Dictionnaire mutlilangues
Posté : sam. 05 juil. 2008 19:08
par jbnh
quoi qu'il en soit, le sujet est clos
Re: [Ex] Dictionnaire mutlilangues
Posté : mar. 20 janv. 2009 17:02
par 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 ?
Re: [Ex] Dictionnaire mutlilangues
Posté : mar. 20 janv. 2009 17:37
par 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
Re: [Ex] Dictionnaire mutlilangues
Posté : jeu. 22 janv. 2009 22:10
par jbnh
Comme promis, j'ai mis le code à jour. J'espere que, LELIEVRE, tu verras ce post.
Re: [Ex] Dictionnaire mutlilangues
Posté : ven. 23 janv. 2009 14:48
par LELIEVRE
Eh oui, j'ai vu la correction (çà ne s'invente pas)
Mon fichier translate_dict n'est plus nul
Merci beaucoup
