• Home
 · 
• String Manipulation
 · 
• simple sort

simple sort

simple sort

Rate simple sort

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim i As Long
Dim j As Long
Dim k As Integer
Dim c As String
Dim iMax As Integer
Dim A_lenght As Integer
Dim B_lenght As Integer
Dim A_char As String
Dim B_char As String
Dim A_asc As Integer
Dim B_asc As Integer

For i = LBound(sArray) To UBound(sArray)
  For j = LBound(sArray) To UBound(sArray)

    A_lenght = Len(sArray(i))
    B_lenght = Len(sArray(j))

    If A_lenght > B_lenght Then
      iMax = A_lenght
    Else
      iMax = B_lenght
    End If

    For k = 1 To iMax
      A_char = UCase(Mid(sArray(i), k, 1))
      B_char = UCase(Mid(sArray(j), k, 1))
      
      If A_char = "" Then A_char = Chr(0)
      If B_char = "" Then B_char = Chr(0)
      
      A_asc = Asc(A_char)
      B_asc = Asc(B_char)
      
      If A_asc <> B_asc Then
        Exit For
      End If
    Next

    If A_asc < B_asc Then
      c = sArray(i)
      sArray(i) = sArray(j)
      sArray(j) = c
    End If
    
    DoEvents
  Next j
Next i
End Function