Comments on Tjitjing Blog: How to sort a NotesDocumentCollection in Lotusscri...

Thanks for doing the work.Here's an idea.By changi...

2008-08-07T19:45:00.000+02:00

Thanks for doing the work.

Here's an idea.

By changing the new doc collection creation line to

Set collSorted = coll.Parent.Views(0).GetAllDocumentsByKey(fakesearchstring)

Instead we just grab the first available view in the db. Because we don't use the view other than to create the doc collection, we can use anything.

By making this small change, you don't have to pass in or code any db names or view names. Makes the function a better standalone candidate for a utility library.

Cheers and thanks!

After sorting, how can we go about inserting page ...

2007-05-02T06:58:00.000+02:00

After sorting, how can we go about inserting page breaks between the sorted data? E.G. between clients? I am using this script to sort dozens of clients and it would be much easier to have page breaks between the clients

Great job! This works after several others I trie...

2007-01-06T22:14:00.000+01:00

Great job! This works after several others I tried failed. I suggest having the view name and fake search string passed in as a parameter so that the function doesn't have to be edited and so that lazy coders like me don't have to read the function before trying to run it. Haha. Thanks for the contribution. What do I owe you? Rob Pinion

Great. I modified the code to use a variants and t...

2006-11-25T00:06:00.000+01:00

Great. I modified the code to use a variants and them applied quicksort function to do the sorting.

Here is how I uploaded to a variant
dim tempdoc as NotesDocument
dim tempItem as NotesItem
Dim varSort as Variant

Set tempdoc = db.CreateDocument
tempdoc.ArrSort = ""
Set tempitem = tempDoc.GetFirstItem("ArrSort")
For i = 0 To coll.Count - 1
strSort = ""
For n = Lbound(fieldnames) To Ubound(fieldnames) + 1
strSort = strSort & Left(arrSort(i,n) & Space(arrFieldValueLength(n)), arrFieldValueLength(n))
Next n
Call tempitem.AppendToTextList(strSort )
Next i

then call the selection sort function
varSort = tempItem.Values
Call SelectionSort(varSort )

and finally, rebuilt the collection

Set collSorted = coll.Parent.GetView(viewname).GetAllDocumentsByKey(fakesearchstring)

For i = 0 To Ubound(varSort)
Set doc = db.GetDocumentByUNID(Right(varSort(i), 32))
Call collSorted.AddDocument(doc)
Next i

Here is the selection sort function

Sub SelectionSort (MyArray As Variant)
' Selection Sort, "Data Structures Using C", Tenenbaum, ..., p. 337.
If Ubound (MyArray) <= 0 Then Exit Sub
nElem = Ubound (MyArray) + 1
For i = nElem - 1 To 1 Step -1
Large$ = MyArray(0)
indx = 0
For j = 1 To nElem
If j > i Then Exit For
If Strcompare(MyArray(j), Large$) >0 Then ' Ascending
Large$ = MyArray(j)
indx = j
End If
Next
MyArray(indx) = MyArray(i)
MyArray(i) = Large$
Next
End Sub

Thank you very much.This function works fine.

2006-11-15T19:05:00.000+01:00

Thank you very much.
This function works fine.

Hi Max, I have updated your great sorting routine ...

2006-10-26T10:11:00.000+02:00

Hi Max, I have updated your great sorting routine to use Shell sort instead of @Sort. The Shell sort routine is based on Joe Littons work.

Please see:
http://per.lausten.dk/blog/2006/10/sorting-notesdocumentcollection-by.html

Adrian - not exactly sure what you mean. This func...

2006-08-22T10:58:00.000+02:00

Adrian - not exactly sure what you mean. This function is for sorting a NotesDocumentCollection, how does view.GetAllEntriesByKey apply to that?

And you think this script is faster than view.GetA...

2006-08-17T15:14:00.000+02:00

And you think this script is faster than view.GetAllEntriesByKey(). I see many For Next loops in this script who are slowing the program. I have a 25.000 documents view, and GetAllEntriesByKey is working mutch better.

Ok, thanks. I have used it on about 10k document v...

2006-07-05T16:07:00.000+02:00

Ok, thanks. I have used it on about 10k document views at most but I would guess that the @Sort function has some limitation to what it can take in or the limitation may be with Evaluate. I did a quick search in the documentation but did not find anything, I would guess it's the good old 64k limit... (More on Lotus Notes limitations in the Notes client help database)

Of course you can always replace @Sort with your favourite Lotusscript sort routine Lotusscript, or Google and you will find many.

It seems like if you have a very large collection ...

2006-06-29T14:39:00.000+02:00

It seems like if you have a very large collection then the @sort formula became to large and faile.

Im in a hurry (at a customer) so I dont have the time to investigate it further. So this is just to let You know

Thanks, I was not aware of this problem.I haven't ...

2006-06-15T10:29:00.000+02:00

Thanks, I was not aware of this problem.
I haven't had a chance to test or even try to reproduce, but this is the first idea for a workaround that comes to mind:
1) Replace all quotes with a string that is not likely to appear elsewhere in the data, e.g. #maxquotestring#
2) Run SortCollection
3) Re-replace that string with the quotes again.

I will try to revisit this again later and will post any improvements to the function.

Great function for sorting collections.I did find ...

2006-06-13T22:01:00.000+02:00

Great function for sorting collections.

I did find a problem, the sort fails if data to be sorted contains quotes. It makes @sort function an invalid formula.

I am trying to devise a workaround but no success yet.

Any Ideas?