LotusScript to translate text between languages

I am currently working to update our Sametime Bot with a new feature: translation of text. It will be a prompted flow where user is asked for input language, output language and text. The answer from the bot is the translated text. The translation is done by using a LotusScript agent which gets the translation from Google Translate page. LotusScript agent uses MSXML object for web communication with the Goggle server.
See below for an example of translation between English and German.
Pictures show the messagebox for German, Spanish, French and Russian translations. The translation is of course not perfect, but enough good to understand the general meaning.
The best automated translator I've seen so far is by the company "Prompt": http://www.e-promt.com/ It produces very correct translations and even sees the difference between "hello all Domino developers" and "hello to all Domino developers".

Sub Initialize
 Dim xmlhttp, MySoap
 Dim StartTag As String,EndTag As String, FromLang As String, ToLang As String, TextToTranslate As String
 StartTag= |<div id=result_box dir="ltr">|
 EndTag = "</div>"
 FromLang="en"
 ToLang="de"
 TextToTranslate="hello all Domino developers"
 TextToTranslate=Replace(TextToTranslate," ","%20")
 
 WebServer="http://translate.google.com/translate_t?text="+TextToTranslate+"&hl=en&langpair="+FromLang+"|"+ToLang+"&ie=utf-8"
 Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
 Call xmlhttp.open("GET", WebServer, False)
 Call xmlhttp.setRequestHeader("Content-Type", "text/html; charset=utf-8")
 Call xmlhttp.setRequestHeader("User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
 Call xmlhttp.setRequestHeader("Accept","image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*")
 Call xmlhttp.setRequestHeader("Accept-Language","sv")
 Call xmlhttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
 Call xmlhttp.send(Null)
 
 strxml = xmlhttp.responseText
 
 Msgbox Strleft(Strright(strxml,StartTag),EndTag) 
 
End Sub

Tags: LotusScript

Sametime bot to read Lotusphere RSS feeds is updated

Hey folks! I am back from the long period of not blogging! And several more posts are in the pipeline, including DXL API for handling pictures/files, webcam API for spying on Notes users and Java agent to impersonate web users! :)

Last week I've updated my Sametime bot which shows blog posts in Lotusphere2007 category(on Technorati). Now it shows the last 20 posts for keyword Lotusphere2008.
You can try it here: Sametime bot

If you want to see another blog category available through STWidget and Sametime Bot, drop me a line and I'll create a new function and an appropriate STWidget link. Or do you have an idea for a cool Bot function not related to RSS? Drop me a line and I'll see what I can do :)

For sample of LotusScript agent fetching the RSS data from Technorati, see the old post: Sametime bot shows latest Lotusphere2007 blogs

Tags: Lotusphere2008 sametime sametime bot