vb.net - 查找并替换富文本而不丢失格式

Question

我是编程新手，需要一些帮助。

我正在使用 VB 2010 Express，我正在尝试将 .rtf 文件读取为字符串，然后查找并替换其中的文本，最后输出为新文件

我已经成功地使用下面的代码做到了这一点，但是它丢失了回车符的格式并且输出全部在一行上？

感谢您的帮助詹姆斯

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText("C:\Testing\Reports\test2.rtf")

    fileReader = fileReader.Replace("@@HCO@@", RichTextBox1.Text)

    Dim StreamW As New IO.StreamWriter("C:\Testing\Reports\test3.rtf")

    StreamW.Write(fileReader)
    StreamW.Close()

Answer 1

RichTextBox1.Text 

不保存格式信息。尝试改为:

RichTextBox1.Rtf

ReadAlltext 函数还可以删除您丢失的 cr。尝试使用 ReadToEnd 代替