Differenze tra le versioni di "Azzerare un gruppo di byte in un file"

Da Gambas-it.org - Wikipedia.
Riga 13: Riga 13:
 
   fl = Open "''/file/da/azzerare''" For Write
 
   fl = Open "''/file/da/azzerare''" For Write
 
   
 
   
−
     For Each b In buff
+
     buff.Fill(0, 0, 4)
−
      b = 0
 
−
    Next
 
 
   
 
   
 
     Write #fl, buff As Byte[]
 
     Write #fl, buff As Byte[]
Riga 25: Riga 23:
  
  
−
Oppure, volendo usare un array monodimensionale, si dovrà adoperare il metodo “''Write''” della funzione (in questo caso) ''byte[]'':
+
Oppure si potrà adoperare direttamente il metodo “''.Write''” della Classe ''byte[]'':
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   

Versione delle 17:58, 22 nov 2013

Poniamo il caso di voler azzerare all'interno di un file i primi quattro byte senza compiere alcun ciclo sul medesimo.


Potremo utilizzare questa modalità: 

Private buff[4] As Byte


Public Sub Button1_Click()

Dim fl As File
Dim b As Byte

 fl = Open "/file/da/azzerare" For Write

   buff.Fill(0, 0, 4)

    Write #fl, buff As Byte[]

   fl.Close
	   
End


Oppure si potrà adoperare direttamente il metodo “.Write” della Classe byte[]: 

Public Sub Button1_Click()

 Dim fl As File  
 Dim buff As New Byte[4]

  fl = Open "/file/da/azzerare" For Write

   buff.Write(fl)

  fl.Close

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