Salvare i byte-dati di un file in un file di testo

Mostreremo un esempio per salvare i byte-dati di un file nella loro rappresentazione esadecimale in un file di testo:

Public Sub Main()

 Dim fl As File
 Dim b As Byte
 Dim ss As New String[]

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

 While Not Eof(fl)
   Read #fl, b
   ss.Push(Hex(b, 2))
 Wend

 fl.Close

' Ogni numero esadecimale sarà separato da uno spazio (ovviamente si potrà scegliere di non inserire questo spazio):
 File.Save("/tmp/file", ss.Join(" ", Null))

End