Note: This only works on Microsoft Windows.
Sub Click(Source As Button) ' This script fetches News feeds from Google from within the Lotus Notes client ' You could apply this technique to any site that return RSS or XML format. ' Use the xpath query to change what you want to return ' This script requires Microsoft Windows. ' 1. Create a new form, and a field called Result ' 2. Make the field allow multiple values and separate on new line ' 3. Create a new button and paste in the LotusScript ' 4 Preview the form, click the button and enter a search query Dim nodes As Variant, xpath As Variant,xmldoc As Variant Dim ws As New notesuiworkspace, q As Variant,url As String Dim doc As notesdocument, item As notesitem,v As Integer Set doc = ws.currentdocument.document q =Evaluate(|@ReplaceSubstring ("| + Inputbox("Query","Enter Query", "volvo") + |";" ";"+")|) Print Implode(q) Set xmlDoc=CreateObject ("Microsoft.XMLDOM") xmlDoc.async="false" url = "http://news.google.se/news?hl=sv&q=" + Implode(q) + "&ie=UTF-8&oe=UTF-8&output=rss" xmldoc.load(url) xpath="/rss/channel/item/title" Set nodes=xmlDoc.selectNodes(xpath) doc.Result = "" If doc.IsNewNote Then Call doc.Save(False,False) Set item = doc.GetFirstItem("Result") Forall x In nodes v = v + 1 Call item.AppendToTextList(Cstr(v) + ". " + x.text) End Forall End Sub
This is a nice tip, but you should take note that the sample LotusScript provided retrieves items from Google Sweden in Swedish. Change the url= line to
url = "http://news.google.com/news?hl=en&q=" + Implode(q) + "&ie=UTF-8&oe=UTF-8&output=rss" to get results in English from Google.com.
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Thomas Adrian. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.