Enregistrer les Données dans un texte tuile à l'aide d'SaveFileDialog?

J'ai déjà vu la MSDN Exemple mais je suis toujours avoir des problèmes.

J'ai créé un super-programme simple pour multiplier deux nombres, et afficher le résultat dans la zone de texte. Maintenant, j'ai besoin d'être en mesure de lire ce texte en valeur de la zone et de mettre la valeur dans un fichier texte, à l'éducation de l'enregistrer dans un fichier boîte de dialogue lorsque l' "Enregistrer le Fichier" bouton est cliqué.

Private Sub MutiplyBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MutiplyBtn.Click
    Dim FirstNum As Double = Num1.Text
    Dim SecondNum As Double = Num2.Text
    Dim Answer2 As Double = FirstNum * SecondNum
    Answerbox.Text = Answer2
End Sub

Private Sub SaveResultToFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveResultToFile.Click
    Dim myStream As Stream
    Dim saveFileDialog1 As New SaveFileDialog()

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

    If saveFileDialog1.ShowDialog() = DialogResult.OK Then
        myStream = saveFileDialog1.OpenFile()
        If (myStream IsNot Nothing) Then
            System.IO.File.WriteAllText(Answerbox.Text)
            myStream.Close()
        End If
    End If
End Sub

Actuellement, Visual Studio me donne une erreur: Overload resolution failed because no accessible 'WriteAllText' accepts this number of arguments.

OriginalL'auteur Matt | 2013-03-14

4

WriteAllText méthode statique exige que le nom du fichier dans lequel les données doivent être écrites.

Vous pouvez utiliser directement le nom sélectionné dans la saveFileDialog1
```
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
    System.IO.File.WriteAllText(saveFiledialog1.FileName, Answerbox.Text)
End If
```
à la place si vous voulez vraiment utiliser le flux ouvert par OpenFile() la méthode de votre code devrait être
```
   If saveFileDialog1.ShowDialog() = DialogResult.OK Then
        Dim sw As StreamWriter = new StreamWriter(saveFileDialog1.OpenFile())
        If (sw IsNot Nothing) Then 
            sw.WriteLine(Answerbox.Text)
            sw.Close()
        End If 
    End If 
```
Le code est un exemple, vous devez ajouter un peu d'erreur de manipulation

Merci à vous, qui semble avoir fixé.
Steve, qui fonctionne parfaitement, mais c'est toujours écrase les données. Comment ajouter du texte à la fin du fichier?
href="https://msdn.microsoft.com/en-us/library/ms143356(v=vs. 110).aspx" >Fichier.AppendAllText
ou utiliser un autre StreamWriter constructeur
Steve, je vous remercie donc pour la réponse rapide! Je ne peux pas comprendre comment utiliser StreamWriter Constructeur avec le saveFileDialog: saveFileDialog.OpenFile() renvoie Flux, mais SW Constructeur prend chaîne comme argument! Je ne comprends pas comment créer constructeur de flux. Pouvez-vous me montrer un exemple?

OriginalL'auteur Steve

Salut, j'ai essayé la méthode ci-dessus, mais je réussir de cette façon....

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt"
      If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
      Then
         My.Computer.FileSystem.WriteAllText _
         (SaveFileDialog1.FileName, RichTextBox1.Text, True)
      End If
End Sub

OriginalL'auteur DEV RAJ

Vous devez vous connecter pour publier un commentaire.