保存txt文件时保存的RTF代码

时间:2018-06-03 12:24:26

标签: vb.net richtextbox rtf

我正在开发一个VB.NET项目。

我有一个richtextbox和一个按钮来保存我写的内容。

但是当我打开文件时,我看到了:

enter image description here 我想只显示文本“ilyasscj isjdivs”,而不是所有的RTF代码。

这是我的代码:

Private Sub EnsregistrerSousToolStripMenuItem_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
EnsregistrerSousToolStripMenuItem.Click
    SaveFileDialog1.InitialDirectory = "c:\"
    SaveFileDialog1.Filter = "Texte|*.txt|RTF|*.rtf|Tous|*.*"
    SaveFileDialog1.Title = "enregistrer un fichier"
    If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        fich = SaveFileDialog1.FileName
        RichTextBox1.SaveFile(fich)
    End If
End Sub

Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
EnregistrerToolStripMenuItem.Click
    If fich = "" Then
        SaveFileDialog1.InitialDirectory = "c:\"
        SaveFileDialog1.Filter = "Texte|*.txt|RTF|*.rtf|Tous|*.*"
        SaveFileDialog1.Title = "enregistrer un fichier"
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            fich = SaveFileDialog1.FileName
            Try
                RichTextBox1.SaveFile(fich)
            Catch ex As Exception
                '    MsgBox(ex.Message)
            End Try
        End If

    Else
        Try
            RichTextBox1.SaveFile(fich)
        Catch ex2 As Exception
            MsgBox(ex2.Message)
        End Try

    End If
End Sub

我将不胜感激。

1 个答案:

答案 0 :(得分:0)

文档中描述了RichTextBox.SaveFile(String)预定义的行为:

  

将RichTextBox的内容保存为RTF格式(RTF)   文件。

如果在<input type="file" name="file" id="file" class="custom-input" /> <label for="file" class="custom-label">Browse...</label>中定义了更多格式选项,则还需要验证用户选择的格式,并指示SaveFileDialog方法在将输出流式传输到磁盘时使用该格式。
例如,使用SaveFile开关选择与用户选项对应的RichTextBoxStreamType(有关其他可能的fomat选项的含义,请参阅文档):

Select Case