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

查找和替换富文本而不会丢失格式

1 个答案: