vb.net – 在不丢失格式的情况下查找和替换富文本

2023年1月26日 287次阅读

我是编程新手,需要一些帮助.

我正在使用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()

最佳答案

RichTextBox1.Text

不保存格式信息.试着改为：

RichTextBox1.Rtf

ReadAlltext函数也会删除你缺少的cr.请尝试使用ReadToEnd

点赞