Differenze tra le versioni di "Azzerare un gruppo di byte in un file"
Da Gambas-it.org - Wikipedia.
Riga 12: | Riga 12: | ||
fl = Open "''/file/da/azzerare''" For Write | fl = Open "''/file/da/azzerare''" For Write | ||
− | |||
− | |||
Write #fl, buff As Byte[] | Write #fl, buff As Byte[] |
Versione delle 18:01, 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 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