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

顶帖散分！！！ --------------------编程问答-------------------- 这个问题是不是很难哈。难住各位英雄了 --------------------编程问答-------------------- 有没有不会的阿，有没有想学的阿，有没有做过此类程序的阿。大家一起跟贴啊。跟贴有份！ --------------------编程问答-------------------- word就可以转换啊 --------------------编程问答-------------------- 用word 对象加载，然后另存为 html 格式。这样应该比较简单！

自己来解析生成HTML代码的话，估计比较复杂。

--------------------编程问答-------------------- 阿勇说的好象有些道理！
自己用代码解析的话，有思路吗 --------------------编程问答-------------------- 关注一下 --------------------编程问答-------------------- 用word的好像有个例子

如果你是自己写会很难的

我看过一个rtf的要插件的 --------------------编程问答-------------------- 各路英雄，顶贴阿 --------------------编程问答-------------------- 网上很多这方面的资料。VB完全可以做到.Google"VB rtf to HTML" or "VB convert rtf to HTML"
or "VB rtf HTML"

Good Luck! --------------------编程问答-------------------- 有效的实现手段是用代码将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
--------------------编程问答--------------------
'生成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 --------------------编程问答-------------------- 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

补充：VB ,  基础类