Differenze tra le versioni di "Scrivere in un file solo alcuni dati presenti in un'area riservata di memoria"
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 27: | Riga 27: | ||
Next | Next | ||
− | fl = Open "<FONT color=gray>''/percorso/del/file''</font>" For | + | fl = Open "<FONT color=gray>''/percorso/del/file''</font>" For Create |
<FONT color=gray>' ''Sposta il puntatore interno sul terzo byte dell'area di memoria riservata...''</font> | <FONT color=gray>' ''Sposta il puntatore interno sul terzo byte dell'area di memoria riservata...''</font> | ||
Riga 36: | Riga 36: | ||
fl.Close | fl.Close | ||
+ | st.Close | ||
Free(p) | Free(p) | ||
Versione attuale delle 17:55, 19 mag 2023
Il caso è quello in cui si intende scrivere in un file soltanto alcuni dati contenuti in un'area riservata di memoria e puntata da una variabile di tipo puntatore.
Nell'esempio esplicativo si precederà innanzitutto a scrivere usa serie di dati nell'area riservata di memoria mediante i Memory-Stream. Successivamente si scrivernno nel file, aperto in scrittura, solo 4 byte, partendo dal terzo byte, precedentemente memorizzati nell'area riservata.
Per poter scrivere solo alcuni dati con il comando Write, è necessario aggiungere un terzo elemento alla corrispondente riga di comando:
Write #file, puntatore, n
laddove n rappresenta la quantità di byte, presenti nella variabile puntatore, che dovranno essere scritti nel file. [Nota 1]
Esempio:
Public Sub Main() Dim fl As File Dim p As Pointer Dim st As Stream Dim b As Byte ' Alloca un'area di memoria pari a dieci byte, che sarà puntata da una variabile di tipo "Puntatore": p = Alloc(SizeOf(gb.Byte), 10) ' Genera una variabile di tipo "Stream" dal "Puntatore", per poter scrivere nella variabile "Puntatore" medesima: st = Memory p For Write ' Scrive mediante la variabile di tipo "Stream" dieci byte all'interno di quell'area di memoria riservata: For b = 97 To 106 Write #st, b As Byte Next fl = Open "/percorso/del/file" For Create ' Sposta il puntatore interno sul terzo byte dell'area di memoria riservata... Seek #st, 2 ' ...e scrive soltanto quattro byte, cominciando dal terzo, dell'area di memoria riservata puntata dalla variabile di tipo "Puntatore": Write #fl, p, 4 fl.Close st.Close Free(p) End
Note
[1] Vedere anche il seguente paragrafo: Scrivere in un file i dati contenuti in un'area di memoria puntata da un Puntatore