asp.net 导出csv 文件函数

 

 Sub tocsv()Sub tocsv(ByVal filename As String, ByVal dt As Data.DataView, ByVal name As String)
        Dim name1 As String = name
        ' Dim filecsv As StreamWriter = File.CreateText(filename & name)
        Dim iCol As Integer = 0
        Dim j As Integer = 0
        Dim i As Integer = 0
        Dim s As Integer = 0
        Dim fs As FileStream = New System.IO.FileStream(filename & name, FileMode.Create, FileAccess.Write) '建立文件

        Dim sw As StreamWriter = New StreamWriter(fs, System.Text.Encoding.GetEncoding("gb2312"))‘定义文件字符格式

        Dim sline As String = ""

        For s = 1 To dt.Table.Columns.Count - 1

            sline += dt.Table.Columns(s - 1).ColumnName.Trim + ","

        Next
        sline += dt.Table.Columns(dt.Table.Columns.Count - 1).ColumnName.Trim
       
        sw.WriteLine(sline, System.Text.Encoding.GetEncoding("gb2312"))

        For j = 0 To dt.Table.Rows.Count - 1
            Dim srline As String = ""
            For i = 1 To dt.Table.Columns.Count
                srline += dt.Item(j).Item(i - 1).ToString + ","
            Next

            sw.WriteLine(srline)

        Next
        sw.Close()
       
        Response.Charset = "utf-8"
        Response.Buffer = True
        Me.EnableViewState = False
        Response.ContentEncoding = System.Text.Encoding.Default
        Response.AddHeader("Content-Disposition", "attachment; filename=" + name1) ' 注意name1　和name de qu别
        Response.ContentType = "application/ms-excel"
        Response.WriteFile(filename & name)
        Response.End()

    End Sub