Daten speichern, um text-Kachel mit SaveFileDialog?

Habe ich schon gesehen das MSDN-Beispiel aber ich habe noch immer Probleme.

Erstellte ich ein super-einfaches Programm für das multiplizieren von zwei zahlen, und die Anzeige der Ausgabe in der textbox. Jetzt muss ich Lesen können, dass der text im Feld Wert, und legen Sie den Wert in eine text-Datei, die als Datei speichern dialog, wenn die "Speichern" - button geklickt wird.

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

Derzeit Visual Studio ist mir ein Fehler: Overload resolution failed because no accessible 'WriteAllText' accepts this number of arguments.

InformationsquelleAutor Matt | 2013-03-14

  1. 4

    WriteAllText statische Methode benötigt den Namen der Datei, wo die Daten geschrieben werden sollten.

    Sie verwenden könnten, direkt gewählten Namen in der saveFileDialog1

    If saveFileDialog1.ShowDialog() = DialogResult.OK Then
    System.IO.File.WriteAllText(saveFiledialog1.FileName, Answerbox.Text)
End If

    stattdessen, wenn Sie wirklich wollen, verwenden Sie die stream geöffnet OpenFile () - Methode, die Ihr code sollte

       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

    Code ist ein Beispiel, musst du noch ein bisschen Fehlerbehandlung

    Danke, das scheint behoben haben.
    Steve, das perfekt funktioniert, aber dieses immer überschreibt Daten. Wie zum anfügen von text an das Ende der Datei?
    href="https://msdn.microsoft.com/en-us/library/ms143356(v=vs. 110).aspx" > "Datei".AppendAllText
    oder verwenden Sie einen anderen StreamWriter-Konstruktor
    Steve, danke für so schnelle Antwort! Ich kann nicht herausfinden, wie zu verwenden StreamWriter-Konstruktor mit dem saveFileDialog: saveFileDialog.OpenFile() gibt Strom, aber SW-Konstruktor string als argument! Ich verstehe nicht, wie man erstellen Konstruktor für Strom. Können Sie zeigen einige Beispiel?

    InformationsquelleAutor Steve

  2. 1

    Hallo, ich habe versucht obige Verfahren, aber es gelingt auf diese Weise....

    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

    InformationsquelleAutor DEV RAJ

Schreibe einen Kommentar