Italian cancellare il contenuto di un file

T

tmtube73

Active Member
Licensed User
sbaglio qualcosa ma non capisco cosa

ho un edittext in cui scrivo testo a caso

poi un pulsante "salva" salva il file con questo codice:

B4X: 
Sub SalvaFile
    ScriviTxt.Initialize2(File.OpenOutput(File.DirInternal, "miei_dati.txt", True), "UTF8")
    ScriviTxt.Write(EditText1.Text)
    ScriviTxt.Close
End Sub

all'avvio dell'app carico il contenuto del file con questo codice:

B4X: 
Sub LeggiFile
    If File.Exists(File.DirInternal, "miei_dati.txt") = False Then
        xui.MsgboxAsync("Non ho trovato il file da leggere!", "Attenzione!")
        Return
    End If
    LeggiTxt.Initialize2(File.OpenInput(File.DirInternal, "miei_dati.txt"), "UTF8")
    EditText1.Text = LeggiTxt.ReadAll
    LeggiTxt.Close  
End Sub

un pulsante "cancella" dovrebbe eliminare il contenuto del file ma non funziona il codice errato è questo:

B4X: 
Sub SvuotaFile
    ScriviTxt.Initialize2(File.OpenOutput(File.DirInternal, "miei_dati.txt", True), "UTF8")
    EditText1.Text=""
    ScriviTxt.Write(EditText1.Text)
    ScriviTxt.Close
End Sub

quando clicco il tasto "cancella" il contenuto della edittext viene cancellato correttamente ma al prossimo avvio della app viene nuovamente caricato il contenuto del file che non è stato cancellato

cosa sbaglio?
 
T

tmtube73

Active Member
Licensed User
ho un altro problema con questo codice

eseguo la app e nella edit text scrivo "ciao1"

esco dalla app poi rientro e carico "ciao1" sotto scrivo "ciao2" ed esco

al prossimo riavvio della app ottengo
ciao1ciao1
ciao2

come se il file non viene riscritto con il solo contenuto della seconda sessione, mi aspettavo infatti
ciao1
ciao2

forse devo eliminare il file ogni volta prima di salvarlo? credo funzioni ma non mi pare ottimale

consigli? grazie.
 

LucaMs

Expert
Licensed User
Longtime User
tmtube73 said:
ScriviTxt.Write(EditText1.Text)
Click to expand...
Quella riga appende (accoda) il testo scritto nella EditText.Text (ovvero una stringa vuota, nel tuo caso), non sostituisce il contenuto del file, in quanto hai aperto il writer con l'opzione Append impostata su True;
tmtube73 said:
ScriviTxt.Initialize2(File.OpenOutput(File.DirInternal, "miei_dati.txt", True), "UTF8")
Click to expand...

Potresti usare direttamente:
B4X: 
File.Delete(File.DirInternal, "miei_dati.txt")
 

Sagenut

Expert
Licensed User
Longtime User
Se vuoi eliminare il file prova con
File.Delete(File.DirInternal, "miei_dati.txt": 
File.Delete(File.DirInternal, "miei_dati.txt")
 

Sagenut

Expert
Licensed User
Longtime User
Abbiamo scritto quasi insieme. ?
 
T

tmtube73

Active Member
Licensed User
confermo cancellando il file prima di salvarlo funziona ma non mi pare la strada giusta

rettifico non avevo aggiornato la pagine e non avevo visto le vostre risposte ora guardo grazie a entrambi
 
T

tmtube73

Active Member
Licensed User
grazie molte è stato sufficiente impostare a false questa riga

B4X: 
ScriviTxt.Initialize2(File.OpenOutput(File.DirInternal, "miei_dati.txt", False), "UTF8")
 
You must log in or register to reply here.

Similar Threads

Italian File.Copy che sembra tenere bloccato un file
Replies
3
Views
784
MarcoRome
Italian [B4A] Il nome di una variabile non può coincidere con quello di una routine
2
Replies
23
Views
5K
Giorgio Brausi
N
Italian Cancellare un file
Replies
14
Views
2K
LucaMs
D
Italian Leggere celle in file .xlsm
Replies
0
Views
1K
demetrio
D
Italian Riordinare un file
Replies
13
Views
2K
sirjo66
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…