RichtextBox Inhalt per Google Translator übersetzen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von henny.

    RichtextBox Inhalt per Google Translator übersetzen

    Hallo ich bin neu hier und stehe vor folgendem Problem:

    Ich möchte den Inhalt einer Richtextbox per Knopfdruck mittels Google Translator übersetzen lassen.

    Kann mir jemand helfen?

    Diese Links helfen mir leider nicht weiter:

    [Allgemein] Einfache Mehrsprachigkeit für eigene Anwendungen - ohne nervige Übersetzungen.

    [VB 2008] [LÖSUNG GEFUNDEN]Google übersetzer benutzen

    Hier mein Code:

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    3. Public Class Form1
    4. Dim language_goes As String
    5. Dim language_comes As String
    8. Function Übersetzen(ByVal stext As String, ByVal language_comes As String, ByVal language_goes As String) As String
    9. Dim client As New Net.WebClient
    10. Dim übersetzung_vorläufig As String = client.DownloadString("http://translate.google.de/?hl=de&tab=wT#" & language_goes & "|" & language_comes & "|" & RichTextBox1.Text)
    11. Dim übersetzung_vorläufig1 As String = client.DownloadString("http://translate.google.de/translate_a/t?client=t&text=" & RichTextBox1.Text & "&sl=" & language_goes & "&tl=" & language_comes)
    12. Dim TransRegEx As New Regex("\""trans\""\:\""(?<string>(.*))\""\,\""orig\""")
    13. Dim myTrans As String = TransRegEx.Match(übersetzung_vorläufig).Groups("string").ToString()
    14. Return myTrans
    15. End Function
    18. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. language_goes = "de"
    20. End Sub
    22. Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
    24. Dim lng As String
    26. ' 1. Übersetzen:
    27. Select Case tsComboSprach_ziel.SelectedItem
    28. Case Is = "Deutsch"
    29. language_comes = "de"
    30. Case Is = "Englisch"
    31. language_comes = "en"
    32. Case Is = "Französisch"
    33. language_comes = "fr"
    34. Case Is = "Niederländisch"
    35. language_comes = "nl"
    36. End Select
    39. 'lng = language_comes.Replace("\r\n", vbNewLine)
    40. 'If lng.Length > 1 Then
    41. ' lng = lng.Remove(0, 1)
    42. ' lng = lng.Remove(lng.Length - 1, 1)
    43. 'End If
    47. RichTextBox2.Text = "Übersetzung:" & myTrans
    49. End Sub
    50. End Class


    Vielen Dank im Voraus.

    Evtl Codevorlagen bzw. Schipsel wären mir sehr hilfreich

    MfG

    aPeu

    ich hab da mal ein komplettes Projekt gemacht vor langer langer Zeit. Google sperrt die API für automatisiertes abrufen. Nun muss man tricksen. Man muss eine Website simuliert über Stringausgabe aufbauen, den eigenen Rechner als Server nutzen (Localhost) und kann dann so mit einem Javascript darauf zugreifen. Soll ich dir dieses Projekt mal geben?

    metakilla schrieb:

    ich hab da mal ein komplettes Projekt gemacht vor langer langer Zeit. Google sperrt die API für automatisiertes abrufen. Nun muss man tricksen. Man muss eine Website simuliert über Stringausgabe aufbauen, den eigenen Rechner als Server nutzen (Localhost) und kann dann so mit einem Javascript darauf zugreifen. Soll ich dir dieses Projekt mal geben?
    Das wär ganz klasse.

    MfG

    APeu