在.NET将dataset输出为.CSV文件的方法...

在.NET将dataset输出为.CSV文件的方法...

 注意移除','和'回车符'

Imports  System.Configuration
Imports  System.Data
Imports  System.Data.OleDb
Imports  Logonexperss.CustomerOnline.DBHelper
Imports  System.IO
Public   Class  excle
     Inherits  System.Web.UI.Page

#Region  " Web Form Designer Generated Code "

     ' This call is required by the Web Form Designer.
     < System.Diagnostics.DebuggerStepThrough() >   Private   Sub  InitializeComponent()

     End Sub
     Protected   WithEvents  DataGrid1  As  System.Web.UI.WebControls.DataGrid

     ' NOTE: The following placeholder declaration is required by the Web Form Designer.
     ' Do not delete or move it.
     Private  designerPlaceholderDeclaration  As  System.Object

     Private   Sub  Page_Init( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles   MyBase .Init
         ' CODEGEN: This method call is required by the Web Form Designer
         ' Do not modify it using the code editor.
        InitializeComponent()
     End Sub

#End Region

     Private   Sub  Page_Load( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles   MyBase .Load
        bind()
     End Sub

     Private   Sub  bind()
         Dim  ds  As  DataSet
        DBHelper.ConnectString  =  ConfigurationSettings.AppSettings.Item( " Database.ConnectionString " )
        ds  =  DBHelper.RunSelect( " select * from TrialSent " )
         Dim  dt  As  DataTable  =  ds.Tables( 0 )
        DataTableToExcel(dt)
         ' DataGrid1.DataSource = ds
         ' DataGrid1.DataBind()
     End Sub

     Public   Sub  DataTableToExcel( ByVal  dt  As  DataTable)
         Try
             If  dt  Is   Nothing   OrElse  dt.Rows.Count  <   1   Then
                 Return
             End   If
             ' 分隔符
             Dim  strSplitChar  As   String   =   String .Empty
            strSplitChar  =   " , "
             Dim  sw  As   New  System.IO.StringWriter
             Dim  strTemp  As   String   =   String .Empty
             Dim  num  As   Integer   =  dt.Columns.Count  -   1
             For  i  As   Integer   =   0   To  num
                 ' 输出头 
                 If  i  <>  dt.Columns.Count  -   1   Then
                    strTemp  +=  dt.Columns(i).ColumnName  +  strSplitChar
                 Else
                    strTemp  +=  dt.Columns(i).ColumnName
                 End   If
             Next
            sw.WriteLine(strTemp)

            strTemp  =   ""
             For  i  As   Integer   =   0   To  dt.Rows.Count  -   1
                 ' 输出内容 ,注意移除','和'回车符'
                 For  j  As   Integer   =   0   To  num
                     If  j  <>  dt.Columns.Count  -   1   Then
                        strTemp  +=  dt.Rows(i)(j).ToString().Replace( " , " ,  "" ).Replace( Chr ( 13 )  &   Chr ( 10 ),  "" )  +  strSplitChar

                     Else
                        strTemp  +=  dt.Rows(i)(j).ToString()
                     End   If
                 Next
                sw.WriteLine(strTemp)
                strTemp  =   ""
             Next
            sw.Close()
            Response.AddHeader( " Content-Disposition " ,  " attachment; filename=test.csv " )
            Response.ContentType  =   " application/ms-excel "
            Response.Write(sw)
            Response.End()

         Catch  ex  As  Exception
             Throw  ex

         End   Try
     End Sub
End Class