Domino 9 und frühere Versionen > ND9: Entwicklung

Mal'n kleines Gimmick...

(1/1)

jo@chim:
Sollte selbsterklärend sein  :)


--- Code: ---Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub gTranslate(TextToTranslate As String, appLng As String)
If appLng<>"e" Then
text1$="Bitte wählen Sie einen zu übersetzenden Text aus."
text2$="Übersetzer"
lng$="de"
dom$="de"
Else
text1$="Please select text to translate."
text2$="Translator"
lng$="en"
dom$="com"
End If

TextToTranslate=Join(Split(TextToTranslate,Chr$(34)),"''")
TextToTranslate=Join(Split(TextToTranslate,Chr$(10)),"LBREAK")
TextToTranslate=Join(Split(TextToTranslate,Chr$(13)),"LBREAK")
TextToTranslate=Join(Split(TextToTranslate,"LBREAKLBREAK"),"LBREAK")
TextToTranslate =Join(Split(urlEncode(TextToTranslate),"LBREAK"), "%0D%0A")

If TextToTranslate = "" Then
MsgBox text1$, 48, text2$
Exit Sub
End If

ret= ShellExecute(0, "Open", "https://translate.google." & dom$ & "/?hl=" & lng$ & "#auto/" & lng$ & "/" & TextToTranslate , 0, 0, 1)
End Sub
--- Ende Code ---

Aufruf z.B. mit

--- Code: ---Call gTranslate(uidoc.GetSelectedText() ,"d")
--- Ende Code ---

Driri:
Schicke Sache, danke fürs Teilen :-)

Navigation

[0] Themen-Index