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

    • Allgemein

    Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Quadsoft.de.vu.

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

      Hallo,

      Mehrsprachigkeit kann den Nutzerkreis ungemein erhöhen ;) Aber es macht auch sehr viel Arbeit, dass komplette Programm zu übersetzen. Hier stelle ich eine Methode vor, wie es über den Service Google Language Tools möglich ist, keine perfekten, aber annehmbare Übersetzungen zu bekommen. Gut, fangen wir an. Als erstes erstellen wir in den Resourcen eine neue Textdatei namens "language". In jede Zeile kommt jetzt jeder Text, der sich mit der Sprache ändern soll. Für jede Zeile einer. Dazu gehören zum Beispiel Programmtitel, Texte in Labels, Meldungen (Messageboxen), Text in Buttons und so weiter.

      So weit so gut - weiter geht´s mit dieser einfachen Funktion:

      VB.NET-Quellcode

      1. Function Translate(ByVal stext As String, ByVal language As String)
      2. Dim client As New Net.WebClient
      3. Dim übersetzung As String = client.DownloadString("http://translate.google.de/translate_a/t?client=t&text=" & stext & "&sl=de&tl=" & language)
      4. Return übersetzung
      5. End Function

      Sie übersetzt unseren Text in eine beliebige andere Sprache. Jetzt fügen wir ein Bedienelement zum ändern der Sprache hinzu. Ich benutze eine Treeview:

      (Adden durch folgenden Code:

      VB.NET-Quellcode

      1. Dim node As New TreeNode("Sprachen")
      2. node.Nodes.Add("Deutsch")
      3. node.Nodes.Add("Englisch")
      4. node.Nodes.Add("Französisch")
      5. node.Nodes.Add("Dänisch")
      6. node.Nodes.Add("Finnisch")
      7. node.Nodes.Add("Griechisch")
      8. node.Nodes.Add("Portugiesisch")
      9. node.Nodes.Add("Italienisch")
      10. node.Nodes.Add("Spanisch")
      11. node.Nodes.Add("Norwegisch")
      12. node.Nodes.Add("Schwedisch")
      13. node.Nodes.Add("Niederländisch")
      14. TreeView1.Nodes.Add(node)

      ). Weiter geht´s. Ein Button zum bestätigen der Sprache.

      VB.NET-Quellcode

      1. Dim lng As String
      3. ' 1. Übersetzen:
      4. Select Case TreeView1.SelectedNode.Text
      5. Case "Deutsch"
      6. lng = My.Resources.language
      7. Case "Englisch"
      8. lng = Translate(My.Resources.language, "en")
      9. Case "Französisch"
      10. lng = Translate(My.Resources.language, "fr")
      11. Case "Dänisch"
      12. lng = Translate(My.Resources.language, "da")
      13. Case "Finnisch"
      14. lng = Translate(My.Resources.language, "fi")
      15. Case "Griechisch"
      16. lng = Translate(My.Resources.language, "el")
      17. Case "Portugiesisch"
      18. lng = Translate(My.Resources.language, "pt")
      19. Case "Italienisch"
      20. lng = Translate(My.Resources.language, "it")
      21. Case "Spanisch"
      22. lng = Translate(My.Resources.language, "es")
      23. Case "Norwegisch"
      24. lng = Translate(My.Resources.language, "no")
      25. Case "Schwedisch"
      26. lng = Translate(My.Resources.language, "sv")
      27. Case "Niederländisch"
      28. lng = Translate(My.Resources.language, "nl")
      29. End Select
      31. lng = lng.Replace("\r\n", vbNewLine)
      32. If lng.Length > 1 Then
      33. lng = lng.Remove(0, 1)
      34. lng = lng.Remove(lng.Length - 1, 1)
      35. End If
      37. '2. Zuweisen:
      38. Dim anzeigen() As String = Split(lng, vbNewLine)
      39. Testform.Label1.Text = anzeigen(0)
      40. Testform.Text = anzeigen(1)
      41. Testform.Button1.Text = anzeigen(2)
      43. Testform.Show()

      oder alternativ kann man 2. auch so gestalten:

      VB.NET-Quellcode

      1. Dim str As New System.Text.StringBuilder
      2. For Each ctl1 As Control In Testform.Controls
      3. str.AppendLine(ctl1.Text)
      4. Next
      5. Dim übersetzung As String = Translate(str.ToString, k)
      6. übersetzung = übersetzung.Replace("\r\n", vbNewLine)
      7. If übersetzung.Length > 1 Then
      8. übersetzung = übersetzung.Remove(0, 1)
      9. übersetzung = übersetzung.Remove(übersetzung.Length - 1, 1)
      10. End If
      11. Dim v() As String = Split(übersetzung, vbNewLine)
      12. Dim zähler As Integer = 0
      13. For Each ctl2 As Control In Testform.Controls
      14. ctl2.Text = v(zähler) ' übersetzung
      15. zähler += 1
      16. Next


      und eben entsprechend anpassen, sodass wirklich alle Controls übersetzt werden.

      Natürlich könnte man noch weitere Sprachen ergänzen, die Kürzel sind die offiziellen Kürzel des Landes. Der untere Teil muss natürlich entsprechend angepasst werden. Hier werden nur 3 verschiedene Texte übersetzt: Der Text in einem Label ("Dies ist ein Testtext. Er steht in einem Label."), der Text in einem Button ("Beenden") und der Titel des Programms ("Das ist der Titel des Programms.").

      Hier meine Testform in zwei Sprachen als Beispiel:

      Französisch:



      Spanisch:

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kevin89“ ()

      Hallo,
      Ich weiß das dieses Thema schon etwas älter ist , aber ich habe Probleme mit dem Google-Übersetzter.
      Mein Problem:
      Ich bekomme anstelle von einem ä oder ö oder ü immer nur komische zeichen z.B.: Ă usw. 8|
      Ist es Möglich diese Fehler zu beheben?

      Danke :thumbup:

      Edit:

      O.K habe es hinbekommen( funzt jetzt mit Replace)

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „QB2VB“ ()

      Man sieht schon den gravierendsten Nachteil dieser Methode: Die Fehleranfälligkeit seitens Google.
      "Il s'agit d'un texte de test. Elle est un Label" ist komplett falsch.
      "Es handelt sich um einen Testtext. Sie ist ein Label"
      Richtig wär:
      "C'est un texte de test. Il est dans un Label."
      Da werden die Franzosen ziemlich wütend sein.
      Und ich glaube auch, dass das Spanische genauso falsch ist.

    Facebook
    Telefonspende