Mentre trovo esempi di come si legge un file di testo, non trovo in giro codice di come ci si possa scrivere. Ho provato ad esempio il codice seguente che si propone di scrivere 10 righe di prova con lo stesso testo, ma non funziona e non trovo informazioni che mi aiutino
PUBLIC SUB scrittura_txt()
DIM hFile AS Stream
DIM conta AS Integer
hFile = OPEN "testo.txt" FOR WRITE '
FOR conta = 0 TO 10
PRINT #hFile, "FFFFFF"
NEXT
CLOSE #hFile
CATCH
message.Info("Impossibile aprire il file")
TRY CLOSE #hFile
END
Mi sapete correggere l'errore? Grazie.
potresti usare anche la propietà Dialog.ti darà il percorso per poter aprire e/o salvare un file.esempio per aprire :
PUBLIC FileAbre AS File
PUBLIC SUB _new()
''''''''''''''''''
END
PUBLIC SUB Form_Open()
ME.Center
END
PUBLIC SUB Button1_Click()
DIM Linea AS String
TextArea1.Text = NULL
Dialog.Path = "/home"
IF Dialog.SaveFile() THEN RETURN
OPEN (Dialog.Path) FOR READ AS #FileAbre
WHILE NOT Eof(FileAbre)
LINE INPUT #FileAbre, Linea
TextArea1.Text &= Linea & "\n"
WEND
CLOSE #FileAbre
CATCH
Message.Info(Error.Text)
END
PUBLIC FileAbre AS File '<--- dichiara la variabile come class File per leggere un file
PUBLIC SUB Button1_Click()
DIM Linea AS String '<--- dichiaro la variabile che farà di vettore
TextArea1.Text = NULL '<- cancello tutto quello che si trova nel controllo di testo
Dialog.Path = "/home" '<-- dico alla propietà .Path di posizionarsi su /home
IF Dialog.OpenFile() THEN RETURN '<--- se clicco anulla,esco senza danni
OPEN (Dialog.Path) FOR READ AS #FileAbre '<---- apro il file del percorso in lettura
WHILE NOT Eof(FileAbre) '<-- loop finché non trovo la fine del file
LINE INPUT #FileAbre, Linea '<-- il vettore prende l'informazione del rigo
TextArea1.Text &= Linea & "n" '<-- aggiungo al controllo testo l'informazione e vado a capo
WEND '<-- al prossimo,se c'è......
CLOSE #FileAbre '<--- chiudo il file
CATCH '<--- se c'è un errore
Message.Info(Error.Text) '<--- me lo dice lui
END
DIM stringa AS String
DIM hfile AS File
DIM nome AS String
nome = user.Home & "/testo.txt"
OPEN nome FOR READ CREATE AS #hfile
CLOSE #hFile
stringa ="pippo"
file.Save(nome, stringa)
lo uso solo per salvare una riga solitamente contenente un array che utilizzo per
le configurazioni
OPEN nome FOR READ CREATE AS #hfile
CLOSE #hFile
con questo creo il file , se già esistente lo sovrascrivo
questo esempio è solo un modo diverso di scrivere in file da quelli proposti dagli altri utenti.
Per me in alcune accasioni è molto più comodo.
puoi provare a vedere che succede dopo aver creato il file a dare 2 istruzioni di file.save per vedere se il testo viene sovrascritto o aggiunto!