html中table导出到excel独立于浏览器_网页表格导出xsl-优快云博客

本文链接：https://blog.youkuaiyun.com/aaoxue/article/details/8424077

见firefox下导出：http://blog.youkuaiyun.com/aaoxue/article/details/8350191

鉴于之前出现导出到excel的乱码问题，实现独立于浏览器的导出方案

思路：将界面上table的innerHTML获取传送到服务器，在服务器中设置%response的属性和内容实现下载功能。界面代码不做赘述，

看后台response的属性设置

    Set %stream=##class(%FileBinaryStream).%New()
    Do %stream.SetAttribute("ContentType","application/vnd.ms-excel")
    Do %stream.SetAttribute("ContentDisposition","attachment;filename="_title_".xls" )
    Do %stream.SetAttribute("Expires",600)
    Do %stream.SetAttribute("Expires",600)
set streamOid=$Get(%session.Data("excelXml"))
kill %session.Data("excelXml")
set myStream=##class(%Stream.Object).%Open(streamOid)
s tableStr="<html><head><META http-equiv=\"_$Char(34)_"Content-Type\"_$Char(34)_" content=\"_$Char(34)_"text/html; charset=UTF-8\"_$Char(34)_"></head><body><table>"
s tableStr=tableStr_myStream.Read(myStream.Size)_"</table></body></html>"//注意tableStr的写法其它语言可以仿照这样的写法

    d %stream.Write(tableStr)

将stream的属性赋给response

Set %response.ContentType=%stream.GetAttribute("ContentType")
Set %response.CharSet=%stream.GetAttribute("CharSet")
If %stream.GetAttribute("ContentDisposition")'="" Do %response.SetHeader("Content-Disposition",%stream.GetAttribute("ContentDisposition"))

If %stream.IsCharacter() {
Do %response.ContentInfo(,.table)
If table="RAW"||($extract(table,1,$length("Latin"))="Latin")||($extract(table,1,$length("CP"))="CP") {
Set %response.ContentLength=%stream.Size
} ｝