如何把字符串保存为RTF格式文档？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：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 测试

主题：如何把字符串保存为RTF格式文档？