PureBasic

Je voudrais créer un programme de traduction qui irait chercher la traduction par ici par exemple : http://www.wordreference.com/fr/index.htm

Si quelqu'un a une piste ou une idée pour automatiser la chose

Une recherche sur "traduction automatisée Google" m'a parmis de dénicher ça :

Code : Tout sélectionner

<form>
  <input type="button" value="Traduire avec Google"
onclick="lienGoogle='http://translate.google.com/translate?u=';
lienATraduire = escape(window.location);
langDepart = 'fr';
langArrivee = 'en';
langPair = '&langpair='+langDepart+'%7C'+langArrivee;
window.location=lienGoogle+lienATraduire+langPair;">
</form>

C'est du javascript, bien sûr. Je pense quà partir de là on doit pouvoir faire quelque chose.
Ma source : http://developpeur.journaldunet.com/tut ... ogle.shtml

Merci pour le code,

mais je sais pas comment utiliser ça

Code : Tout sélectionner

ATraduire$ = "shoes"
Langue1$ = "en"
Langue2$ = "fr"

;
URL$ = "http://translate.google.com/translate_t?text="+ATraduire$+"&langpair="+Langue1$+"%7C"+Langue2$+"&ie=UTF-8&oe=UTF-8"
;
ShellExecute_(WindowID(),"open",URL$,"","",#SW_SHOWNORMAL)

Il reste maintenant à lire la page de Google pour en extraire les données. Ca, je ne sais pas faire mais je suis certain que c'est possible.

Vois sur le forum anglais

Merci Zapman je matte ça

Tu as trouvé une piste ??

Non j'ai pas trouvé de piste car le site de google ne me convient pas pour la traduction

sinon j'ai trouvé un code sur le forum US

Code : Tout sélectionner

Procedure.s OpenUrl(URL.s, OpenType.b,Proxy_IP_y_Puerto$) 
  ;?OpenType [1 = IOTPreconfig | 2 =  IOTDirect | 3 = IOTProxy] 
  ;content.s = OpenURL("http://www.google.de/index.html", 1) 
  
  isLoop.b=1 
  INET_RELOAD.l = $80000000 
  hInet.l=0 
  hURL.l=0 
  Bytes.l=0 
  Buffer.s=Space(2048) 
  RES.s="" 
  
  hInet = InternetOpen_("", OpenType, Proxy_IP_y_Puerto$, "", 0) 
  hURL = InternetOpenUrl_(hInet, URL, #Null, 0, INET_RELOAD, 0) 
  
  Repeat 
    InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes) 
    If Bytes = 0 
      isLoop=0 
    Else 
      RES = RES + Left(Buffer, Bytes) 
    EndIf 
  Until isLoop=0 
  
  InternetCloseHandle_(hURL) 
  InternetCloseHandle_(hInet) 
  ProcedureReturn RES 
EndProcedure 


;/SAMPLE 

ProxyUse.b = #True 
IP_and_PORT$ = "127.0.0.1:80" 

sample.s = OpenUrl("http://google.com", ProxyUse, IP_and_PORT$) 

MessageRequester("GOOGLE PAGE",sample)

Cool ! Je crois que tu as tous les éléments du puzzle. Reste juste à trouver comment rédiger l'URL pour le site de traduction que tu as choisi.

Générer l'url de recherche avec :

http://www.wordreference.com/fr/index.htm

c'est pas de la tarte !

j'y arrive pas

http://fr.wordreference.com/fr/translat ... enfr=shoes

Génial

Comment as-tu déterminé la syntaxe de l'URL

J'ai créé un simple WebGadget pour afficher la traduction car
le résultat est beaucoup plus fourni qu'avec le traducteur de google

Code : Tout sélectionner

; URL de ZapMan

MotATraduire.s=InputRequester("Traducteur Anglais/Français","Saisissez le mot à traduire","")

ExamineDesktops()
x=DesktopWidth(0)
y=DesktopHeight(0)

Langue.s = "enfr" 

Url.s="http://fr.wordreference.com/fr/translation.asp?"+Langue+"="+MotATraduire

OpenWindow(0,0,0,x,y,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") 
CreateGadgetList(WindowID(0))
WebGadget(0,10,10,x-20,y-60,Url)
WaitUntilWindowIsClosed() ; Attendre que l'on ferme la fenètre ( Droopy Lib )

Merci ZapMan

OK j'ai compris comment tu a déterminé l'URL
en cliquant su les boutons de gauche l'url apparait
il y a juste à rajouter le mot à traduire après le =

Merci encore

OK j'ai compris comment tu a déterminé l'URL :
En cliquant sur les boutons de gauche l'url apparait,
il y a juste à rajouter le mot à traduire après le =

Merci encore

Voici pour traduire du Français vers l'Anglais

Code : Tout sélectionner

; URL de ZapMan

MotATraduire.s=InputRequester("Traducteur Français/Anglais","Saisissez le mot à traduire","")

ExamineDesktops()
x=DesktopWidth(0)
y=DesktopHeight(0)


Url.s="http://fr.wordreference.com/fr/en/translation.asp?fren="+MotATraduire

OpenWindow(0,0,0,x,y,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") 
CreateGadgetList(WindowID(0))
WebGadget(0,10,10,x-20,y-60,Url)
WaitUntilWindowIsClosed() ; Attendre que l'on ferme la fenètre ( Droopy Lib )

PureBasic

Traduction Français / Anglais

Traduction Français / Anglais