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

Da Gambas-it.org - Wikipedia.
Riga 10: Riga 10:
 
  <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 funzione "Lof()", 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(lof(fl)]
+
   bb = New Byte[](lof(fl))
 
   
 
   
 
   <FONT color=B22222>bb.Read(fl)</font>
 
   <FONT color=B22222>bb.Read(fl)</font>

Versione delle 08:30, 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[](lof(fl))

  bb.Read(fl)

  fl.Close

End