Avatar billede eromaster Nybegynder
10. august 2003 - 13:31 Der er 6 kommentarer og
1 løsning

List filer alfabetisk

Jeg bruger dette script til at liste en mappe med filer i:

<%
      strPath = Server.MapPath("./filer/")

      Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objFolder = objFSO.GetFolder(strPath)

      For Each objFile In objFolder.Files

%>
<OPTION value="<%=objFile.Name%>"><%=objFile.Name%></OPTION>       
<%     
Next
%>

men hvordan laver jeg det sådan at den lister dem alfabetisk?
Avatar billede krogstrup Nybegynder
10. august 2003 - 13:38 #1
Så er du nok nødt til at indlæse mapperne i et array og herefter bruge en funktion til at sortere dataene i dette array.

Jeg kan desværre ikke give dig et kodeeksempel, men det er der helt sikkert nogle andre kloge hoveder herinde der kan...
Avatar billede erikjacobsen Ekspert
10. august 2003 - 13:40 #2
Kan du bruge dette?

<%
strPath = Server.MapPath(".")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)
set f = Server.CreateObject("Scripting.Dictionary")
For Each objFile In objFolder.Files
  f.add objFile.Name,1
Next

a = f.keys()
for i=ubound(a)-1 to lbound(a) step -1
  for j=0 to i
    if a(j)>a(j+1) then tmp=a(j):a(j)=a(j+1):a(j+1)=tmp
  next
next
for i=lbound(a) to ubound(a)
  response.write a(i) & "<br>"
next

%>
Avatar billede eromaster Nybegynder
10. august 2003 - 13:43 #3
#2 Jeg må indrømme jeg aner ikke hvad du laver nederst der
Avatar billede erikjacobsen Ekspert
10. august 2003 - 13:45 #4
Det kan da være ligemeget bare det virker ;)
Avatar billede eromaster Nybegynder
10. august 2003 - 13:46 #5
hehe det gør det :)
Avatar billede squashguy Nybegynder
10. august 2003 - 13:47 #6
(psst.. han laver en bobble sortering)
Avatar billede erikjacobsen Ekspert
10. august 2003 - 13:48 #7
Det nederste er en bubblesort - ikke specielt effektiv, men du har nok heller ikke
så mange navne i dit katalog. Scripting.Dictionary er for at slippe for at håndtere
de håbløse arrays i VB.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester