Differenze tra le versioni di "Scrivere i dati dei membri di una Struttura in un file direttamente"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'E' possibile scrivere in un file mediante una sola istruzione i dati contenuti dai membri di una ''Struttura'', passando questa alla funzione ''Write''; evitando così di scri...') |
|||
Riga 1: | Riga 1: | ||
− | E' possibile scrivere in un file mediante una sola istruzione i dati contenuti dai membri di una ''Struttura'', passando questa alla funzione | + | 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. |
− | |||
Mostriamo di seguito un semplice esempio: | Mostriamo di seguito un semplice esempio: | ||
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 | ||
Riga 15: | Riga 14: | ||
Dim fl As File | Dim fl As File | ||
− | + | With stru | |
− | + | .b = 9 | |
− | + | .c = 999 | |
− | + | .i = 99999 | |
− | + | End With | |
− | + | fl = Open "<FONT Color=gray>''/percorso/del/file/da/scrivere/''</font>" For Create | |
<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> | |
− | + | fl.Close | |
'''End''' | '''End''' |
Versione delle 15:59, 10 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.
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