Wertes VB-Paradise,

so oft saugte ich gefiltertes Ultrawissen hier aus dem Board und auch wenn es manchmal nur um die fachlich Korrekte Umsetzung gewisser Prozeduren geht.

Da ich leider im Netz nicht wirklich was gefunden habe wo ich keine Nugets oder Libaries in meine Anwendung einbinden muss, möchte ich mich dem Thema Deepl Übersetzung mal annehmen.
Wie der Titel bereits verrät wollte ich eine Lösung die ohne Zusätze auskommt, da meine Anwendung letztlich nur eine Executable umfassen soll.

Genauso wie ich werden vielleicht auch viele über diesen Thread stolpern, die nicht beruflich programmieren und eine einfache Lösung suchen, daher möchte die Vorgehensweise etwas detaillierter erklären auch wenn der überwiegende Teil von euch dies sicherlich nicht braucht.

1. Module erstellen
   Erstelle in deinem Projekt ein neues Modul (in meinem Fall "mDeeplModule")
   
2. Kopiere den Code in dein neu erstelltes Modul
   

   VB.NET-Quellcode

   1. Imports System.IO
   2. Imports System.Net
   3. Imports System.Text
   4. Imports System.Text.RegularExpressions
   6. Module mDeeplModule
   8. Private Const TranslateUrl As String = "https://api-free.deepl.com/v2/translate"
   9. Private Const UsageUrl As String = "https://api-free.deepl.com/v2/usage?"
   10. Private Const apiKey As String = "12345678-1234-1234-123456789012:fx"
   12. Public Function TranslateText(text As String, sourceLang As String, targetLang As String) As String
   14. Dim request As HttpWebRequest = CType(WebRequest.Create(TranslateUrl), HttpWebRequest)
   15. request.Method = "POST"
   16. request.ContentType = "application/x-www-form-urlencoded"
   18. Dim postData As String = $"auth_key={apiKey}&text={Uri.EscapeDataString(text)}&source_lang={sourceLang}&target_lang={targetLang}"
   19. Dim dataBytes As Byte() = Encoding.UTF8.GetBytes(postData)
   20. request.ContentLength = dataBytes.Length
   22. Using requestStream As Stream = request.GetRequestStream()
   23. requestStream.Write(dataBytes, 0, dataBytes.Length)
   24. End Using
   26. Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
   27. Using streamReader As New StreamReader(response.GetResponseStream())
   28. Dim responseJson As String = streamReader.ReadToEnd()
   29. Dim translatedText As String = ExtractTranslatedText(responseJson)
   30. Return translatedText
   31. End Using
   32. End Function
   34. Private Function ExtractTranslatedText(jsonString As String) As String
   35. Dim pattern As String = """text"":""(.*?)"""
   36. Dim match As Match = Regex.Match(jsonString, pattern)
   37. If match.Success Then
   38. Dim translatedText As String = match.Groups(1).Value
   39. Return translatedText
   40. End If
   42. Return String.Empty
   43. End Function
   45. Public Function GetUsedCharacterCount() As String
   47. Dim request As HttpWebRequest = CType(WebRequest.Create(UsageUrl), HttpWebRequest)
   48. request.Method = "POST"
   49. request.ContentType = "application/x-www-form-urlencoded"
   51. Dim postData As String = $"auth_key={apiKey}"
   52. Dim dataBytes As Byte() = Encoding.UTF8.GetBytes(postData)
   53. request.ContentLength = dataBytes.Length
   55. Using requestStream As Stream = request.GetRequestStream()
   56. requestStream.Write(dataBytes, 0, dataBytes.Length)
   57. End Using
   59. Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
   60. Using streamReader As New StreamReader(response.GetResponseStream())
   61. Dim responseJson As String = streamReader.ReadToEnd()
   62. Debug.Print("GetUsageCharacterJSON: " & responseJson)
   63. Dim UsageValue As String = ExtractUsedCharacterCount(responseJson)
   64. Return UsageValue
   65. End Using
   67. End Function
   68. Private Function ExtractUsedCharacterCount(jsonString As String) As String
   70. Dim pattern As String = """character_count"":(\d+)"
   71. Dim match As Match = Regex.Match(jsonString, pattern)
   72. If match.Success Then
   73. Dim UsageValue As String = match.Groups(1).Value
   74. Return UsageValue
   75. End If
   77. Return String.Empty
   78. End Function
   79. Public Function GetTotalCharacterLimit() As String
   81. Dim request As HttpWebRequest = CType(WebRequest.Create(UsageUrl), HttpWebRequest)
   82. request.Method = "POST"
   83. request.ContentType = "application/x-www-form-urlencoded"
   85. Dim postData As String = $"auth_key={apiKey}"
   86. Dim dataBytes As Byte() = Encoding.UTF8.GetBytes(postData)
   87. request.ContentLength = dataBytes.Length
   89. Using requestStream As Stream = request.GetRequestStream()
   90. requestStream.Write(dataBytes, 0, dataBytes.Length)
   91. End Using
   93. Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
   94. Using streamReader As New StreamReader(response.GetResponseStream())
   95. Dim responseJson As String = streamReader.ReadToEnd()
   96. Debug.Print("GetUsageCharacterJSON: " & responseJson)
   97. Dim UsageValue As String = ExtractTotalCharacterLimit(responseJson)
   98. Return UsageValue
   99. End Using
   101. End Function
   102. Private Function ExtractTotalCharacterLimit(jsonString As String) As String
   104. Dim pattern As String = """character_limit"":(\d+)"
   105. Dim match As Match = Regex.Match(jsonString, pattern)
   106. If match.Success Then
   107. Dim UsageValue As String = match.Groups(1).Value
   108. Return UsageValue
   109. End If
   111. Return String.Empty
   112. End Function
   114. End Module
   
   
3. Passe den API-Key oben im Modul an
   
   Falls du noch keine API-Key hast, kannst du dir kostenlos einen Free-Account erstellen
   deepl.com/pro-api?cta=header-pro-api/
   
   Für die Registrierung wird eine Kreditkarte benötigt, diese dient lediglich zur Authentifizierung und werden in der Free-Version keine Buchungen erfolgen.
   Beim Umstieg auf eine Pro Version wird diese als Zahlungsmittel verwendet.
   
4. Nutzung
   
   Die benötigten Funktionen sind "Public" gesetzt und können aus jedem anderen Modul und jeder Form angesprochen werden
   
   Übersetzen von Text
   

   VB.NET-Quellcode

   1. Dim sMyTranslatedText as String = TranslateText("Hallo Welt!", "DE", "EN")
   
   
   In der Funktion sind die Kürzel der Quell- und Zielsprache anzugeben, die möglichen Sprachen und deren Kürzel sind in der Doku der DeepL API zu finden.
   https://www.deepl.com/docs-api/general/get-languages/
   
   Anzahl der bereits Übersetzten Characters
   
   

   VB.NET-Quellcode

   1. Dim sMyUsedCharacterCount as String = GetUsedCharacterCount()
   
   
   Anzahl der maximal möglichen Characters in der aktuellen Zahlungsperiode (Free = 500000 Characters / Monat)
   
   

   VB.NET-Quellcode

   1. Dim sMyCharacterLimit as String = GetTotalCharacterLimit()
   
   
   
   Beste Grüße
   Kevin
   
   

Ich finde das durchaus allgemein nützlich, daher verschoben nach T&T. ~Thunderbolt