Differenze tra le versioni di "Assegnare i valori di un file ad una Struttura mediante un Puntatore"
Da Gambas-it.org - Wikipedia.
(5 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 2: | Riga 2: | ||
− | Mostriamo un semplice esempio, nel quale si suppone si abbia un file | + | 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. |
− | <BR> | + | <BR>Riproduciamo, quindi, nel codice la ''Struttura'' che dovrà poi contenere tali dati. |
Public Struct STRUTTURA | Public Struct STRUTTURA | ||
b As Byte | b As Byte | ||
− | + | c As Short | |
i As Integer | i As Integer | ||
End Struct | End Struct | ||
− | + | Public Sub Main() | |
Dim stru As New STRUTTURA | Dim stru As New STRUTTURA | ||
Riga 17: | Riga 17: | ||
Dim bb As Byte[] | Dim bb As Byte[] | ||
− | + | fl = Open "<FONT Color=darkgreen>''/percorso/del/file/da/leggere''</font>" | |
− | + | With bb = New Byte[Lof(fl)] | |
<FONT Color=gray>' ''Leggiamo il file e carichiamo i suoi dati nella variabile vettoriale di tipo "Byte[]":''</font> | <FONT Color=gray>' ''Leggiamo il file e carichiamo i suoi dati nella variabile vettoriale di tipo "Byte[]":''</font> | ||
− | + | .Read(fl, 0, .Count) | |
− | <FONT Color=gray>' ''In questo esempio siamo costretti a tenere conto del necessario "allineamento" naturale del dato relativo al membro di tipo "Short" della Struttura, | + | <FONT Color=gray>' ''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:''</font> |
− | + | .Add(0, 1) | |
− | + | <FONT Color=gray>' ''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:''</font> | |
− | <FONT Color=gray>' ''L'assegnazione diretta dei dati dalla variabile vettoriale alla variabile di tipo "Struttura", da noi creata, avviene semplicemente l'assegnazione dell'indirizzo di memoria | + | <FONT Color=#B22222>stru = .Data</font> |
− | + | End With | |
− | |||
− | |||
− | + | With stru | |
− | + | Print .b | |
− | + | Print .c | |
− | + | Print .i | |
− | + | End With | |
− | + | fl.Close | |
− | + | End |
Versione attuale delle 18:24, 7 giu 2024
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