Array Sortering

Virker ikke, hvordan?
Du får en fejlmeddelelse? eller den sorterer ikke?

Jeg tror det er fordi du har misforstået hvordan Array-funktionen fungerer...

Hvis du vil omsætte strengen

"vvs","vand","kloak","ror","abc"

til et array, skal du splitte den ved "," (dvs. anførselstegn komma anførselstegn og samtidig fjerne anførselstegn i enderne for at det bliver et array af værdier. Noget i stil med dette:

arrInt = Split(mid(arrInt,2,len(arrInt)-2), """,""")

Det vil, efter min bedste overbevisning, give dig et array af værdier (strenge), som indeholder:

arrInt(0) = "vvs"
arrInt(1) = "vand"
arrInt(2) = "kloak"
arrInt(3) = "ror"
arrInt(4) = "abc"

Det her vil dog også fungere (men det synes jeg nu er lidt af et hack!) :-)

<%
Function BubbleSort(arrInt)
           
        execute "arrInt = Array(" & arrInt & ")"
        for i = UBound(arrInt) - 1 To 0 Step -1
            for j= 0 to i
                if arrInt(j)>arrInt(j+1) then
                    temp = arrInt(j+1)
                    arrInt(j+1) = arrInt(j)
                    arrInt(j) = temp
                end if
            next
        next
        BubbleSort = arrInt
end function

response.write Join(BubbleSort("""vvs"",""vand"",""kloak"",""ror"",""abc"""),",")
%>

Koderettelsen i indlæg #2 skal kaldes på samme måde som i koderettelsen i indlæg #3, da din syntaks ellers ikke er gyldig (VBScript tillader dig, såvidt jeg ved, ikke at erklære variable antal parametre til en funktion).

Softspot #3 virker sådan set - men du skriver det er lidt af et hack?

Det jeg blot ønsker er at sortere en liste som er hevet ud fra min database til en tekst streng som ser "qoq,asd,ree,jv,oe" ud.

Det virker sådan her....

Men kan det blive pænere?

Function BubbleSortArray(arrInt)
           
        execute "arrInt = Array(" & arrInt & ")"
        for i = UBound(arrInt) - 1 To 0 Step -1
            for j= 0 to i
                if arrInt(j)>arrInt(j+1) then
                    temp = arrInt(j+1)
                    arrInt(j+1) = arrInt(j)
                    arrInt(j) = temp
                end if
            next
        next
        ' temp indeholder nu en sorteret liste..
        BubbleSortArray = arrInt
end function

myTestArr = Join(BubbleSortArray(brandsArray),",")

myTestArr = split(myTestArr,",")

for i = lbound(myTestArr) to ubound(myTestArr)

    response.Write("<a href=""/brands/" & doAddSeo(myTestArr(i)) & "/"">" & myTestArr(i) & "<br />")

next

Ja, du kan bruge det første forslag, hvor strengen der sendes ind bare splittes op og gennemløbes som et normalt array. Det ville i så fald se således ud:

<%
Function BubbleSort(arrInt)
        arrInt = Split(arrInt,",")
        for i = UBound(arrInt) - 1 To 0 Step -1
            for j= 0 to i
                if arrInt(j)>arrInt(j+1) then
                    temp = arrInt(j+1)
                    arrInt(j+1) = arrInt(j)
                    arrInt(j) = temp
                end if
            next
        next
        BubbleSort = arrInt
end function

response.write Join(BubbleSort("vvs,vand,kloak,ror,abc"),",")
%>

Bemærk i øvrigt at Bubblesort returnerer et array, så det er ikke nødvendigt at gøre andet end at udskrive det i din løkke (hvis nu man skal tage udgangspunkt i det eksempel i indlæg #6).

Softspot, mangler et svar fra din side :-)

Nå ok, jeg var slet ikke klar over at du var tilfreds endnu, men du får da lige et svar ;-)

Mini-me, du bad om svar...? ;-)

Ferie :-)

Aaah, heldige rad! :D

Tak for point :)