vb.net - RichTextBox からファイルへ/からデータを保存/ロードする方法

Question

複数のフォント名、色、背景色、サイズのテキストを入力するための Richtextbox があります。

セーブして同じ設定でロードしたい。

Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
    SaveFileDialog1.Filter = "TextFile (*.txt;*.rtf)|*.txt;*.rtf|Batch File (*.bat)|*.bat|All Files (*.*)|*.*"
    SaveFileDialog1.FileName = "Untitled"
    If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim a() As String = SaveFileDialog1.FileName.Split("\")
        Dim sw As New StreamWriter(SaveFileDialog1.FileName)
        sw.Write(RichTextBox1.Text)
        My.Settings.Save()
        sw.Close()
    End If
End Sub

Answer 1

RichTextBox.SaveFile メソッドを使用する

Answer 2

このコードを使用して読み取ることができます。

RichTextbox1.text = System.IO.File.ReadAllText(openfilepath)

そして、これは書くためのものです：

System.IO.File.WriteAllText(Savefiledialog1.FileName, Richtextbox1.text)

それが役立つことを願っています。

Answer 3

保存と名前を付けて保存には違いがあります

保存用コード

 Private Sub SaveToolStripMenuItem_Click(sender As Object, e AsEventArgs) Handles SaveToolStripMenuItem.Click

 If Me.Text = "Untitled" Then

            Try
                 RichTextBox1.SaveFile(OpenFileDialog1.SafeFileName)
                 RichTextBox1.Modified = False
             Catch ex As Exception
                SaveAsToolStripMenuItem.PerformClick()
             End Try
         ElseIf Me.Text = OpenFileDialog1.SafeFileName Then
             Try
                 RichTextBox1.SaveFile(OpenFileDialog1.FileName)
                 RichTextBox1.Modified = False
             Catch ex As Exception
                 SaveAsToolStripMenuItem.PerformClick()
            End Try
        ElseIf Me.Text = SaveFileDialog1.FileName Then
            Try
                 RichTextBox1.SaveFile(SaveFileDialog1.FileName)
                 RichTextBox1.Modified = False
            Catch ex As Exception
                 SaveAsToolStripMenuItem.PerformClick()
            End Try
  End If

End Sub

名前を付けて保存のコード

Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveAsToolStripMenuItem.Click

        Try
            If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                RichTextBox1.SaveFile(SaveFileDialog1.FileName)
                Me.Text =SaveFileDialog1.FileName
                RichTextBox1.Modified = False
            End If
        Catch ex As Exception
            MsgBox("The file cannot be saved", MsgBoxStyle.Critical, "Save")
        End Try

 End Sub