Ciao, dipende da dove vuoi salvarlo, se su ub file di testo o un database..
Se vuoi salvarlo in un file di testo l'esempio è questo
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 #hFile
end
public 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 #hFile
end
Facci sapere come vuoi fare che ti aiutiamo, ciao
E si.. in una textarea possono esserci più righe...
Non ho mai affrontato questo problema, ma non disperare adesso arriva la cavalleria :-) . Sono sicuro che il buon Cescho ha la soluzione.
Intanto se ti serve per salvare più dati nello stesso file basta che aggiungi e vai a leggere su più righe, così
'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
Ciao
si può caricare un testo in una text area ache così:
textarea1.text=file.load(percorso_file/nomefile)
e salvare il testo in un file così:
file.save(textarea1.text,percorso_file/nomefile)