Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/reporting-services/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将Richtextbox保存为.txt,但格式与vb.net2010相同_Vb.net - Fatal编程技术网

将Richtextbox保存为.txt,但格式与vb.net2010相同

将Richtextbox保存为.txt,但格式与vb.net2010相同,vb.net,Vb.net,当我单击save按钮时,richtextbox1的输出将保存在.txt中,但我的问题不是richtextbox1中的所有格式都不是我保存的.txt中的desame。如何解决这个问题 Private Sub ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ADD.Click RichTextBox1.AppendText(OutputTstm.Text & "

当我单击save按钮时,richtextbox1的输出将保存在.txt中,但我的问题不是richtextbox1中的所有格式都不是我保存的.txt中的desame。如何解决这个问题

Private Sub ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ADD.Click       
    RichTextBox1.AppendText(OutputTstm.Text & " " & vbNewLine)
    RichTextBox1.AppendText("*********************" + vbNewLine)      
End Sub

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
    Dim isave As New SaveFileDialog

    isave.Filter = "txt files (.txt) |*.txt"
    isave.FilterIndex = 2
    isave.RestoreDirectory = False

    If isave.ShowDialog = DialogResult.OK Then
        IO.File.WriteAllText(isave.FileName, RichTextBox1.Text)
    End If
End Sub

!![Richtextbox1 to Notepad][1]ck.imgur.com/Lw6gz.png

RichTextBox的
文本
与常规
文本框的
文本
一样。它是
Rtf
属性,它包含所有的标记以及所有的格式

问题是,您不需要使用这两个属性将内容保存到文件中。
RichTextBox
有一个
SaveFile
方法,可用于保存纯文本或富文本格式(RTF)

有一个相应的
LoadFile
方法将文件读入控件


此外,如果要保存rtf而不是纯文本,则应使用“.rtf”扩展名而不是“.txt”。

RichTextBox类中有一个函数,允许保存文件而无需使用StreamReader

它是
RichTextBox.SaveFile()
。 此函数需要一些参数,您需要的参数是
RichTextBox.SaveFile(文件名为String,文件类型为RichTextBoxStreamType)


使用这些参数,您需要的代码是
RichTextBox1.SaveFile(isave.FileName,RichTextBoxStreamType.PlainText)

我已经修复了您的代码格式。现在请修复你的图像。发布问题时,系统会出于某种原因为您提供预览。请不要提交,如果预览表明你没有进入一个明确的职位。