package

 {

     import flash.display.Sprite;

     import flash.events.MouseEvent;

     import flash.filesystem.File;

     import flash.filesystem.FileMode;

     import flash.filesystem.FileStream;

     import flash.net.FileReference;

     import flash.net.ObjectEncoding;

     import flash.text.TextField;

     import flash.utils.ByteArray;

     /**

      * @author Frost.Yen

      * @E-mail 871979853@qq.com

      * @create 2015-8-1 下午8:54:59

      *

      */

     [SWF(width="1024",height="768")]

     public class ExportExcel extends Sprite

     {

         private var _fields:Array = ["姓名", "地址","联系电话","QQ","电子邮箱"];

         private var _fields_en:Array = ["name", "address", "tel", "qq", "email"];

         private var _datas:Array = [];

         private var _btn:TextField;

         public function ExportExcel()

         {

                 initViews();

         }

         private function initViews():void

         {

             for(var j:int = 0;j<_fields.length;j++){

                 var title:TextField = getText(100,20,_fields[j]);

                 title.x = j*100+100;

                 title.y = 50;

                 this.addChild(title);

             }

             for(var i:int = 0;i<10;i++){

                 var obj:Object = {name:"Name"+i,address:"address"+i,tel:"tel"+i,qq:"qq"+i,email:"email"+i};

                 _datas.push(obj);

                 var count:int = 0;

                 for(var key:String in obj){

                     var t:TextField = getText(100,20,obj[key]);

                     t.x = 100*count+100;

                     t.y = 20*i+70;

                     count++;

                     this.addChild(t);

                 }

             }

             _btn = new  TextField();

             _btn.selectable = false;

             _btn.autoSize = "left";

             _btn.border = true;

             _btn.text = "导出Excel";

             _btn.x = 620;

             _btn.y = 50;

             _btn.addEventListener(MouseEvent.CLICK,onExport);

             this.addChild(_btn);

         }

         private function onExport(e:MouseEvent):void

         {

             save();

         }

         private function save():void

         {

             var xlsStr:String = "<html><head></head><body><table>";

             xlsStr += "<tr>";

             for each(var fieldHead:String in _fields)

             {

                 xlsStr += "<td>" + fieldHead + "</td>";

             }

             xlsStr += "</tr>";

             for each(var item:Object in _datas)

             {

                 xlsStr += "<tr>";

                 for each(var field:String in _fields_en)

                 {

                     xlsStr += "<td>" + item[field] + "</td>";

                 }

                 xlsStr += "</tr>";

             }

             xlsStr += "</table></body></html>";

             var bytes:ByteArray = new ByteArray();

             //bytes.writeUTFBytes(xlsStr);

             bytes.writeMultiByte(xlsStr, "GB2312");

             new FileReference().save(bytes, "data.xls");

             //运用File可以达到同样效果，而且不用弹出保存对话框

             /*var file:File = File.desktopDirectory.resolvePath("data.xls");

             var fs:FileStream = new FileStream();

             fs.open(file, flash.filesystem.FileMode.WRITE);

             fs.writeMultiByte(xlsStr,"GB2312");

             fs.close();*/

         }

         private function getText(w:Number,h:Number,text:String):TextField

         {

             var t:TextField = new TextField();

             t.width = w;

             t.height = h;

             //t.autoSize = "center";

             t.selectable = false;

             t.border = true;

             t.text = text;

             return t;

         }

     }

 }

[AIR] AIR将数据保存并导出为Excel的更多相关文章

  1. 头疼3－4次的问题，数据从DB导出到EXCEL，再从EXCEL导入到DB，数据格式发生错误 ，导致 程序出错。

    反思: 1 解决 问题的思路 绕远了: 在这个问题出现前,程序是运行正确 的 问题出现前,我误删了DB 的 testcase表的所有 case ,然后 再把邮件 中的excel数据导入到 DB 然后 ...

  2. DevExpress XtraGrid 数据导出导入Excel

    // <summary> /// 导出按钮 /// </summary> /// <param name="sender"></param ...

  3. salesforce 零基础学习（二十三）数据记录导出至excel（自定义报表导出）

    我们都知道,报表有个功能为导出excel,但是有的时候客户需求往往标准的报表达不到,比如导出excel,其中本月修改的数据字段标红,如下图所示. 这就需要我们去写VF来实现此功能. 需求:将数据表记录 ...

  4. MySQL数据导出为Excel, json,sql等格式

    MySQL数据经常要导出为Excel, json,sql等格式,通过步骤都很多,麻烦,现在通过Treesoft可以方便的导出你要的数据格式. 1.在线执行SQL,在数据列表中有相应按钮,方便的将数据导 ...

  5. C#将DataTable数据导出到EXCEL的两种方法

    1.在非服务器控件的页面导出数据,需要借助一张temp空页面post回后台的数据. 前台:window.location.href = "../Temp.aspx"; 后台: tr ...

  6. DevExpress GridControl GridView 导出到 Excel 类

    说明: 1>GridView 导出到 Excel (如果分页,只导出当前页数据) 2>GridView 导出到 Excel 3>方法2可以参考DataTable 导出到 Excel ...

  7. C# winform 导出导入Excel/Doc 完整实例教程[网上看到的]

    还真没做过winform的导出导入,今天上网百度了一下.结果--- 所以还是我自己写个吧.之前做过web的,半搬半做就OK. 1添加引用:Aspose.Cells.dll(我们就叫工具包吧,可以从网上 ...

  8. sql导出到excel

    1.先查询数据ID,别名  导出到excel 2.增加标准名称,标识错误数据,导入sqlServer select distinct [StandardName] from [GMSOA].[dbo] ...

  9. pandans导出Excel并将数据保存到不同的Sheet表中

    数据存在mongodb中,按照类别导出到Excel文件,问题是想把同一类的数据放到一个sheet表中,最后只导出到一个excel文件中# coding=utf-8import pandas as pd ...

随机推荐

  1. UIImage分类，设置边框

    #import "UIImage+image.h" @implementation UIImage (image) + (UIImage *)imageWithBorder:(CG ...

  2. svn配置多仓库与权限控制

    telnet: connect to address 47.106.115.228: Connection refused svn执行上下文错误由于目标计算机积极拒绝无法连接 标签: svn 2017 ...

  3. Opencv 亚像素级别角点检测

    Size winSize = Size(5,5); Size zerozone = Size(-1,-1); TermCriteria tc = TermCriteria(TermCriteria:: ...

  4. 知方可补不足~Sqlserver中的几把锁和.net中的事务级别 回到目录

    当数据表被事务锁定后,我们再进行select查询时,需要为with(锁选项)来查询信息,如果不加,select将会被阻塞,直到锁被释放,下面介绍几种SQL的锁选项 SQL的几把锁 NOLOCK(不加锁 ...

  5. OpenGL坐标变换专题

    OpenGL坐标变换专题(转)   OpenGL通过相机模拟.可以实现计算机图形学中最基本的三维变换,即几何变换.投影变换.裁剪变换.视口变换等,同时,OpenGL还实现了矩阵堆栈等.理解掌握了有关坐 ...

  6. Go语言内存分配机制

    前言: 本文是学习<<go语言程序设计>> -- 清华大学出版社(王鹏 编著) 的2014年1月第一版 做的一些笔记 , 如有侵权, 请告知笔者, 将在24小时内删除, 转载请 ...

  7. Python实现二叉树的遍历

    二叉树是有限个元素的集合,该集合或者为空.或者有一个称为根节点(root)的元素及两个互不相交的.分别被称为左子树和右子树的二叉树组成. 二叉树的每个结点至多只有二棵子树(不存在度大于2的结点),二叉 ...

  8. yii2 gridview 新增按钮 动态显示按钮

    新增一个按钮 [ 'class' => 'yii\grid\ActionColumn', 'header' => '操作', 'options' => ['width' => ...

  9. kalilinux-信息搜集

    dns扫描: dnsenum --enum www.baidu.com --threads [number] 一次运行的线程数量 -r 递归查找 -d 允许你设置在WHOIS请求之间的时间延迟,单位为 ...

  10. 使用GeoServer+QGIS发布WMTS服务 | Publishing WMTS Service Using GeoServer+QGIS

    Web GIS系列: 1.搭建简易Web GIS网站:使用GeoServer+PostgreSQL+PostGIS+OpenLayers3 2.使用GeoServer+QGIS发布WMTS服务 3.使 ...