Ordning af streng fra array.

Hvis arrRel er sorteret som den er i det tilfælde du har vist, kan du bruge følgende.

function firstPart(str)
    if instr(1,str,"-") >0 then
        firstPart=left(str,Instr(1,str,"-")-1)
    else
        firstPart=""   
    end if
end function

function mkStrArr(arr)
    dim prev,str
   
    prev=firstPart(arr(LBound(arr)))
    str=arr(LBound(arr))&","
    for a = LBound(arr)+1 to UBound(arr)
        if firstPart(arr(a))=prev then
            str=str&arr(a)&","
        else
            str=str&","&arr(a)&","
            prev=firstPart(arr(a))
        end if
    next
   
    mkStrArr = split(left(str,len(str)-1),",,")
end function

dim str,arrStr,msg,a,arrRel(6)

arrRel(0) = "0-22"
arrRel(1) = "0-48"
arrRel(2) = "0-49"
arrRel(3) = "22-23"
arrRel(4) = "23-25"
arrRel(5) = "23-51"
arrRel(6) = "49-50"

arrStr=mkStrArr(arrRel)

Helt sikkert.

Det virker perfekt :)

Til at sortere arrayet alfabetisk bruger jeg CombSort():
--
Function CombSort(byVal UnsortedArray)
Dim I, J, Temp, Gap, Swapped
Dim ArrSize, Combcom, Combswap
Const Shrink = 1.3
ArrSize = UBOUND( UnsortedArray )
Gap = Arrsize - 1
Do
  Gap = Int(Gap / Shrink)
  Swapped = True
  Combcom = Combcom + 1
  For J = 0 To Arrsize - Gap
  If UnsortedArray(J) > UnsortedArray(J + Gap) Then
    Temp = UnsortedArray(J)
    UnsortedArray(J) = UnsortedArray(J + Gap)
    UnsortedArray(J + Gap) = Temp
    Swapped = False
    Combswap = Combswap + 1
  End If
  Next
Loop Until Not Swapped And Gap = 1
CombSort = UnsortedArray
End Function