["risolto"(...)]creare e gestire un file di testo

[simo97]

vorrei sapere come creare un file in un dato percorso e leggerne i dati etc..
dalla wiki non ho capito molto purtroppo..

e un altra cosa
se avviando il progetto da gambas il codice criede di creare un file nella home, esso può essere gestito in fase di collaudo del programma??
grazie in anticipo

[fsurfing]

un modo semplice per creare un file di testo è questo:

Codice: [Seleziona]

dim s as string

s= "testo prova"

file.save(s, user.home  & "/prova.txt")

per leggerlo:

Codice: [Seleziona]

dim s as string

s= file.load(user.home  & "/prova.txt")

textarea1.text=s

poi esite un modo utilizzando gli strem e le funzini oPEN READ, ma lacio che te le spieghi chi le usa + di me

se avviando il progetto da gambas il codice criede di creare un file nella home, esso può essere gestito in fase di collaudo del programma??
grazie in anticipo

che intendi?

[simo97]

grazie mille 

comunque intendevo se in fase di progettazione(quindi il programma parte da gambas con esegui)
e tipo un pulsante crea un file di testo sulla home una volta chiuso il programma il file rimane o viene cancallato oppure non viene neppure crealto era questo il dubbio...

[simo97]

ho provato il codice per creare il txt in un pulsante ma mi da "not an object"

ho modificato un pò e mi da "access forbidden"
(ora ho capito... il programma non può creare file nella home ma solo nella sua cartella)

  non ci sto capendo niente...

[naderit]

ciao
Per creare un file, con qualunque estensione:

Codice: gambas [Seleziona]

Dim filepws As File
filepws = Open Application.Path & "/miofile.dat" For Create  'per creare file
Print #filepws, TextBox2.Text 'metodo print per scrivere nel file appena creato
Close #filepws 

per leggere in modo sequenziale un file

Codice: gambas [Seleziona]

 Dim fileurl As File
 Dim dato As String
 
 ListBox1.Clear

  fileurl = Open Application.Path & "/miofile.dat" For Input
  While Not Eof(fileurl)
  Line Input #fileurl, dato
  ListBox1.Add(dato)
  Wend
  Close #fileurl

per aggiungere al file un stringa dati

Codice: gambas [Seleziona]

Dim fileurl As File

fileurl = Open Application.Path & "/link.dat" For Append ' aggiungere una stringa 
Print #fileurl, TextBox1.Text
Close #fileurl

[simo97]

benissimo grazie a tutti
ora funziona!!
se avrò altro da chiedere (molto probabilmente...) chiederò qui 

[simo97]

per l'assunzione dei dati lidevo inserire in una text area ma ho notato che mi carica solo l'ultima riga del file
come posso caricare tutto il file così com'è(mantenendo gli invii) e trasferirlo in una text area??

[Top Fuel]

Prova ad usare l'istruzione READ al posto di Line Input, una cosa tipo:

Stringa = Read #Nomefile As String

Per poi copiarla nella TextArea.

[vuott]

un modo semplice per creare un file di testo è questo:

Codice: [Seleziona]

dim s as string

s= "testo prova"

file.save(s, user.home  & "/prova.txt")

Mi permetto, solo ai fini di non lasciare l'errore materiale di scambio di posizioni, di segnalare che - appunto - i parametri della funzione ''.Save()'' vanno invertiti:

Codice: gambas [Seleziona]

   File.Save(FileName As String, Data As String )

[Top Fuel]

Simo97 si lamenta  che Line Input gli legge solo l'ultima riga.
Con Read il file viene letto in maniera binaria e scritto così com'è nella stringa, magari potrebbe funzionare.

[vuott]

Simo97 si lamenta  che Line Input gli legge solo l'ultima riga.
Con Read il file viene letto in maniera binaria e scritto così com'è nella stringa, magari potrebbe funzionare.

Capisco... ma ritengo che il problema sia nell'assegnazione dei dati alla TextArea. Nel senso che dovrebbe assegnare alla TextArea quel che già è stato assegnato alla TextArea medesima + la nuova riga di dati letti da inserire:

Codice: gambas [Seleziona]

 TextArea1.Text = TextArea1.Text & nuova_riga_letta_da_inserire

[simo97]

ok ora non fate a botte
il problema è che con questo

Codice: [Seleziona]

 dim tx as sting
t = TextBox1.Text
 txt = Open Application.Path & "/dati/" & t & ".dat" For Input  
 While Not Eof(txt)  
 Line Input #txt, tx  
 TextArea1.Text = tx  
 Wend
 Close #txt 

mi carica solo l'ultima riga del file

ora provo

[pastrank]

mi carica solo l'ultima riga del file

Il codice legge una riga alla volta.
Assegna il valore letto ad una proprieta' della textarea, ad ogni riga.
Chiaro che rimane solo l'ultima.
Quindi devi usare una variabile di appoggio dove "sommare" il tutto e solo alla fine settare il valore della textarea. Chiaro che con file.load() faresti prima e meglio.

[vuott]

Il codice legge una riga alla volta.
Assegna il valore letto ad una proprieta' della textarea, ad ogni riga.
Chiaro che rimane solo l'ultima.
Quindi devi usare una variabile di appoggio dove "sommare" il tutto e solo alla fine settare il valore della textarea.

Concordo con pastrano, per questo ti avevo suggerito, volendo usare Line Input, di assegnare ogni riga alla TextArea così in base al tuo esempio:

Codice: gambas [Seleziona]

......
While Not Eof(txt)  
  Line Input #txt, tx  
  TextArea1.Text = TextArea1.Text & tx  
Wend
......

Chiaro che con file.load() faresti prima e meglio.

Concordo pienamente anche su questo.  

[simo97]

ho risolto così

Codice: [Seleziona]

dim txt as file 'il file
dim t,tx as string 'il percorso e il testo
t = TextBox1.Text
 txt = Open Application.Path & "/dati/" & t & ".dat" For Read   
 Read #txt, tx, Lof(txt)
 TextArea1.Text = tx  
 Close #txt 

datemi un parere...