FTSearch help

HCL Domino Domino Forum
1

Hi There,

Hope someone can help - I am new at this searching thing!

I hope i explain this ok -

Stage 1 :

We have a category selection process for users to go through when logging a call, this includes entering a problem type and system name, after they enter that, I am concatenating the values entered separated by an ~ and doing a Document Collection (eg. “Lotus Notes System~NC System”) on the Knowledgebase (as the articles are based on the same categories) and put them into a Private folder.

  • So now I have the documents related to that system in a folder, priming it for a search (so it speeds up the search when i do it)

Stage 2 : (problem)

Right, so the user has to now enter a description of the problem in a rich text field, my problem is…how do i refine the search using the description they have entered, is that even possible? Will i have to get them to enter keywords or something?

(major head-scratching!)

The last tab will display the results in an embedded view/private folder so it forces the user to at least look at the list of possible solutions before submitting the call ( or thats the theory!)

Thanks for any help

Jamie

2

Subject: FTSearch help - More info

Here is some code i have been working on, it is supposed to do an FTSearch on a ViewEntryCollection, but its not returning any results when it should. I have two documents in the view, one titled RIR printing, but if i search on printing, it doesnt return any results! I thought it waws due to the lack of “” around the search string, but it doesnt work either.

Can anyone help me on this?

Thanks

Jamie

Code :

Dim s As New NotesSession

Dim ws As New NotesUIWorkspace

Dim db As NotesDatabase

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim KBdb As NotesDatabase

Dim vKB As NotesView ' the view to lookup in the KB DB

Dim vRes As NotesView ' The folder for the results

Dim KBDocColl As NotesDocumentCollection

Dim LkpKey As String

Dim strDesc As String

Dim SearchStr As String

Dim vc As NotesViewEntryCollection



Set db = s.CurrentDatabase

Set uidoc = ws.CurrentDocument

uidoc.Refresh

'Call uidoc.FieldSetText("TXTDesc",uidoc.FieldGetText("UserDesc"))

Set doc = uidoc.Document



'Get the KB's details (set the db and view variables used to get the Document Collection)

Set KBdb = s.GetDatabase(dbKB,dbKPPath)

Set vKB = KBdb.GetView("KB Results")

Set vc = vKB.GetAllEntriesByKey("Index")

SearchStr = "" & doc.UserDesc(0) & ""

Call vc.FTSearch(SearchStr, 10)

Call ClearFolder(s,ws,db,uidoc)

Call vc.PutAllInFolder("KB Results")



'Go to the next tab

Set Curdoc = uidoc.Document

Curdoc.~$main = "KB"

Call uidoc.Refresh

Call Curdoc.RemoveItem("$main")