WEB C#/VB 生成报表文件csv文件）

利用FileStream 和StreamWriter生成csv文件:

'利用生成csv文件实现Web自定义报表
public shared Function  WriteCsv(ByVal dt As DataTable, ByVal strTitle As String, ByVal filename As String) As String 
Dim path As String = HttpContext.Current.Server.MapPath("~/csv/" & filename & ".csv")
        Dim fw As New FileStream(path, FileMode.CreateNew, FileAccess.Write)
        Dim sw As New StreamWriter(fw, Text.Encoding.Default)
        sw.WriteLine(strTitle)
        Dim strRow As String = ""
        For i As Integer = 0 To dt.Rows.Count
            For j As Integer = 0 To dt.Columns.Count
                strRow += dt.Rows(i)(j) + ","
            Next j
            sw.WriteLine(strRow.Substring(0, strRow.Length - 1))
            strRow = ""
        Next i
        sw.Close()
        fw.Close()
        sw.Dispose()
        fw.Dispose()
        Return path
end Function