Ottenere un numero dalla sua memorizzazione in formato Big-Endian

La circostanza è quella in cui si intende leggere i dati-byte di un valore all'interno di un file memorizzati in formato Big-Endian a dimensione fissa, ottenendo così al termine l'effettivo numero corrispondente (ossia corrispondente esattamente alla disposizione dei dati-byte in formato Big-Endian).

Come sappiamo, se un valore è stato volutamente salvato in modalità Big-Endian all'interno di un file, andando successivamente a leggerlo, il sistema, che certamente opera con una modalità di memorizzazione dei dati in Little-Endian, non restituirà dalla lettura il valore esatto.
Così, ad esempio, se nel file è memorizzato il gruppo di tre byte-dati &h010305, corrispondente in rappresentazione decimale al numero 66309, una lettura in Little-Endian ruoterà i dati-byte di quel valore, come segue: &h050301, ordine di byte che corrisponde invece al numero 328449 !

Mostriamo alcune possibiità, con le quali poter restituire, dalla lettura da un file di suoi 3 dati memorizzati in Big-Endian, l'effettivo valore che si volle a suo tempo memorizzare nel file.

Public Sub Main()

 Dim fl As File
 Dim b, c As Byte 
 Dim i As Integer
 
  fl = Open "/percorso/del/file" For Read
  
' Leggerà tre byte:
  b = 3
  
  Repeat
    Read #fl, c
    i = Shl(i, 8) Or c
    Dec b
  Until Until b = 0
  
  Print i
  
  fl.Close
 
End

Usando un vettore di tipo Byte[] come appoggio

Public Sub Main()

 Dim fl As File
 Dim bb As New Byte[3]
 Dim i As Integer
 
  fl = Open "/percorso/del/file" For Read
  
' Legge i tre byte:
  bb.Read(fl, 0, bb.Count)
  bb.Reverse()
  
  i = Int@(bb.Data)
  
  Print i
  
  fl.Close
  
End

oppure:

Public Sub Main()

 Dim fl As File
 Dim bb As New Byte[3]
 Dim i As Integer
 
  fl = Open "/percorso/del/file" For Read
  
  bb.Read(fl, 0, bb.Count)
  
  fl.Close
  
  i = bb[0]
  i = Shl(i, 8)
  i = i Or (bb[1] And 127)
  i = Shl(i, 8)
  i = i Or (bb[2] And 127)
  
  Print i
 
End

oppure:

Public Sub Main()
 
 Dim fl As File
 Dim q As Byte
 Dim bb As New Byte[3]
 Dim ris As Integer
  
  fl = Open "/percorso/del/file" For Read
  
  bb.Read(fl, 0, bb.Count)
  
  fl.Close
  
  Do
    ris = (ris * CInt(2 ^ 8)) Or bb[q]
    Inc q
  Loop Until q = bb.Count

  Print ris

End

oppure:

Public Sub Main()

 Dim fl As File
 Dim bb As New Byte[3]
 Dim i As Integer
 
  fl = Open "/percorso/del/file" For Read
  
  bb.Read(fl, 0, bb.Count)
  
  fl.Close

  i = bb[2]
  i += bb[1] * 256            ' &0100
  i += bb[0] * 65536        ' &010000
  
  Print i
  
End

oppure:

Public Sub Main()
 
 Dim fl As File
 Dim bb As New Byte[3]
 Dim i As Integer
  
  fl = Open "/percorso/del/file" For Read
  
  bb.Read(fl, 0, bb.Count)
  
  fl.Close
 
  i = bb[2] Or Shl(bb[1], 8) Or Shl(bb[0], 16)
   
  Print i
  
End

o usando le risorse stringa con conversione finale in valore numerico in rappresentazione decimale:

Public Sub Main()

 Dim fl As File
 Dim bb As New Byte[3]
 Dim s As String
 Dim i As Integer
  
  fl = Open "/percorso/del/file" For Read
  
  bb.Read(fl, 0, bb.Count)
  
  fl.Close
  
  s = Hex(bb[0], 2) & Hex(bb[1], 2) & Hex(bb[2], 2) & Hex(bb[3], 2)
  
  i = Val("&" & s)
   
  Print i
  
End