Comments on: How to sort a NotesDocumentCollection in Lotusscript http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html This is my blog on technology related things and maybe some other stuff too... Sun, 15 Jan 2012 09:50:28 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: Rodrigo http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-43229 Rodrigo Thu, 08 Dec 2011 13:01:12 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-43229 Great function. Thanks for share with us. Great function.
Thanks for share with us.

]]> By: Michael W http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-27074 Michael W Fri, 08 Apr 2011 17:37:16 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-27074 You know it's some good code when after all these years, IT STILL WORKS !!!! My project just got completed faster than expected thanks to you. Thanks again for posting. You know it’s some good code when after all these years, IT STILL WORKS !!!!

My project just got completed faster than expected thanks to you. Thanks again for posting.

]]> By: Darkfire http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-21304 Darkfire Wed, 19 Jan 2011 13:42:27 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-21304 You made my Day!!! Thank you You made my Day!!!
Thank you

]]> By: Sorting a NotesDocumentCollection by multiple field values (Show’n Tell Thursday) | Per Henrik Lausten http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-12623 Sorting a NotesDocumentCollection by multiple field values (Show’n Tell Thursday) | Per Henrik Lausten Sun, 13 Jun 2010 06:46:35 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-12623 [...] Max Flodén has created a function that does exactly that: sorts a NotesDocumentCollection by one or more field values. But the code from Max uses Evaluate and @Sort to do the actual sorting - and therefore has problems with quotes in the values and apparently also a problem with large collections (see comments to his post). [...] [...] Max Flodén has created a function that does exactly that: sorts a NotesDocumentCollection by one or more field values. But the code from Max uses Evaluate and @Sort to do the actual sorting – and therefore has problems with quotes in the values and apparently also a problem with large collections (see comments to his post). [...]

]]> By: Atul Yadav http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-12528 Atul Yadav Thu, 03 Jun 2010 14:02:54 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-12528 It's a great generic function to sort the collection. Congrats for the good work done. But i have one query in this function.I need to sort a list which consisits of only numbers . for example list will contain numbers such as 012999 and 003323..your function is not working in such scenario. Request you to suggest a solution for this. It’s a great generic function to sort the collection.
Congrats for the good work done.
But i have one query in this function.I need to sort a list which consisits of only numbers . for example list will contain numbers such as 012999 and 003323..your function is not working in such scenario.
Request you to suggest a solution for this.

]]> By: Mark Singer http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-591 Mark Singer Thu, 07 Aug 2008 17:45:00 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-591 Thanks for doing the work.<br/><br/>Here's an idea.<br/><br/>By changing the new doc collection creation line to <br/><br/> Set collSorted = coll.Parent.Views(0).GetAllDocumentsByKey(fakesearchstring)<br/><br/>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.<br/><br/>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.<br/><br/>Cheers and thanks! 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!

]]> By: Anonymous http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-477 Anonymous Wed, 02 May 2007 04:58:00 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-477 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 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

]]> By: Anonymous http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-443 Anonymous Sat, 06 Jan 2007 21:14:00 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-443 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 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

]]> By: Anonymous http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-432 Anonymous Fri, 24 Nov 2006 23:06:00 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-432 Great. I modified the code to use a variants and them applied quicksort function to do the sorting. <br /><br />Here is how I uploaded to a variant<br />dim tempdoc as NotesDocument<br />dim tempItem as NotesItem<br />Dim varSort as Variant<br /><br /><br />Set tempdoc = db.CreateDocument<br /> tempdoc.ArrSort = ""<br /> Set tempitem = tempDoc.GetFirstItem("ArrSort")<br /> For i = 0 To coll.Count - 1<br /> strSort = ""<br /> For n = Lbound(fieldnames) To Ubound(fieldnames) + 1<br /> strSort = strSort & Left(arrSort(i,n) & Space(arrFieldValueLength(n)), arrFieldValueLength(n))<br /> Next n<br /> Call tempitem.AppendToTextList(strSort )<br /> Next i<br /><br />then call the selection sort function<br /> varSort = tempItem.Values<br /> Call SelectionSort(varSort )<br /><br />and finally, rebuilt the collection<br /><br />Set collSorted = coll.Parent.GetView(viewname).GetAllDocumentsByKey(fakesearchstring)<br /> <br /> For i = 0 To Ubound(varSort)<br /> Set doc = db.GetDocumentByUNID(Right(varSort(i), 32))<br /> Call collSorted.AddDocument(doc)<br /> Next i<br /><br />Here is the selection sort function<br /><br />Sub SelectionSort (MyArray As Variant) <br /> ' Selection Sort, "Data Structures Using C", Tenenbaum, ..., p. 337.<br /> If Ubound (MyArray) <= 0 Then Exit Sub <br /> nElem = Ubound (MyArray) + 1<br /> For i = nElem - 1 To 1 Step -1<br /> Large$ = MyArray(0)<br /> indx = 0<br /> For j = 1 To nElem<br /> If j > i Then Exit For<br /> If Strcompare(MyArray(j), Large$) >0 Then ' Ascending<br /> Large$ = MyArray(j)<br /> indx = j<br /> End If <br /> Next <br /> MyArray(indx) = MyArray(i)<br /> MyArray(i) = Large$<br /> Next<br />End Sub 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

]]> By: SN http://blog.tjitjing.com/index.php/2006/05/how-to-sort-notesdocumentcollection-in.html#comment-428 SN Wed, 15 Nov 2006 18:05:00 +0000 http://blog.tjitjing.com/index.php/2006/05/how-to-sort-a-notesdocumentcollection-in-lotusscript.html#comment-428 Thank you very much.<br/>This function works fine. Thank you very much.
This function works fine.

]]>