"Frontier" <spameater@trashcan.dk> skrev i en meddelelse
news:hrred110qgb4b7cet3r1rp65ctkmm48c2o@4ax.com...
> Hejsa :)
> Du kan jo starte med at indlæse alle filnavne i et array, sortere dem
> alfabetisk og så vise dem derefter? 20 af gangen eller noget? (Gerne
> thumb-nails/minibilleder)
>
> Jeg fandt engang dette script i en nyhedsgruppe, og jeg giver det så
> videre nu. Bemærk at det kan være nødvendig at overføre arrayet til en
> midlertidig variabel for at kunne overføre hertil.
>
> dim temp
> temp=MitArray
> temp=SorterAlfabetisk(temp)
>
> Og så kan du ellers anvende temp som et sorteret array af MitArray.
>
> Mvh,
> Klaus Jakobsen
>
> PS: hvis du savner et ASP classic komponent at lave thumbnails med, så
> prøv at se på Google efter Gflax - har aldrig oplevet en grafisk
> komponent der kunne tage så mange filformater. Og så er den gratis :)
> Den kan både anvende fil I/O og streame direkte til klienten.
>
>
> function SorterAlfabetisk(ArrayNavn)
> dim strHold
> dim bolContinue
> dim arrSortTemp, x
> bolContinue = true
>
> arrSortTemp = ArrayNavn
> do while bolContinue
> bolContinue = false
> for x = 0 to ubound(arrSortTemp)-1
> if lcase((arrSortTemp(x))>arrSortTemp(x+1)) then
> strHold = arrSortTemp(x)
> arrSortTemp(x)=arrSortTemp(x+1)
> arrSortTemp(x+1)=strHold
> bolContinue=true
> end if
> next
> loop
> SorterAlfabetisk = arrSortTemp
> end function
Mange tak
Jeg vil prøve at få det implementeret
Jeg AspJpeg fra Persits
Det er nu ogå ok til det brug jeg har
/lasse