07. oktober 2004 - 20:02Der er
2 kommentarer og 1 løsning
Ordning af streng fra array.
Hey
Er der nogen der har nogle gode idéer til hvordan jeg kan lave arrRel om til et array, arrStr, bestående af nogle understrenge sorteret efter det første nr i rækken (eg. 0 ved 0-22).
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
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.