Dx21 - UDF

Home

eZine

Coding

Software

Network Admin.

Home > Coding > Libraries > UDF / UDC Library > UDF Library

	Back
	UDC Library

User Defined Functions Library

Syntax:	SortStrings
Where:	aryStrings Array of strings bAsc True / False value indicating if strings should be sorted assending bCS True / False value indicating if sort should be performed case sensitive intStart Starting index to sort from. If Null passed, default value used intEnd Ending index to sort to . If Null passed, default value used
Constants:	None
Return Type:	Array (String)

View Function in:

Sub SortStrings(ByRef aryStrings, bAsc, bCS, intStart, intEnd)
	Dim strLeast, intLeast
	Dim intMin, intMax
	Dim intCounter, intCounter2
	Dim intCompType, intOrder

	'Exit if nothing to do
	If UBound(aryStrings) = 0 Then Exit Sub

	'Determine Working Environment
	If VarType(intStart) = vbNull Then intMin = 0 Else intMin = intStart
	If VarType(intEnd) = vbNull Then intMax = UBound(aryStrings) Else intMax = intEnd
	If bAsc Then intOrder = -1 Else intOrder = 1
	If bCS Then intCompType = vbBinaryCompare Else intCompType = vbTextCompare

	'Enumerate array, swapping values based on character and order
	For intCounter = intMin To intMax
		strLeast = aryStrings(intCounter)
		intLeast = intCounter

		'Compare against other values
		For intCounter2 = intCounter + 1 To intMax
			If StrComp(aryStrings(intCounter2), strLeast, intCompType) = intOrder Then
				strLeast = aryStrings(intCounter2)
				intLeast = intCounter2
			End If
		Next

        	'Swap values (even if no swap is really needed)
		aryStrings(intLeast) = aryStrings(intCounter)
		aryStrings(intCounter) = strLeast
	Next
End Sub

Script Example

'DEMO - Sort Alphabetically
aWorking = Split("Upsilon, Chi, Eta, Iota, Gamma, Mu, Alpha", ",")
WScript.Echo "ASCENDING: "
SortStrings aWorking, True, False, Null, Null
strNames = Join(aWorking, ", ")
WScript.Echo strNames

Last Modification:
1/1/2005

More Information: Click Here

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/8/2010 9:53:38 PM for Unknown