Differenze tra le versioni di "Conoscere la dimensione di un file"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
−
Per conoscere la dimensione di un file, scelto mediante l'apposita finestra di dialogo per l'apertura dei file, si potrà usare la proprietà ''.Size'' della Classe ''Stat''.
+
Per conoscere la dimensione di un file, si potranno adottare almeno tre modalità
  
 +
 +
==Uso della proprietà ''.Size'' della Classe ''Stat''==
 
La Classe ''Stat'' restituisce una serie di informazioni relative ai file.
 
La Classe ''Stat'' restituisce una serie di informazioni relative ai file.
  
−
Utilizzeremo la proprietà ''Size'' della Classe ''Stat'' congiuntamente alla proprietà ''.Path'' della Classe ''Dialog'', che restituisce il percorso, il nome e l'estensione del file prescelto.
+
Un esempio può essere il seguente:
 +
'''Public''' Sub Button1_Click()
 +
 +
  Dim s As String
 +
 +
    s = Stat("''percorso_del_file''")<FONT color=#B22222>.Size</font>
 +
 +
    Print "La dimensione del file è: "; s; " byte"
 +
 +
'''End'''
  
  
−
Si scriverà dunque quanto segue:
+
==Uso della funzione ''Len()''==
 +
Useremo la funzione ''Len()'' per conoscere la lunghezza della stringa di dati restituita dalla funzione ''.Load'' della Classe ''File'':
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
 
   Dim s As String
 
   Dim s As String
 
   
 
   
−
  <FONT color=#006400>' ''Apriamo la finestra di dialogo per scegliere e caricare il file:''</font>
+
    s = File.Load("''percorso_del_file''")
−
    If Dialog.Openfile() then Return
+
   
 +
    Print "La dimensione del file è: "; <FONT color=#B22222>Len(s)</font>; " byte"
 +
 +
'''End'''
 +
 
 +
 
 +
==Uso di ''Open...For Read''==
 +
Potremo usare anche leggere la quantità di dati contenuti in un file con ''Open...For Read''
 +
 
 +
Un esempio può essere il seguente:
 +
'''Public''' Sub Button1_Click()
 +
 +
  Dim fl As File
 +
  Dim b as Byte
 +
  Dim i As Integer
 
   
 
   
−
<FONT color=#006400>' ''Estraiamo la dimensione del file scelto con la finestra di dialogo:''</font>
+
  fl = Open "''percorso_del_file''" For Read
−
    s = Stat(Dialog.Path).Size
 
 
   
 
   
−
     Print "La dimensione del file scelto è: "; s; " byte"
+
  While Not Eof(fl)
 +
     Read #fl, b
 +
    Inc i
 +
  Wend
 +
 
 +
  Print "La dimensione del file è: "; i; " byte"
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 07:15, 21 mag 2013

Per conoscere la dimensione di un file, si potranno adottare almeno tre modalità


Uso della proprietà .Size della Classe Stat

La Classe Stat restituisce una serie di informazioni relative ai file.

Un esempio può essere il seguente: 

Public Sub Button1_Click()

 Dim s As String

   s = Stat("percorso_del_file").Size

   Print "La dimensione del file è: "; s; " byte"

End


Uso della funzione Len()

Useremo la funzione Len() per conoscere la lunghezza della stringa di dati restituita dalla funzione .Load della Classe File: 

Public Sub Button1_Click()

 Dim s As String

   s = File.Load("percorso_del_file")

   Print "La dimensione del file è: "; Len(s); " byte"

End


Uso di Open...For Read

Potremo usare anche leggere la quantità di dati contenuti in un file con Open...For Read

Un esempio può essere il seguente: 

Public Sub Button1_Click()

 Dim fl As File
 Dim b as Byte
 Dim i As Integer

  fl = Open "percorso_del_file" For Read

  While Not Eof(fl)
   Read #fl, b
   Inc i
  Wend
 
  Print "La dimensione del file è: "; i; " byte"

End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Conoscere_la_dimensione_di_un_file&oldid=12855"