Ordinare alfabeticamente i files di una directory 2/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 il select-sort.

<%

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

Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFolder("c:\windows") ' directory che verrà esaminata
set fc=f.Files

numero_file=0
dim files(1000)

for Each whatever in fc
  files(numero_file)=Trim(whatever.name)
  numero_file=numero_file+1
next

set fs=Nothing
'
' Ordinamento files con tecnica select-sort
' (adatta per ordinare brevi liste per la sua compattezza)
'
for a=0 to numero_file-1
  d=a
  aa=files(a)
  for b=a+1 to numero_file-1
    if files(b)<aa then
      d=b
      aa=files(b)
    end if
  next

  files(d)=files(a)
  files(a)=aa
next
'
' Visualizza i files ordinati alfabeticamente
'
for t=0 to numero_file-1
  response.write files(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 2/3 (#45) 710 381
| 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