利用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
本文介绍了一个使用FileStream和StreamWriter来创建CSV文件的方法,该方法接收DataTable、标题字符串和文件名作为参数,适用于Web应用中生成自定义报表。
3703

被折叠的 条评论
为什么被折叠?



