Differenze tra le versioni di "Scrivere i dati dei membri di una Struttura in un file direttamente"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
E' possibile scrivere in un file mediante una sola riga d'istruzione i dati contenuti dai membri di una ''Struttura'', passando questa alla funzione "Write" ed evitando così di scrivere nel file un membro per volta. | E' possibile scrivere in un file mediante una sola riga d'istruzione i dati contenuti dai membri di una ''Struttura'', passando questa alla funzione "Write" ed evitando così di scrivere nel file un membro per volta. | ||
| + | <BR>Più in particolare nella dichiarazione del tipo di dato da scrivere, si porrà l'etichetta della Struttura. | ||
Mostriamo di seguito un semplice esempio: | Mostriamo di seguito un semplice esempio: | ||
| − | Public Struct STRUTTURA | + | Public Struct <FONT Color=#B22222>STRUTTURA</font> |
b As Byte | b As Byte | ||
c As Short | c As Short | ||
| Riga 11: | Riga 12: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | Dim stru As New STRUTTURA | + | Dim stru As New <FONT Color=#B22222>STRUTTURA</font> |
Dim fl As File | Dim fl As File | ||
| Riga 23: | Riga 24: | ||
<FONT Color=gray>' ''Passiamo alla funzione "Write" la variabile di tipo "Struttura" da noi creata:''</font> | <FONT Color=gray>' ''Passiamo alla funzione "Write" la variabile di tipo "Struttura" da noi creata:''</font> | ||
| − | Write #fl, <FONT Color=#B22222>stru As STRUTTURA</font> | + | Write #fl, <FONT Color=#B22222>stru As '''STRUTTURA'''</font> |
fl.Close | fl.Close | ||
'''End''' | '''End''' | ||
Versione delle 20:31, 23 set 2022
E' possibile scrivere in un file mediante una sola riga d'istruzione i dati contenuti dai membri di una Struttura, passando questa alla funzione "Write" ed evitando così di scrivere nel file un membro per volta.
Più in particolare nella dichiarazione del tipo di dato da scrivere, si porrà l'etichetta della Struttura.
Mostriamo di seguito un semplice esempio:
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 With stru .b = 9 .c = 999 .i = 99999 End With fl = Open "/percorso/del/file/da/scrivere/" For Create ' Passiamo alla funzione "Write" la variabile di tipo "Struttura" da noi creata: Write #fl, stru As STRUTTURA fl.Close End
