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
Basta che passi il nome della cartella di destinazione e il nome del file alla routine Salva.io faccio cosi.
questa procedura mi va scrivere solo sul file Bolle.txt se voglio cambiare nome o cartella di destinazione come fare.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
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
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
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