Italian salva con nome

[saslvovc]

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.

 

[androidappl]

Ciao,

File.Write{list|string|etc} ({path del file},{Nome file Test},{contenuto che vuoi salvare})

file.read, più o meno gli stessi parametri, leggi il contenuto del file.

Cmq appena scrivi file.{ti escono tutte le cose che puoi fare}

 

[saslvovc]

io faccio cosi.

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

 

[androidappl]

Ok devi scaricarti una libreria stile file manager, che quando clicchi su salva apri questo "file manager" e una volta aperto dove clicchi restituisce la path e la metti al posto di
"File.DirRootExternal".

 

[LucaMs]

io faccio cosi.

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 )

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]

ok,aspetto domani

 

[LucaMs]

Siamo a domani (5:48 !!!)

I colori fanno un po'... vedi tu.

 

[LucaMs]

Siamo a domani (5:48 !!!)

I colori fanno un po'... vedi tu.

Ok, funziona, grazie @LucaMs

 

[saslvovc]

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]

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

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