Differenze tra le versioni di "Scrivere in un vettore i dati di un file"

Da Gambas-it.org - Wikipedia.
Riga 9: Riga 9:
 
    
 
    
 
  <FONT color=gray>' ''Impostiamo il numero degli elementi che costituiranno la variabile vettoriale di tipo Byte[]''
 
  <FONT color=gray>' ''Impostiamo il numero degli elementi che costituiranno la variabile vettoriale di tipo Byte[]''
−
  ' ''mediante la proprietà ".Size" della Classe "Stat()", affinché nel vettore siano contenuti tutti i dati del file:''</font>
+
  ' ''mediante la funzione "'Lof()''", affinché nel vettore siano contenuti tutti i dati del file:''</font>
−
   bb = New Byte[Stat("''/percorso/del/file''").Size]
+
   bb = New Byte[Stat(lof(fl)]
 
   
 
   
 
   <FONT color=B22222>bb.Read(fl)</font>
 
   <FONT color=B22222>bb.Read(fl)</font>

Versione delle 08:29, 20 mag 2014

Se si intende riempire una variabile vettoriale con i dati presenti in un file, si potrà agevolmente ottenere questo risultato utilizzando il metodo .Read() disponibile per ogni tipo di variabile vettoriale: 

Public Sub Main()

 Dim bb As Byte[]
 Dim fl As File
 

  fl = Open "/percorso/del/file" For Read
 
' Impostiamo il numero degli elementi che costituiranno la variabile vettoriale di tipo Byte[]
' mediante la funzione "'Lof()", affinché nel vettore siano contenuti tutti i dati del file:
  bb = New Byte[Stat(lof(fl)]

  bb.Read(fl)

  fl.Close

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