Differenze tra le versioni di "Azzerare un gruppo di byte in un file"
Da Gambas-it.org - Wikipedia.
Riga 35: | Riga 35: | ||
buff.<FONT color=#B22222>Write</font>(fl) | buff.<FONT color=#B22222>Write</font>(fl) | ||
− | + | fl.Close | |
'''End''' | '''End''' |
Versione delle 17:36, 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 For Each b In buff b = 0 Next Write #fl, buff As Byte[] fl.Close End
Oppure, volendo usare un array monodimensionale, si dovrà adoperare il metodo “Write” della funzione (in questo caso) 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