高难度啊！各位老大：能把rtf格式转换为html吗？欢迎提出思路！

colorrain 2007-07-09 04:15:06

顶帖散分！！！

...全文

471 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

happywqw 2008-01-07

打赏
举报

1、效果最好的解决方案是通过Word对象进行转换；
2、网上有些类似控件可以使用，不过转换效果都不敢恭维；
3、如果你要精确解析甚至开发自己的控件来卖钱，并且不想依赖Office，那么只有自己解析RTF文件格式了，有关RTF文件格式，可以参考一下以下文章：
《RTF文件格式研究报告》 http://www.cnpopsoft.com/article.asp?id=11
《RTF文件格式规范 v1.7》（全文翻译版本）！http://www.cnpopsoft.com/article.asp?id=18

andylilin 2007-07-11

打赏
举报

'生成Html文件
Function MakeHtml()

Dim str As String
str = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><div align='center'>"
str = str + rstRep("ReTitle").Value & "" 'txtReTitle.Text '报表标题

str = str + "</div><table bordercolor=#000000 border=1 align= Center width= 653 cellspacing= 0 cellpadding= 0><caption>"
str = str + rstRep("SubTitle").Value & "" 'txtSubTitle.Text '副标题

str = str + " </caption><td colspan=4> <center>编号:"
str = str + ChangName(rstMain("ID").Value) & "" 'txtGetInfoId.Text '编号

str = str + " 指令日期: "
str = str + Format(rstMain("ShiLingDate").Value, "yyyy 年 MM 月 dd 日HH 时mm 分") & "" '指令日期

str = str + "</center> "
str = str + rstRep("TuoGuanDep").Value 'comTuoGuanDep.Text '托管部门

str = str + " 敬请贵部根据以下提供的收款人名称、开户行、帐号、到帐日期和划款金额划款。</td><tr><td align=Left width='186'> 到帐日期:</td><td colspan='3' align=Left>"
str = str + ChangTime(rstMain!GetDate) & "" 'ChangTime(rstMain("GetDate").Value)到帐日期

str = str + "</td></tr><tr><td width='186'> 收款人:</td><td colspan='3'>"
str = str + rstMain("HuaKuanPerson").Value & ""

str = str + "</td></tr>" & vbCrLf & "<tr><td width='186'> 开户行:</td><td colspan='3'>"
str = str + rstMain("UseBank").Value & ""

str = str + "</td></tr><tr><td align=Left width='186'> 帐号:</td><td colspan='3'>"
str = str + rstMain("AccountNum").Value & ""

str = str + "</td></tr><tr><td width='186'> 划款金额(小写):</td><td colspan='3'>"
str = str + "￥" + Format(rstMain("HuaKuanMoney").Value, "##,##0.00") & "" '"￥" + masMoney.Text '

str = str + "</td></tr><tr><td width='186'> 划款金额(大写):</td><td colspan='3'>"
str = str + ChangeMoney(rstMain("HuaKuanMoney").Value) & ""

str = str + "</td></tr><tr><td colspan=5 height=110 width='649'> 划款金额用途:"
str = str + rstMain("HuaKuanUse").Value & ""

str = str + " </td></tr><tr><td colspan=5 height=110 width='649'> 备注:"
str = str + rstMain("Remark").Value & ""

str = str + " </td></tr><tr><td width=402 height=110> 管理人签章:"

str = str + " </td><td width='244'> 托管人签章:"

str = str + " </td></tr><tr height=60><td width='402'> </td><td width='417'> 审批人:"

str = str + "</td></tr><tr height=60><td width='402'> 复核人:"
str = str & rstMain("ReexaminesPerson").Value & "" 'labRePer.Caption

str = str & "</td><td width='244'> 复核人:"

str = str + "</td></tr><tr height=60><td width='402'> 经办人:"
str = str + rstMain("ManagesPerson").Value & ""

str = str + "</td><td width='244'> 经办人:"

str = str + "</td></tr></table></html>"

MakeHtml = str

End Function

一笑拔剑 2007-07-10

打赏
举报

用word的好像有个例子

如果你是自己写会很难的

我看过一个rtf的要插件的

guyehanxinlei 2007-07-10

打赏
举报

有效的实现手段是用代码将rtf格式转换成HTML格式
以下是一段参考：需要引用OFFICE引用
'调用WORD应用程序将.doc格式转化成.rtf格式
'定义word对象
Set oApp = New Word.Application
'定义文档对象
Set oDoc = oApp.Documents.Open(strFile)

'将.doc格式转化成.HTML格式
oDoc.SaveAs App.path & "\data\file.HTML", wdFormatHTML

oDoc.Close False

Set oDoc = Nothing
'转化完毕退出WORD应用程序
oApp.Quit
'释放对象
Set oApp = Nothing

VBAdvisor 2007-07-10