Differenze tra le versioni di "Scrivere i valori contenuti da un file in un'area riservata di memoria"
Da Gambas-it.org - Wikipedia.
Riga 10: | Riga 10: | ||
Dim st As Stream | Dim st As Stream | ||
− | fl = Open "''/percorso/del/file/da/leggere''" For Read | + | fl = Open "<FONT Color=gray>''/percorso/del/file/da/leggere''</font>" For Read |
Read #fl, s, -256 | Read #fl, s, -256 | ||
Versione delle 18:20, 4 nov 2021
Per scrivere i dati, letti da un file, all'interno di un'area riservata di memoria puntata da un Puntatore, si procederà innanzitutto ad assegnare tali dati in una variabile di tipo Stringa. Successivamente si provvederà a scrivere mediante i Memory Stream i valori, contenuti dalla predetta variabile Stringa, nell'area di memoria allocata.
Mostriamo un semplice esempio:
Public Sub Main() Dim fl As File Dim s As String Dim p As Pointer Dim st As Stream fl = Open "/percorso/del/file/da/leggere" For Read Read #fl, s, -256 ' Viene allocata una quantità di memoria sufficiente a contenere i dati del file: p = Alloc(CInt(Lof(fl))) st = Memory p For Write ' Si procede a scrivere i dati del file attualmente contenuti dalla variabile Stringa: Write #st, s ' Qui vengono poste le istruzioni che utilizzano la memoria allocata. ...... ...... ' Viene liberata la memoria precedentemente allocata, chiusi il flusso ed il file: Free(p) st.Close fl.Close End