如何在vb.net中将文本从richtext框保存到文本文档

Question

我从richtextbox获取价值，我想将其保存在新的文本文档中

我想在富文本框中写入文本文档中保存富文本框的文本，但它存储如图所示

我的代码

Using Sw As StreamWriter = File.CreateText(path)
            Dim number As String = RichTextBox1.Text
            Sw.WriteLine(number)

        End Using

请帮忙

Answer 1

这里的问题是TextBox和RichTextBox控件都使用 LF （换行）作为换行格式，但是Windows的换行格式实际上是 CR + LF （回车 +换行符），这是Notepad所期望的。

换行符在那里，记事本只是不渲染它们。

要解决此问题，您可以在保存之前用Environment.NewLine（适应当前系统）替换所有LF：

Dim number As String = RichTextBox1.Text.Replace(vbLf, Environment.NewLine)
Sw.Write(Number)

...或者您可以使用StreamWriter.WriteLine()方法（使用CR + LF换行）来逐行保存：

Using Sw As StreamWriter = File.CreateText(path)
    For Each Line As String In RichTextBox1.Lines
        Sw.WriteLine(Line)
    Next
End Using

了解详情：

• Newline - Wikipedia（换行）

• Carriage return - Wikipedia

Answer 2

每次写入后，执行.Write（Environment.NewLine）