/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
getfolder.files
Fra : please-answer-here


Dato : 27-09-08 18:07

Kæe NG

Jeg er rimelig grøn ud i ASP. Jeg er ved at lave noget bladring i nogle
billeder. Er der nogen mulighed for at man kan få getfolder.files til at
returnere filnavne sorteret eller skal man sortere arrayet bagefter.

/Henning


 
 
Jakob Lund Krarup (02-10-2008)
Kommentar
Fra : Jakob Lund Krarup


Dato : 02-10-08 12:55

please-answer-here wrote:
> Kæe NG
>
> Jeg er rimelig grøn ud i ASP. Jeg er ved at lave noget bladring i nogle
> billeder. Er der nogen mulighed for at man kan få getfolder.files til at
> returnere filnavne sorteret eller skal man sortere arrayet bagefter.
>
> /Henning


Hej Henning

Jeg har lavet en del billede og filsystem funktioner i VbScript til brug
i ASP. Du kan sikkert finde noget her:

http://www.jake.dk/programmering/asp
Der er kode og eksempler. Der er også en simpel billedviserfunktion som
kan kaldes med blot én linje:

ViewPictures(baseImageFolderPath, imagesPerPage)

F.eks.

ViewPictures("billeder/ferie", 6)


Hvis du hellere vil skrive det selv fra bunden så er der et par simple
arraysorteringsmetoder her som jeg har skrevet:
Det er bubblesort og ikke en optimal sorteringsalgoritme hvad angår
hastighed men til arrays med under et par hundrede elementer er det okay :)


'***************************************************
' SORTERER ET ARRAY ALFABETISK
'***************************************************

sub sorterAlfabetisk (byref sendArray)

arrayStoerrelse = ubound(sendArray,1)
for taeller1 = 0 to arrayStoerrelse -1
for taeller2 = taeller1+1 to arrayStoerrelse
if strComp(sendArray(taeller1),sendArray(taeller2), 1) = 1 then
temp = sendArray(taeller1)
sendArray(taeller1) = sendArray(taeller2)
sendArray(taeller2) = temp
end if
next
next

end sub

'***************************************************
' SORTERER ET ARRAY NUMERISK
'***************************************************

sub sorterNumerisk (byref sendArray)

arrayStoerrelse = ubound(sendArray,1)
for taeller1 = 0 to arrayStoerrelse -1
for taeller2 = taeller1+1 to arrayStoerrelse
if clng(sendArray(taeller1)) > clng(sendArray(taeller2)) then
temp = sendArray(taeller1)
sendArray(taeller1) = sendArray(taeller2)
sendArray(taeller2) = temp
end if
next
next

end sub
'****************************************************

Venligste hilsener - Jakob

Søg
Reklame
Statistik
Spørgsmål : 177579
Tips : 31968
Nyheder : 719565
Indlæg : 6409074
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste