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
