19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
public sub salvafile() DIM hFile AS File IF NOT Exist(User.Home & "/Dati.txt") THEN hFile = OPEN User.Home & "/Dati.txt" FOR CREATE ELSE hFile = OPEN User.Home & "/Dati.txt" FOR WRITE END IF PRINT #hFile, tuatextarea.text CLOSE #hFileendpublic sub leggifile() DIM hFile AS File IF NOT Exist(User.Home & "/Dati.txt") THEN tuatextarea.text = "Vuoto" ELSE hFile = OPEN User.Home & "/Dati.txt" FOR INPUT LINE INPUT #hFile, tuatextarea.text ENDIF CLOSE #hFileend
'scrivi PRINT #hFile, textbox1.text PRINT #hFile, textbox2.text PRINT #hFile, textbox3.text 'leggi LINE INPUT #hFile, textbox1.text LINE INPUT #hFile, textbox2.text LINE INPUT #hFile, textbox2.text
Golia ha scritto:Non ho mai affrontato questo problema, ma non disperare adesso arriva la cavalleria :-) . Sono sicuro che il buon Cescho ha la soluzione.
textarea1.text=file.load(percorso_file/nomefile)
file.save(textarea1.text,percorso_file/nomefile)