Azzerare un gruppo di byte in un file

Da Gambas-it.org - Wikipedia.

Poniamo il caso di voler azzerare all'interno di un file i primi quattro byte.

Tale operazione potrà essere compiuta mediante alcune modalità.

Usando un vettore di tipo Byte[] e il suo Metodo ".Fill()"

Public Sub Main()

  Dim bb As Byte[]

  bb = Byte[].FromString(File.Load("/percorso/del/file"))

  bb.Fill(0, 0, 4)
 
  Print bb.ToString(0, bb.Count)

End


Come fosse testo, e con alcune funzioni sulle stringhe

Con un ciclo:

Public Sub Main()

  Dim s As String

  s = "/percorso/del/file"

  For b As Byte = 1 To 4
    File.Save(s, Replace(File.Load(s), Chr(Asc(File.Load(s), b)), Chr(0)))
  Next

End

oppure senza compiere alcun ciclo:

Private buff[4] As Byte


Public Sub Main()

  Dim fl As File
  Dim b As Byte

  fl = Open "/percorso/del/file" For Write

  Write #fl, buff As Byte[]

  fl.Close
   
End

Senza ciclo si potrà anche adoperare direttamente il Metodo “.Write” della Classe di array di tipo "Byte[]":

Public Sub Main()

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

  fl = Open "/percorso/del/file" For Write

  buff.Write(fl)

  fl.Close

End