Ordinare alfabeticamente i files di una directory 3/3

di , in Classic ASP, Files, Tips,

In questo script, leggeremo i files da una directory e li ordineremo con un'altro algoritmo di ordinamento, in questo caso prendiamo l'algoritmo più veloce conosciuto, il Quick-sort.

<%
' Funzione quick-sort.
' Script creato da Zani Andrea
'
Sub QSort(a,ilo,ihi)

  lo=ilo
  hi=ihi
  mezzo=a((lo+hi)/2)

  do
    while (a(lo)<mezzo)
      lo=lo+1
    wend

    while (a(hi)>mezzo)
      hi=hi-1
    wend

    if lo<=hi then
 t=a(lo)
 a(lo)=a(hi)
 a(hi)=t
 lo=lo+1
 hi=hi-1
    end if
  loop while (lo<=hi)

  if hi>ilo then call QSort(a,ilo,hi)

  if lo<ihi then call QSort(a,lo,ihi)

End Sub


response.Write("Files presenti:<p>")


Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFolder("c:\windows")
set fc=f.Files
numero_file=0

dim matrice(1000)

for Each whatever in fc
  matrice(numero_file)=trim(whatever.name)
  numero_file=numero_file+1
next
'
' Ordinamento files con tecnica quick-sort
' una delle più veloci routine di ordinamento conosciute
'
call QSort(matrice,0,numero_file)
'
' Visualizza i files ordinati alfabeticamente
'
set fs=Nothing
for t=1 to numero_file ' la lista sarà presente dall'elemento "1" dell'array
  response.write matrice(t)&"<br>"
next

%>

Per maggiori informazioni su files e directory si veda
https://www.aspitalia.com/articoli/intranet/esplora_risorse.asp
https://www.aspitalia.com/articoli/files.asp

Commenti

Visualizza/aggiungi commenti

Ordinare alfabeticamente i files di una directory 3/3 (#46) 710 382
| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi