- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何把字符串保存为RTF格式文档？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113642)
-- 发布时间：2018/1/19 21:04:00
-- 如何把字符串保存为RTF格式文档？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:文档.txt |
我用FileSys.ReadAllText 读取，可以看到rtf代码
我用FileSys.WriteAllText 保存rtf不行。
-- 发布时间：2018/1/19 21:10:00
--
读取后经过什么处理？完整代码贴出来
-- 发布时间：2018/1/19 21:35:00
--
此主题相关图片如下：qq截图20180119213045.png
Dim Curfile As String = ProjectPath & "\\文档.rtf"
\'Dim taRows As String = "qc"
taRows = taRows & taRows
Try
Dim Rich As String = FileSys.ReadAllText(Curfile)
\'Rich = Rich.Replace("qc", taRows)
FileSys.WriteAllText(ProjectPath & "\\111.rtf", Rich, False)
Catch ex As Exception
End Try
本意是用文本代码模式读取，找到对应字符串{a\\}，循环替换成相应字符，效果模拟为excel的细节区多行。 但需要用rtf做，因为打印预览方便，环境适应性强。
测试代码我已把替换功能注释，只用读取，另存为
不过另存为以后是这种了
此主题相关图片如下：qq截图20180119213031.png
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:文档.txt |
请将文档.txt 改为文档.rtf 测试
-- 发布时间：2018/1/19 22:25:00
--
不能直接保存，利用控件保存
Dim Curfile As String = "D:\\问题\\文档(1).rtf"
Try
Dim Rich As String = FileSys.ReadAllText(Curfile)
Dim rtBox As new System.Windows.Forms.RichTextBox()
rtBox.Rtf = Rich
rtBox.SaveFile("D:\\问题\\111.rtf")
Catch ex As Exception
msgbox(ex.message)
End Try