怎么吧richtextbox中格式化好的文本转存为HTML格式？

如题

解决方案 »

  1.   

    automation方式调用word来转换格式
      

  2.   

    这个我知道，但是我不能依赖于word呀，万一没有装word呢？
      

  3.   

    根据html文件的格式写（其实就是纯文本文件，只是预先定义了一些标签
      

  4.   

    打开一个frontpage页面，在上页写一些文字，查看其源代码。
      

  5.   

    贴一段将rs记录集转成HTML文档表格的代码(文本框的东西很简单，自己分析吧)：Public Function mkHtml(rs As Recordset) As String
       Dim i As Long
       Dim j as integer
       Dim SM as integer
       Dim StrHtml As String
       
       SM = rs.fields.count
       SN = rs.recordcount   StrHtml = "<html>" & vbCrLf & vbCrLf
       
       StrHtml = StrHtml & "<head>" & vbCrLf
       
       StrHtml = StrHtml & "<meta http-equiv=" & Chr$(34) & "Content-Language" & _
                 Chr$(34) & " content=" & Chr$(34) & "zh-cn" & Chr$(34) & ">" & vbCrLf
       StrHtml = StrHtml & "<meta http-equiv=" & Chr$(34) & "Content-Type" & Chr$(34) & " content=" & _
                 Chr$(34) & "text/html; charset=gb2312" & Chr$(34) & ">" & vbCrLf
       StrHtml = StrHtml & "<meta name=" & Chr$(34) & "GENERATOR" & Chr$(34) & " content=" & _
                 Chr$(34) & "Microsoft FrontPage 4.0" & Chr$(34) & ">" & vbCrLf
       StrHtml = StrHtml & "<meta name=" & Chr$(34) & "ProgId" & Chr$(34) & " content=" & _
                 Chr$(34) & "FrontPage.Editor.Document" & Chr$(34) & ">" & vbCrLf
       StrHtml = StrHtml & "<title>财务报表</title>" & vbCrLf
       
       StrHtml = StrHtml & "</head>" & vbCrLf & vbCrLf
       
       StrHtml = StrHtml & "<body>" & vbCrLf & vbCrLf
       
       StrHtml = StrHtml & "<p align=" & Chr$(34) & "center" & Chr$(34) & "><font size=" & _
                 Chr$(34) & "6" & Chr$(34) & "><b>财务报表</b></font></p>" & vbCrLf
       StrHtml = StrHtml & "<p align=" & Chr$(34) & "left" & Chr$(34) & ">时间：2003年2月</p>" & vbCrLf
       StrHtml = StrHtml & "<p align=" & Chr$(34) & "left" & Chr$(34) & ">会计：</p>" & vbCrLf
       StrHtml = StrHtml & "<p align=" & Chr$(34) & "left" & Chr$(34) & ">说明：</p>" & vbCrLf
       StrHtml = StrHtml & "<p align=" & Chr$(34) & "left" & Chr$(34) & ">　</p>" & vbCrLf
       StrHtml = StrHtml & "  <table border=" & Chr$(34) & "1" & Chr$(34) & " width=" & _
                 Chr$(34) & "100%" & Chr$(34) & ">" & vbCrLf   rs.MoveFirst   
       For i = 1 To SN
          For j = 0 to (SM-1)
             StrHtml = StrHtml & "  <tr>" & vbCrLf
             StrHtml = StrHtml & "    <td width=" & Chr$(34) & "10%" & Chr$(34) & ">" & DB.Fields(j) & "</td>" & vbCrLf
             StrHtml = StrHtml & "  </tr>" & vbCrLf
          next j
          rs.MoveNext
       Next i
       
       StrHtml = StrHtml & "  </table>" & vbCrLf
       
       'StrHtml = StrHtml & "<p align=" & Chr$(34) & "left" & Chr$(34) & ">　</p>" & vbCrLf & vbCrLf
       StrHtml = StrHtml & "</body>" & vbCrLf & vbCrLf
       StrHtml = StrHtml & "</html>" & vbCrLf & vbCrLf
       
       mkHtml = strHtml
    End Functionprivate command1_click()
       dim Str as string
       str = mkHtml
       Open App.Path & "\tmp.html" For Output As #1
       Print #1, Str
       Close #1
    end sub
      

  6.   

    谢谢,不过这不是我需要的
    我要的是把rtf格式的文本转成HTML格式.
      

  7.   

    你把rtf的文本取出来，按里面的回车键分行，写入HTML代码就行。
      

  8.   

    你把rtf的文本取出来，按里面的回车键分行，写入HTML代码就行。
      

  9.   

    你编辑RichTextBox的时候，对应的生成css文件，实现内容与格式的分离
    word里面有这个功能，可以借鉴