Italian salva con nome

saslvovc

Member
Licensed User
Eccomi di nuovo
E possibile salvare un file di testo tipo Salva con nome indicando Cartella dove salvare file.
E Possibile Leggerlo dalla stessa cartella.
O cerca ma non trovo nulla nel forum tranne il metodo tradizionale.
 

saslvovc

Member
Licensed User
io faccio cosi.
B4X:
Sub Salva()

    Dim Salva As TextWriter
  
    Salva.Initialize(File.OpenOutput(File.DirRootExternal, "Bolle.txt", False))
    For i = 0 To ListView1.Size - 1
      Salva.WriteLine(ListView1.GetItem(i))
    Next
    Salva.Flush ' per sicurezza
    Salva.Close

End Sub
questa procedura mi va scrivere solo sul file Bolle.txt se voglio cambiare nome o cartella di destinazione come fare.

Vorrei che quando vado a cliccare Salva mi dia una DialogBox dove salvare il file con nome.
Tipo come salva con nome che si trova nei menu delle Applicazioni
 

LucaMs

Expert
Licensed User
io faccio cosi.
B4X:
Sub Salva()

    Dim Salva As TextWriter
 
    Salva.Initialize(File.OpenOutput(File.DirRootExternal, "Bolle.txt", False))
    For i = 0 To ListView1.Size - 1
      Salva.WriteLine(ListView1.GetItem(i))
    Next
    Salva.Flush ' per sicurezza
    Salva.Close

End Sub
questa procedura mi va scrivere solo sul file Bolle.txt se voglio cambiare nome o cartella di destinazione come fare.

Vorrei che quando vado a cliccare Salva mi dia una DialogBox dove salvare il file con nome.
Tipo come salva con nome che si trova nei menu delle Applicazioni
Basta che passi il nome della cartella di destinazione e il nome del file alla routine Salva.
(Sarebbe meglio usare la DirDefaultExternal, che è la cartella che contiene la tua app e che è accessibile soltanto alla tua app, non alle altre).

Per richiedere all'utente in quale directory salvare e con quale nome, puoi trovare esempi sul sito.
(oppure aspettare domani, che ti faccio trovare un esempio completo ;))

B4X:
Sub Salva(Dir As String, NomeFile As String)

    Dim Salva As TextWriter
 
    Salva.Initialize(File.OpenOutput(Dir, NomeFile, False))
    For i = 0 To ListView1.Size - 1
      Salva.WriteLine(ListView1.GetItem(i))
    Next
    Salva.Flush ' per sicurezza
    Salva.Close

End Sub
 

saslvovc

Member
Licensed User
scusa ho scaricato ma non lo avevo provato per lavoro.
ora ho provato mi da errore.
DIR:
storage/emulated/legacy/miacartella/Pippo: open failed: EACCES(PERMISSION DENIED)
grazie comunque sempre per tua disponibilità.
 

saslvovc

Member
Licensed User
Forse la domanda non era molto chiara di cosa volevo realizzare ma
Lavorandoci sopra,e prendendo spunto dal tuo esempio o risolto Cosi:

B4X:
Sub SalvaDati

Dim Salva As TextWriter
Dim Id As InputDialog
Dim ret As Int
'Id.PasswordMode = True
'Id.InputType = Id.INPUT_TYPE_DECIMAL_NUMBERS
'Id.InputType = Id.INPUT_TYPE_NUMBERS
'Id.InputType = Id.INPUT_TYPE_PHONE
Id.Input = ""
Id.Hint = "Inserire Nome File!"
Id.HintColor = Colors.ARGB(196, 255, 140, 0)
ret= DialogResponse.POSITIVE
ret=Id.Show("Inserire il testo richiesto", "Previsioni Calcio", "SI", "No","",Null)
  If ret = DialogResponse.POSITIVE Then
  Salva.Initialize(File.OpenOutput(File.DirDefaultExternal, Id.Input& ".txt", False))
    For i = 0 To ListView1.Size - 1
      Salva.WriteLine(ListView1.GetItem(i))
    Next
    Salva.Flush ' per sicurezza
    Salva.Close
        Msgbox("FILE" & " " & Id.Input & " SALVATO", "Salva File")
    Else
        Return False
    End If

End Sub
Grazie Salvatore
 
Top