Differenze tra le versioni di "Azzerare un gruppo di byte in un file"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: 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 ...) |
|||
Riga 3: | Riga 3: | ||
Potremo utilizzare questa modalità: | Potremo utilizzare questa modalità: | ||
− | Private buff[4] As Byte | + | '''Private''' buff[4] As Byte |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | Dim | + | Dim fl As File |
Dim b As Byte | Dim b As Byte | ||
− | + | fl = Open "''/file/da/azzerare''" For Write | |
For Each b In buff | For Each b In buff | ||
Riga 17: | Riga 17: | ||
Next | Next | ||
− | Write # | + | Write #fl, buff As Byte[] |
− | + | fl.Close | |
'''End''' | '''End''' | ||
Riga 28: | Riga 28: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | Dim | + | Dim fl As File |
Dim buff As New Byte[4] | Dim buff As New Byte[4] | ||
− | + | fl = Open "''/file/da/azzerare''" For Write | |
− | buff.<FONT color=#B22222>Write</font>( | + | buff.<FONT color=#B22222>Write</font>(fl) |
− | + | fl.Close | |
'''End''' | '''End''' |
Versione delle 17:35, 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