Hej, har problem med att få in värdena på rätt sätt i den inledande arrayen för att därefter sortera dom i bokstavsordning. Jag får bara ut sista värdet av "file_name" och om jag flyttar "next", i den första For loopen, till sist (längst ned i koden) fungerar inte sorterinskoden, dock får jag ut all värden då.
Jag vet inte om jag använder fel typ av array eller om det "bara" är redim som är fel eller något annat.
Har försökt med att använda redim preserve array(i) och sedan deklarera den (i den första For loopen, men får då inte till hur man lägger till detta i den multi-dimensionella arrayen.
Det jag försöker göra är att hämta in file_name (olika filnamn) med tillhörande information (tex. filens storlek, senast uppdaterad mm), lägga detta i en array och sedan sortera file_name i bokstavsordning.
Så småningom är tanken att man ska kunna sortera alla fyra "fälten" genom att klicka på respektive "fält", men en sak i taget kanske.
Jag vet inte om jag använder fel typ av array eller om det "bara" är redim som är fel eller något annat.
Har försökt med att använda redim preserve array(i) och sedan deklarera den (i den första For loopen, men får då inte till hur man lägger till detta i den multi-dimensionella arrayen.
Det jag försöker göra är att hämta in file_name (olika filnamn) med tillhörande information (tex. filens storlek, senast uppdaterad mm), lägga detta i en array och sedan sortera file_name i bokstavsordning.
Så småningom är tanken att man ska kunna sortera alla fyra "fälten" genom att klicka på respektive "fält", men en sak i taget kanske.
Kod:
If objLst.length > 0 Then Dim myArray() ' Loop through the list of files For i = 0 To (objLst.length - 1) ' Redim the array with the new number of items Redim PRESERVE myArray(3,0) ' Get the item names and set then in its place in the array myArray(0,0) = objLst.item(i).selectSingleNode("file_name").text myArray(1,0) = objLst.item(i).selectSingleNode("update_interval").text myArray(2,0) = objLst.item(i).selectSingleNode("update_responsible").text myArray(3,0) = objLst.item(i).selectSingleNode("last_saved").text next for y = 0 To Ubound(myArray, 2) for x = UBound(myArray, 2) - 1 To 0 Step -1 for j = 0 to y if myArray(0,j) > myArray(0,j+1) then temp = myArray(0,j+1) myArray(0,j+1) = myArray(0,j) myArray(0,j)=temp end if next next next for ix = 0 To UBound(myArray, 2) %> <TR> <TD WIDTH="25%"><% = myArray(0,ix) %></TD> <TD WIDTH="12%"><% = myArray(1,ix) %> </TD> <TD WIDTH="25%"><% = myArray(2,ix) %></TD> <TD WIDTH="18%"><% = myArray(3,ix) %></TD> </TR> <% next End If
Kommentera