以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助HTML编辑器内容如何转换成同格式的WORD文档？（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145864)
--  作者：jiterp
--  发布时间：2020/2/9 20:00:00
--  求助HTML编辑器内容如何转换成同格式的WORD文档？（已解决）

采用了有点甜的HTML编辑器，想咨询一下如何把编辑器里的内容转换成同格式的Word文档？


 


图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/2/9 22:51:07编辑过]
--  作者：有点蓝
--  发布时间：2020/2/9 20:10:00
--  
参考：

Dim s As String = FileSys.ReadAllText("c:\\index.html") \'这里是读取html文件内容，也可以改为取HTML编辑器的网页内容
Dim sw As new io.StreamWriter("c:\\abc.doc", False, system.text.Encoding.GetEncoding("utf-8"))
sw.WriteLine(s)
sw.Flush()
sw.Close()
--  作者：jiterp
--  发布时间：2020/2/9 20:51:00
--  
以下是引用有点蓝在2020/2/9 20:10:00的发言：
参考：

Dim s As String = FileSys.ReadAllText("c:\\index.html") \'这里是读取html文件内容，也可以改为取HTML编辑器的网页内容
Dim sw As new io.StreamWriter("c:\\abc.doc", False, system.text.Encoding.GetEncoding("utf-8"))
sw.WriteLine(s)
sw.Flush()
sw.Close()

通过上面的代码，生成的文档是乱码：

 


此主题相关图片如下：234.png
按此在新窗口浏览图片
--  作者：有点蓝
--  发布时间：2020/2/9 21:00:00
--  
html文件，或者获取的字符串，必须是utf-8编码的
--  作者：jiterp
--  发布时间：2020/2/9 21:09:00
--  
我是用有点甜的HTML编辑器编辑内容，那要怎么设置成是utf-8编码的呢？
--  作者：jiterp
--  发布时间：2020/2/9 22:50:00
--  

自己捉摸出来了，曲线实现。

 

\'定义HTM文件内容
Dim htm As String = "<!DOCTYPE html>" & vbcrlf
htm = htm & "<html>" & vbcrlf
htm = htm & "<head>" & vbcrlf
htm = htm & "<meta http-equiv=" & """" & "Content-Type" & """" & " c""" & "text/html; charset=utf-8" & """" & " />"  & vbcrlf
htm = htm & "</head>" & vbcrlf
htm = htm & "<body>" & vbcrlf
htm = htm & Tables("sy_files").Current("filetext") & vbcrlf   \'指定单元格HTM代码内容
htm = htm & "</body>" & vbcrlf
htm = htm & "</html>"

 

\'生在HTM文件
FileSys.WriteAllText(ProjectPath & "print.htm",htm, True)

 

\'生成Doc文件
Dim s As String = FileSys.ReadAllText(ProjectPath & "print.htm")   \'这里是读取html文件内容,也可以改为取HTML编辑器的网页内容
Dim sw As new io.StreamWriter("d:\\abc.doc", False, system.text.Encoding.GetEncoding("utf-8"))
sw.WriteLine(s)
sw.Flush()
sw.Close()