Foxtable(狐表)用户栏目专家坐堂 → 如何把字符串保存为RTF格式文档?


  共有1520人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jnletao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:936 积分:7713 威望:0 精华:0 注册:2013/7/7 13:37:00
如何把字符串保存为RTF格式文档?  发帖心情 Post By:2018/1/19 21:04:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文档.txt

我用FileSys.ReadAllText  读取,可以看到rtf代码

我用FileSys.WriteAllText   保存rtf不行。





 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/1/19 21:10:00 [只看该作者]

读取后经过什么处理?完整代码贴出来

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:936 积分:7713 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By: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 测试







 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部