enregistrez une chaîne en tant que fichier csv?

Question

dans un winform comment puis-je obtenir l'une de ces fenêtres fantaisie "enregistrer le fichier sous" dialogues à apparaître de sorte que l'utilisateur peut enregistrer une chaîne en tant que fichier à un emplacement spécifié par l'utilisateur sur leur disque dur?

Answer 1

Dim myString = "Hello world!" 
Dim saveFileDialog As New SaveFileDialog() 
saveFileDialog.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" 
saveFileDialog.FilterIndex = 2 
saveFileDialog.RestoreDirectory = True 

If saveFileDialog.ShowDialog() = DialogResult.OK Then 
    If saveFileDialog.FileName <> "" Then 
     System.IO.File.WriteAllText(saveFileDialog.FileName, myString) 
    End If 
End If 

Il n'y a pas grand-chose. Spécifiez les types de fichiers à enregistrer sous (dans un format assez mystérieux, consultez les docs de la propriété Filter pour en savoir plus), puis affichez la boîte de dialogue et a) récupérez le flux dans lequel écrire (comme illustré ici) avec la méthode OpenFile ou récupérez le nom de fichier sélectionné avec la propriété FileName.

Consultez les documents sur MSDN pour plus d'informations.

Answer 2

Recherchez le SaveFileDialog.

Answer 3

Voici un exemple de mon projet. Je lance le SFD dans le dossier mes documents de l'utilisateur car il y a un accès en écriture garanti.

SaveFileDialog sfd = new SaveFileDialog(); 
sfd.FileName = suggestedName + ".csv"; 
sfd.Title = "Choose Location For CSV"; 
sfd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments); 
if (sfd.ShowDialog() != DialogResult.OK) 
{ 
    return; 
} 
string outputFileName = sfd.FileName; 

Answer 4

oh ok, alors je devrais reformuler ma question. à l'exécution, je crée une chaîne et je veux enregistrer cette chaîne en tant que fichier. Comment puis-je faire cela?

Dim theStringToSave as String = "some string here" 
Dim sfd As New SaveFileDialog() 

sfd.Filter = "txt files (*.txt)|*.txt|(*.csv)|*.csv|All files (*.*)|*.*" 
sfd.FilterIndex = 2 
saveFileDialog1.RestoreDirectory = True 

If saveFileDialog1.ShowDialog() = DialogResult.OK Then 
    File.WriteAllText(sfd.FileName, theStringToSave) 
End If