如何保存RichTextBox多行内容

Question

将RichTextBox里面的文本（多行）以如下方式写入文件后，打开文件，发现未换行，该如何解决？
                Dim xsyb As New FileStream(Save_Path & "\" & File_Name, FileMode.Create)
              Dim str As New StreamWriter(xsyb)
              str.WriteLine(RichTextBox1.Text)
该换行的位置都显示为一个小黑方块？

Answer 1

记事本打开是上面的情况，写字板打开能正常换行，但有些文件会乱码？
同是保存为的.txt文件

Answer 2

那个小黑块只有在记事本里才会显示，复制到其他程序比如word和写字板之类的地方都相当于是回车换行有没有知道该怎么解决啊？？？

Answer 3

RichTextBox里面的文本（多行)
是什么数据贴出来'这样可以把RichTextBox里的数据全部保存到   记事本中
Private Sub Command1_Click()
Dim sFile As String
Open "c:\1.txt" For Output As #1
Print #1, RichTextBox1.Text
Close #1
MsgBox "你的数据已录入"
End Sub

Answer 4

richtextbox里的数据是从一个普通文本文档读入的，读入能正常换行，修改后再写回去就不行了

Answer 5

Private Sub Command1_Click()
RichTextBox1.Text = ""
Dim sFile As String
Open "c:\1.txt" For Binary As #1
sFile = Space(LOF(1))
Get #1, , sFile
Close #1
RichTextBox1.Text = sFile
Open "c:\2.txt" For Output As #2   '如果你想再写回到1.TXT中的文件尾可以把这句改成 Open "c:\1.txt" For Append As #2
Print #2, RichTextBox1.Text
Close #2
MsgBox "你的数据已录入"
End Sub是这样吗?

Answer 6

Private Sub Command_Click()
Dim intFilenum As Integer, amsg
intFilenum = FreeFile()
CommonDialog1.Filter = "文本文件(*.text)|*.txt"
CommonDialog1.ShowSaveIf CommonDialog1.FileName = "" Then
  amsg = MsgBox("请输入文件名称！", vbCritical Or vbOKCancel)
   
   If amsg = vbCancel Then
     Exit Sub
     Else
     CommonDialog1.ShowSave
   End If
End IfOpen CommonDialog1.FileName For Output As #1
Print #1, RichTextBox1.Text
Close #1End Sub

Answer 7

 Dim xsyb As New FileStream(Save_Path & "\" & XSYB_File, FileMode.Create)
 Dim str As New StreamWriter(xsyb)
 Dim TempString As String
 TempString = RichTextBox1.Text
 TempString = Replace(TempString, vbCrLf, vbLf)          '将   回车符+换行符   替换成   换行符
 TempString = Replace(TempString, vbCr, vbLf)            '将   回车符          替换成   换行符
 TempString = Replace(TempString, vbLf, vbCrLf)          '将   换行符          替换成   回车符+换行符
 str.WriteLine(TempString)
 str.Close()
 xsyb.Close()最后我是以上面的方式写入的，但是最后面会多出一个回车换行

Answer 8

Private Sub Command1_Click()
Dim TempString As String
Dim arr() As String
TempString = RichTextBox1.Text
TempString = Left(TempString, Len(TempString) - 2)
Open "c:\1.txt" For Append As #1
Print #1, TempString
Close #1
MsgBox "你的数据已录入"
End Sub

Answer 9

楼上的方法我试过了，不可行，不但没去掉最后的回车换行，反而删掉了最后两个字符，我用的是VB2005                Dim xsyb As New FileStream(Save_Path & "\" & XSYB_File, FileMode.Create)
                Dim str As New StreamWriter(xsyb)
                Dim TempString As String
                TempString = RichTextBox1.Text
                TempString = Replace(TempString, vbCrLf, vbLf)          '将   回车符+换行符   替换成   换行符，防止误操作
                TempString = Replace(TempString, vbCr, vbLf)            '将   回车符          替换成   换行符
                TempString = Replace(TempString, vbLf, vbCrLf)          '将   换行符          替换成   回车符+换行符
                '以上三句是为了防止存储文件后不换行，而在换行处出现小黑方块的问题
                str.WriteLine(Microsoft.VisualBasic.Left(TempString, Len(TempString) - 2))
                str.Close()
                xsyb.Close()

Answer 10

RichTextBox自己有保存方法的啊.
直接给文件名和保存的类型就可以了.