In questa nuova lezione del corso base di Gambas vedremo come creare un blocco note basilare che ci permetterà di creare un file di testo e di aprirlo successivamente. Attenzione: questa lezione è strettamente collegata alla precedente
Come prima cosa trasciniamo nella nostra finsetra (FMain) una TextArea e due Buttons dal menù Form [IMG. 1]. Poi clicchiamo per due volte sul pulsante che farà eseguire il salvataggio nostro file e scriviamo nell’evento Click di quest’ultimo:
File.Save("/tmp/esempio.txt", TextArea1.Text)
Così facendo salveremo il file “esempio.txt” che avrà come contenuto il testo della TextArea1 nella directory “/tmp/”. Ovviamente tutti questi parametri sono variabili a seconda delle vostre preferenze/esigenze.
Passando, invece alla fase di apertura di un file eseguiamo il solito doppio click sul Button che vogliamo permetta l’apertura di un file e scriviamo:
Dim fl As File Dim s$ As String fl = Open "/tmp/esempio.txt" For Read While Not Eof(fl) Read #fl, s$, -256 * TextArea1.Text = s$ & "\n" Wend fl.Close
Così facendo abbiamo usato un flusso di informazioni per permettere al nostro blocco note di leggere il file da noi precedentemente salvato e di mostrarne il testo nella TextArea
*NB: In Gambas 3 alla specificazione di un numero negativo nel terzo elemento dell’istruzione Read verrà letta una quantità di byte per volta, indicata dal valore -n di tipo 8bit, che di fatto non supera la fine del file, evitando così l’errore “End of file” tipico di quando si cerca di leggere un file tramite un flusso. La combinazione di quel valore negativo con il ciclo While/Wend permette di leggere l’intero file senza provocare quell’errore.
Bene, ora sarete lieti di testare la vostra creazione 🙂 !
Author: DevGeek
Sono Gabriele Lobello, un ragazzino 13enne di Francavilla Fontana, una cittadina della provincia di Brindisi, e la mia passione è l’informatica (la programmazione in particolare)!
Conosco molto bene il linguaggio Gambas e il JavaScript (e sto studiando per arrivare allo stesso livello con Python).
Ho sviluppato un applicazione gratuita (www.meandiabetes.com) e utile alla corretta gestione del diabete (di tipo 1), disponibile su sistemi Android, GNU/Linux e Windows.
Scrivo articoli anche per il mio blog personale (devgeek.altervista.org)
