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

Da Gambas-it.org - Wikipedia.
Riga 6: Riga 6:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
   Dim vettore As Byte = [&11, &22, &33, &44, &55, &66, &77, &88]
+
   Dim vettore As Byte[] = [&11, &22, &33, &44, &55, &66, &77, &88]
 
   Dim b As Byte
 
   Dim b As Byte
 
   Dim fl As File   
 
   Dim fl As File   
Riga 19: Riga 19:
 
  fl.Close
 
  fl.Close
 
    
 
    
 +
'''End'''
 +
 +
===Dichiarare quale "Array" il tipo di dati del secondo membro della riga di istruzione con "Write"===
 +
Da notare che, se dopo il secondo membro dell'istruzione "Write" si dichiarasse il tipo di dati come "Array", potremmo notare nei primi tre byte del file scritto i valori 41 02 04 ...., i quali stanno a rappresentare:
 +
41 è l'Array (il carattere 'A' sta appunto per Array).
 +
02 significa Byte.
 +
04 è il numero della dimensione dell'Array.
 +
e solo dopo tali tre valori seguono i veri byte del contenuto del vettore.
 +
 +
Esempio:
 +
'''Public''' Sub Main()
 +
 +
  Dim vettore As Byte[] = [&11, &22, &33, &44, &55, &66, &77, &88]
 +
  Dim b As Byte
 +
  Dim fl As File 
 +
 
 +
  fl = Open "<FONT Color=gray>''/percorso/del/file/da/scrivere''</font>" For Create
 +
 +
  Write #fl, vettore As <FONT Color=#B22222>Array</font>
 +
 +
  fl.Close
 +
 
  '''End'''
 
  '''End'''
  
Riga 26: Riga 48:
 
  '''Public''' Sub Main()
 
  '''Public''' Sub Main()
 
   
 
   
   Dim vettore As Byte = [&11, &22, &33, &44, &55, &66, &77, &88]
+
   Dim vettore As Byte[] = [&11, &22, &33, &44, &55, &66, &77, &88]
 
   Dim fl As File   
 
   Dim fl As File   
 
    
 
    

Versione delle 19:45, 31 ago 2022

Se si intende scrivere in un file dati contenuti in una variabile vettoriale di tipo "Byte[]", sarà assolutamente necessario tenere conto del vettore.


Mediante le istruzioni "Open e "Write"

Mostriamo un esempio che fa uso dell'istruzione "Write" per scrivere in un file i dati presenti in un vettore di tipo "Byte[]":

Public Sub Main()

 Dim vettore As Byte[] = [&11, &22, &33, &44, &55, &66, &77, &88]
 Dim b As Byte
 Dim fl As File  
  
 fl = Open "/percorso/del/file/da/scrivere" For Create

 For b = 0 To vettore.Max
' Viene scritto il file:
   Write #fl, vettore[b] As Byte  
 Next

fl.Close
 
End

Dichiarare quale "Array" il tipo di dati del secondo membro della riga di istruzione con "Write"

Da notare che, se dopo il secondo membro dell'istruzione "Write" si dichiarasse il tipo di dati come "Array", potremmo notare nei primi tre byte del file scritto i valori 41 02 04 ...., i quali stanno a rappresentare:

41 è l'Array (il carattere 'A' sta appunto per Array).
02 significa Byte.
04 è il numero della dimensione dell'Array.

e solo dopo tali tre valori seguono i veri byte del contenuto del vettore.

Esempio:

Public Sub Main()

 Dim vettore As Byte[] = [&11, &22, &33, &44, &55, &66, &77, &88]
 Dim b As Byte
 Dim fl As File  
  
 fl = Open "/percorso/del/file/da/scrivere" For Create

 Write #fl, vettore As Array

 fl.Close

End


Uso del Metodo ".Write()" del vettore

In entrambi i casi si potrà utilizzare anche il metodo Write() della variabile vettoriale di tipo Byte[]:

Public Sub Main()

 Dim vettore As Byte[] = [&11, &22, &33, &44, &55, &66, &77, &88]
 Dim fl As File  
 
 fl = Open "/percorso/del/file/da/scrivere" For Create

' Viene scritto il file:  
 vettore.Write(fl, 0, vettore.Count)

 fl.Close

End