Assegnare i valori di un file ad una Struttura mediante un Puntatore

E' possibile assegnare direttamente uno o più valori, contenuti da un file, ai membri di una Struttura attraverso la proprietà .Data delle variabili vettoriali.

Mostriamo un semplice esempio, nel quale si suppone si abbia un file di dimensioni e valori conosciuti. I dati-byte dei valori conosciuti del file, corrispondenti ad un Byte, ad uno Intero-Corto e ad un Intero, sono in rappresentazione esadecimale i seguenti: 09 E7 03 9F 86 01 00.
Riproduciamo, quindi, nel codice la Struttura che dovrà poi contenere tali dati.

Public Struct STRUTTURA
 b As Byte
 c As Short
 i As Integer
End Struct


Public Sub Main()

 Dim stru As New STRUTTURA
 Dim fl As File
 Dim bb As Byte[]

 fl = Open "/percorso/del/file/da/leggere"

 With bb = New Byte[Lof(fl)]
' Leggiamo il file e carichiamo i suoi dati nella variabile vettoriale di tipo "Byte[]":
   .Read(fl, 0, .Count)
' In questo esempio siamo costretti a tenere conto del necessario "allineamento" naturale del dato relativo al membro di tipo "Short" della Struttura, aggiungendo un byte vuoto dopo il primo valore, ossia dopo quello corrispondente al membro di tipo Byte:
   .Add(0, 1)
' L'assegnazione diretta dei dati dalla variabile vettoriale alla variabile di tipo "Struttura", da noi creata, avviene semplicemente l'assegnazione dell'indirizzo di memoria (Puntatore) dei dati contenuti dalla variabile vettoriale di tipo "Byte[]" ritornato dalla proprietà ".Data" di tale vettore:
   stru = .Data
 End With
   
 With stru
   Print .b
   Print .c
   Print .i
 End With
 
 fl.Close

End