Avis
Junior Poster
Joined: 07 Oct 2003
Posts: 510
Location: India
|
 Posted: Oct 8th, 2003 04:07 AM Post subject: Alphabetically list an Array |
 |
|
| Code: | Public Function SortArray(Expression()) As Variant()
Dim Temp As Variant, SortArrayNew() As Variant
SortArrayNew = Expression
For Index = 1 To UBound(Expression)
For Counter = 1 To UBound(Expression) - 1
If SortArrayNew(Counter) > SortArrayNew(Counter + 1) Then 'sort by weight
Temp = SortArrayNew(Counter)
SortArrayNew(Counter) = SortArrayNew(Counter + 1) 'I think this works
SortArrayNew(Counter) = SortArrayNew(Counter + 1)
SortArrayNew(Counter + 1) = Temp
End If
Next Counter
Next Index
SortArray = SortArrayNew
End Function |
Usage with Example:
| Code: | Private Sub Form_Load()
Dim x()
ReDim x(1 To 3)
x(1) = "b"
x(2) = "a"
x(3) = "c"
x = SortArray(x)
For i = 1 To 3
MsgBox x(i)
Next
End Sub |
|
|
