Exports datatable to CSV or Excel format-阿里云开发者社区

Exports datatable to CSV or Excel format

2017-09-03 1169

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

// ---------------------------------------------------------
// Rama Krishna's Export class
// Copyright (C) 2004 Rama Krishna. All rights reserved.
// ---------------------------------------------------------

# region Includes
using System;
using System.Data;
using System.Web;
using System.Web.SessionState;
using System.IO;
using System.Text;
using System.Xml;
using System.Xml.Xsl;
using System.Threading;

# endregion // Includes

namespace DMD.Web.Module
{
    # region Summary

    /**//// <summary>
    /// Exports datatable to CSV or Excel format.
    /// This uses DataSet's XML features and XSLT for exporting.
    /// </summary>
    /// <example>
    /// C#.Net Example to be used in WebForms
    /// -------------------------------------
    /// using MyLib.ExportData;
    ///
    /// private void btnExport_Click(object sender, System.EventArgs e)
    /// {
    ///   try
    ///   {
    ///     // Declarations
    ///     DataSet dsUsers =  ((DataSet) Session["dsUsers"]).Copy( );
    ///     MyLib.ExportData.Export oExport = new MyLib.ExportData.Export("Web");
    ///     string FileName = "UserList.csv";
    ///     int[] ColList = {2, 3, 4, 5, 6};
    ///     oExport.ExportDetails(dsUsers.Tables[0], ColList, Export.ExportFormat.CSV, FileName);
    ///   }
    ///   catch(Exception Ex)
    ///   {
    ///     lblError.Text = Ex.Message;
    ///   }
    /// }
    ///
    /// VB.Net Example to be used in WindowsForms
    /// -----------------------------------------
    /// Imports MyLib.ExportData
    ///
    /// Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ///
    ///      Try
    ///
    ///     'Declarations
    ///     Dim dsUsers As DataSet = (CType(Session("dsUsers"), DataSet)).Copy()
    ///     Dim oExport As New MyLib.ExportData.Export("Win")
    ///     Dim FileName As String = "C:\\UserList.xls"
    ///     Dim ColList() As Integer = New Integer() {2, 3, 4, 5, 6}
    ///     oExport.ExportDetails(dsUsers.Tables(0), ColList, Export.ExportFormat.CSV, FileName)
    ///
    ///   Catch Ex As Exception
    ///     lblError.Text = Ex.Message
    ///   End Try
    ///
    /// End Sub
    /// </example>

    # endregion // Summary

    public class Export
    {
        public enum ExportFormat : int {CSV = 1, Excel = 2}; // Export format enumeration

        System.Web.HttpResponse response;
        private string appType;

        public Export()
        {
            appType = "Web";
            response = System.Web.HttpContext.Current.Response;
        }

        public Export(string ApplicationType)
        {
            appType = ApplicationType;
            if(appType != "Web" && appType != "Win") throw new Exception("Provide valid application format (Web/Win)");
            if (appType == "Web") response = System.Web.HttpContext.Current.Response;
        }

        ExportDetails OverLoad : Type#1 // ExportDetails OverLoad : Type#1

        ExportDetails OverLoad : Type#2 // ExportDetails OverLoad : Type#2

        ExportDetails OverLoad : Type#3 // ExportDetails OverLoad : Type#3

        Export_with_XSLT_Web // Export_with_XSLT

        Export_with_XSLT_Windows // Export_with_XSLT

        CreateStylesheet // WriteStylesheet

    }

}