Discussion :

[lolitablue]

Bonjour

Je suis débutant et voilà ce qui me pose problème:

En cliquant sur un bouton je voudrai récupérer dans un label ou autre outil, le texte traduit automatiquement par "google traduction".

J'ai suivi un tutoriel de sur le net, mais le texte que j'arrive à récupérer est toujours le même!

Comment récupérer le texte de chaque traduction que j'aurai lancée?

J'utilise Visual Basic Express 2010.

Merci d'avance pour votre aide à venir.

[infosam76]

Il nous faudrait un exemple de ton code, on en peut pas deviner comme cela ce qui ne marche pas

[lolitablue]

Il nous faudrait un exemple de ton code, on en peut pas deviner comme cela ce qui ne marche pas

Merci de m'avoir répondu!

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
    Dim web As New WebBrowser
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        web.Navigate("https://translate.google.fr/?hl=fr&tab=wT#en/fr/me")
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim request As String = web.Document.GetElementById("result_box").InnerHtml
        Label1.Text = request
    End Sub
End Class

________________________________________________________________
Le fait qu'il y ait "me" dans l'adresse web fait que à chaque fois que je clique sur le bouton (button1); il s'affiche toujours "moi" dans le label (label1)!

Mais si j’efface "me" dans l'adresse web ("https://translate.google.fr/?hl=fr&tab=wT#en/fr/me"); alors rien ne s'affiche dans le label! Même si ja tape autre chose que "me"....

En fait ça marche une fois!
Je voudrais que chaque texte que je tape dans "Google traduction" soit quand je clique sur le button1, intégré en fr dans le label1.


Merci.

[Uranne-jimmy]

Bonjour,

Chez moi, à condition d'accepter le protocole https, le code marche avec d'autres mots. Mais dans la forme d'un <span> de class hps(innertext garde uniquement le texte voulu). Tu as vérifié que les mots que tu cherches sont traduisible ?

[lolitablue]

Bonjour,
.... Tu as vérifié que les mots que tu cherches sont traduisible ?

Oui, j'écris des mots simples comme "I" ou "Home" pour tester le programme.

Bonjour,
....
Mais sinon le fonctionnement suit la logique, la partie "Me" correspondant au texte à traduire, si tu ne mets rien, il ne traduit rien, si tu mets toto, il traduit toto, si tu mets travel, il traduit voyage.

OK, mais là, j'ai ouvert plusieurs fois la page Google traduction

Exemple1:
Je tape dans google trad "Horse" puis je copie l'adresse de google:
"https://translate.google.fr/?hl=fr&tab=wT#en/fr/horse"
dans le prog, alors ça marche le Label1 affiche "cheval".

Mais le prog garde en mémoire ce mot à chaque fois que je clique sur le bonton1, même si je change de mot ex: "car" etc...

Exemple2: Je copie l'adresse de google "
"https://translate.google.fr/?hl=fr&tab=wT#en/fr/"
Remarque: Sans le mot "horse" en fin de ligne.
Puis je tape dans Google traduction le mot "horse"
Et là rien ne se passe... Le Label1 reste vide.

Bonjour,
.... il y a des api de traduction

Des "api de traduction"! Tu peux m'expliquer en quoi ça consiste?

En espérant avoir été assez clair dans mes explications.
Merci à tous de vous être penché sur mon problème!

[Uranne-jimmy]

Si tu veux changer de mot sans fermer l'appli, ton programme ne marche pas en effet. Pour changer de mot, utiliser un textbox pour entrer le mot, ensuite il faut que la page soit chargé.

Avec un Form1_load, la page sera chargé uniquement à l'ouverture de l'application, il faut utiliser un autre événement, comme par exemple un bouton en plus ou même le bouton que tu as déjà.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
    Dim web As New WebBrowser
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim request As String = web.Document.GetElementById("result_box").InnerText
        Label1.Text = request
    End Sub
 
    Private Sub BTload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTload.Click
        web.Navigate("https://translate.google.fr/?hl=fr&tab=wT#en/fr/" & TBmot.Text)
    End Sub
End Class

[Pol63]

Des "api de traduction"! Tu peux m'expliquer en quoi ça consiste?

une api est une mise à disposition d'une chose qui fait quelque chose
ca peut etre sous forme de dll ou de web service (http, tcp ou autre)
(ca peut aussi être une dll qui encapsule un appel à un webservice pour plus de simplicité)

en l'occurrence il existe des apis de traductions en tant que web service, tu te connectes au webservice, tu envoies ton string, et tu recois le string traduit seulement
celle de google a l'air payante, à voir si celle de bing est gratuite
(googler api translate)
il y a pleins d'api de tout genre, par exemple pour avoir des maps dans son appli, envoyer des sms depuis une appli, faire une télécommande pour freebox etc...
même les sites qui t'affichent l'ip public sur laquelle tu es ont en général une api qui permet d'éviter de chercher dans de l'html l'ip

c'est mieux de passer par une api pour plusieurs raisons :
- ca évite de faire transiter quelques dizaines (centaines ?) de ko pour rien (tu veux juste un string de quelques octets)
- l'html ca peut changer dans le temps en cas de changement du site, alors qu'une api quand ca doit changer il y a une nouvelle version et l'ancienne fonctionne encore (au moins pour un moment, et les utilisateurs peuvent être averti par mail du changement)
si le site change GetElementById("result_box") n'existera peut etre plus et ton appli plantera

[_Ez3kiel]

Idem que Uranne-jimmy pour le .InnerText au lieu d'InnerHTML (mais pas besoin de valider le protocole chez moi)

N'oublie pas que tu dois laisser le temps au WebBrowser de charger la page avant d'appuyer sur ton bouton (WebBrowser.DocumentCompleted)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Label1.Text = WebBrowser1.Document.GetElementById("result_box").InnerText
    End Sub

Mais sinon le fonctionnement suit la logique, la partie "Me" correspondant au texte à traduire, si tu ne mets rien, il ne traduit rien, si tu mets toto, il traduit toto, si tu mets travel, il traduit voyage.

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

web.Navigate("https://translate.google.fr/?hl=fr&tab=wT#en/fr/" & me.textbox1.text)

par contre charger toute une page web pour récupérer un string ce n'est pas forcément une bonne pratique, il y a des api de traduction