VB.NET中如何将RichTextBox文本保存为TXT文档及异常问题求助

首先，问题出在你使用的StreamWriter.WriteLine()方法上——这个方法会在你写入的字符串末尾自动追加一个换行符，而RichTextBox1.Text本身已经包含了你输入时的所有换行符（比如每一行结尾的换行）。这就导致最终保存的文本比你在RichTextBox里输入的内容多了额外的换行，或者格式出现偏差。

修复步骤： #

把Sw.WriteLine(number)替换成Sw.Write(number)，这样就不会额外添加换行符，完全保留RichTextBox中的原始文本内容。

修改后的代码如下：

Using Sw As StreamWriter = File.CreateText(path)
    Dim number As String = RichTextBox1.Text
    Sw.Write(number) ' 用Write代替WriteLine，避免额外换行
End Using

额外注意事项： #

如果你的RichTextBox内容包含特殊字符（比如非英文字符），可以考虑指定编码来避免乱码问题，比如使用UTF-8带BOM的编码：

Using Sw As New StreamWriter(path, False, Encoding.UTF8)
    Dim number As String = RichTextBox1.Text
    Sw.Write(number)
End Using

这样修改后，保存的文本文档内容就会和你在RichTextBox中输入的完全一致了。

内容的提问来源于stack exchange，提问作者Mohmmad Yahya