Manage Learn to apply best practices and optimize your operations.

# Fast Sort For Multi-Value Fields

## Domino Resources - Part 6

### Looking for something else?

I developed this script as an efficient way to sort multi-value fields. We
added a Sort button to the address book template group form so that group
administrators could simply add people to the end of the group and click the
sort button to re-order the list. The script can also be used in the exiting
event of a field to sort the entries. I've also used it to generate a single,
sorted keyword list from two sources.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim h As Integer
Dim r As Integer
Dim memberArray() As String
Dim temp As String

Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

'Build an array of values to sort
For k = 0 To Ubound(doc.FieldNameToSort)
Redim Preserve memberArray(1 To k+1)
memberArray(k+1) = Cstr(doc.FieldNameToSort(k))
Next

'Set up for Shell sort algorithm
h = 1
Do While h < k
h = (h*3)+1
Loop
h = (h-1)/3
If h > 3 Then
h = (h-1)/3
End If

'Shell sort algorithm
Do While h > 0
For i = 1+h To k
temp = memberArray(i)
j = i-h
Do While j >0
If memberArray(j)>temp Then
memberArray(j+h) = memberArray(j)
memberArray(j) = temp
Else
Exit Do
End If
j = j-h
Loop
Next i
h = (h-1)/3
Loop

'Write new field value to back-end doc and reload front-end doc
Call doc.ReplaceItemValue("FieldNameToSort", memberArray)

End Sub
This was last published in November 2000

#### Start the conversation

Send me notifications when other members comment.

## SearchWindowsServer

• ### Creating PowerShell scripts for task automation

At a certain point, administrators who run PowerShell commands from the console will find it more efficient to develop a script ...

• ### Windows Defender Credential Guard secures login data

Windows Defender Credential Guard uses virtualization to isolate access to domain credentials and diminish the threat of attacks ...

March Patch Tuesday adds several more mitigations for the Spectre and Meltdown exploits, this time for 32-bit server and client ...

## 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 ...

## SearchDataCenter

• ### IBM cloud services to secure mainframes out to the edge

Big Blue will introduce IBM cloud services that use blockchain, containers and its z14 mainframes to deliver improved security ...

• ### Four disadvantages of hyper-converged infrastructure systems

Problems with scalability and unexpected licensing costs can create problems for organizations that deploy hyper-converged ...

• ### IBM Power9 servers seek market inroads to AI, cloud

IBM follows up its first Power9 server with a raft of systems designed to appeal to a wider array of markets -- most notably, AI ...

## SearchExchange

• ### Office 365 email encryption options grow for enterprise needs

Each enterprise has different needs when it comes to preventing data leakage. Admins should be aware of the Office 365 mailbox ...

Everyone wants a smooth patching process, but things can fall apart despite everyone's best efforts. Develop a solid recovery ...

• ### New Office 365 administrators grapple with challenges

More enterprises mulling the move to Office 365 should factor in the adjustments necessary to get the IT department up to speed ...

## SearchContentManagement

• ### Scrivito unveils serverless CMS product

By building the CMS with ReactJS, Scrivito gained attraction with development community, according to an analyst.

• ### Content personalization tools sharpen focus on customers

Content personalization isn't new; Amazon weaponized it, and Jeff Bezos is the world's richest man. New tools are putting it ...

• ### Leading brands see the need for personalized content

Content personalization continues to expand within companies as maturing technologies make it a viable marketing option for ...

Close