Sort array w/ custom alphabet [a-z + æøå]

[Ramachandran]

I wish to sort an array of strings alphabetically including the nordic characters Æ, Ø, Å.
Nordic alphabet = "abcdefghijklmnopqrstuvwxyzæøå"

Most sorting algorithms I've come across (bubble, quick, merge) sorts by checking if "bb" > "ba".
which works well for "01...89abc..xyz"

However, "æ" > "å" and "ø" > "å"
which gives me the sorting, abc...xyzåæø.

Any tips on how to get around this? to get an efficient sorting algo that puts "bø" ahead of "bå" ?

 

[Ramachandran]

asc("å") = 229
asc("æ") = 230
asc("ø") = 248

One very crude way would be to replace "å" with an ascii > 248, but would prefer a more efficient way

 

[pgc01]

Hi

Create a custom list with your alphabet and then use it in the Sort (when you sort, in the Order combobox you can select your custom list).

 

[Ramachandran]

Hi

Create a custom list with your alphabet and then use it in the Sort (when you sort, in the Order combobox you can select your custom list).

Thanks for the reply, however I wish to sort a VBA array (which I'll then feed into a combobox).

Here's a code example:

Sub test()
    Dim nameArr()
    Dim i As Integer, L As String
    
    nameArr = Array("Albert", "Bill", "Øyvind", "Åse")
     
    BubbleSort nameArr
    
    For i = LBound(nameArr) To UBound(nameArr)
        L = L & vbCrLf & nameArr(i)
    Next
    
    MsgBox L
     
End Sub

Sub BubbleSort(MyArray() As Variant)
    Dim First As Integer
    Dim Last As Integer
    Dim i As Integer
    Dim j As Integer
    Dim Temp As String
    Dim List As String
    First = LBound(MyArray)
    Last = UBound(MyArray)
    For i = First To Last - 1
        For j = i + 1 To Last
            If MyArray(i) > MyArray(j) Then
                Temp = MyArray(j)
                MyArray(j) = MyArray(i)
                MyArray(i) = Temp
            End If
        Next j
    Next i
    For i = 1 To UBound(MyArray)
        List = List & vbCrLf & MyArray(i)
    Next
End Sub

This gives the output:

Albert
Bill
Åse
Øyvind

Where as I'd like it to produce:

Albert
Bill
Øyvind
Åse

 

[pgc01]

I see.

If you want to do it in vba, then I think your solution of replacing "å" with an ascii > 248 is not that crude.

You do the replace in the array, call the bubble sort and then replace back. Doesn't seem inefficient, it's a very simple solution.