在.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