Creating A Search Agent To Search The Internet

Sub Initialize '-- For each Query document selected by the Agent : '-- This script will perform searches of Yahoo!'s site. '-- Get unprocessed document collection from Current Database Dim Session As New NotesSession Dim currentdb As NotesDatabase Set currentdb = Session.CurrentDatabase Dim webdoc As NotesDocument Dim unprocessed As NotesDocumentCollection Set unprocessed = currentdb.unprocesseddocuments '-- Iterate through collection...

Dim doc As NotesDocument Set doc = unprocessed.getfirstdocument Do While Not (doc Is Nothing) '-- Process Yahoo Documents Only If doc.form(0) = "Yahoo Search" Then '-- Get the search string from the document Dim YahooQuery As String YahooQuery = doc.QueryText(0) '-- Yahoo! uses the plus character as the "And" operator. '-- Loop through and replace spaces with plus characters. Do While Instr(YahooQuery," ") pos = Instr(YahooQuery," ") YahooQuery = Left$(YahooQuery,pos - 1) + "+" + Right$(YahooQuery, Len(YahooQuery) - pos) Loop '-- Perform the Full Text Search, returning the results u = "http://av.yahoo.com/bin/query?p=" + YahooQuery '- Get the page Set webdoc = currentdb.getdocumentbyurl(u,True) '- Make the new document a response to the query document Call webdoc.MakeResponse(doc) Call webdoc.save(True,False) End If '-- Label the Query Document Call session.UpdateProcessedDoc(doc) '-- Get next document Set doc = unprocessed.getnextdocument(doc) Loop End Sub

This was first published in November 2000

Dig deeper on Domino Resources - Part 3

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close