Differenze tra le versioni di "Salvare i byte-dati di un file in un file di testo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "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 D...") |
(Nessuna differenza)
|
Versione delle 09:10, 14 dic 2023
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
