Simply sorts a 1 dimensional array using a bubble sort algorythm.

Original Author: Colin Woor

Inputs

Array to be sorted

Returns

A sorted array

Code

'
'Use:
'
'Sort Array
'
'to sort (A-Z / 1-10, Accending)
'Pretty easy to update it to sort 2 or 3 dimensional arrays
'Or to sort decending
'
'Comments or any info email: col@woor.co.uk
'
Public Sub sort(tmparray)
Dim SortedArray As Boolean
Dim start, Finish As Integer
SortedArray = True
start = LBound(tmparray)
Finish = UBound(tmparray)
Do
  SortedArray = True
  For loopcount = start To Finish - 1
    
    If tmparray(loopcount) > tmparray(loopcount + 1) Then
      SortedArray = False
      Call swap(tmparray, loopcount, loopcount + 1)
    End If
    
  Next loopcount
Loop Until SortedArray = True

End Sub
Sub swap(swparray, fpos, spos)
Dim temp As Variant
temp = swparray(fpos)
swparray(fpos) = swparray(spos)
swparray(spos) = temp
End Sub

Date:2002-06-01

Migrated:Not Migrated

VB Fixer

VERY VERY Simple — I got tired of downloading project files and having to manually take out the Retained=0 line from the project file to use in VB 5.0 — This does that for you..simple code, simple process

Original Author: Stephen King

Attachments

File	Uploaded	Size
CODE_UPLOAD31741312000.zip	9/3/2020 3:45:00 PM	9151