下面的代码是将数据集绑定到Excel
文件中Vb.net
一个核心记录也绑定到.csv
文件中
我需要将此代码转换为C#
Public Function Write2CSV(ByVal ExlDs As Data.DataSet) As String
Dim strfilename As String, i As Integer = 0, p As Integer = 0
Dim dRandomNo As Integer = Rnd(1) * 10000
Dim sAppPath As String = System.AppDomain.CurrentDomain.BaseDirectory
Dim sFile As String = "RepFileDispatch" & Format(Now, "ddMMyyyyHHmmss") & dRandomNo & ".csv"
Dim sOpnURL As String
TextBox1.Text = sFile
strfilename = sAppPath & "Reports" & sFile
Dim swObj As StreamWriter
Try
swObj = File.AppendText(strfilename)
For Each colObj As DataColumn In ExlDs.Tables(0).Columns
swObj.Write(colObj.ColumnName & ",")
Next
swObj.WriteLine()
For intRow As Integer = 0 To ExlDs.Tables(0).Rows.Count - 1
For intCol As Integer = 0 To ExlDs.Tables(0).Columns.Count - 1
swObj.Write(ExlDs.Tables(0).Rows(intRow)(intCol) & ",")
Next
swObj.WriteLine()
Next
Dim strFileURL() As String = Split(sFile, "")
sOpnURL = "RepFile/" & strFileURL(UBound(strFileURL))
'sbObj.Save(strfilename)
Catch ex As Exception
'bError = True
Dim ErrContext As HttpContext = HttpContext.Current
ErrContext.Items.Add("ErrDesc", ex.Message)
ErrContext.Items.Add("ErrSrc", ex.Source)
ErrContext.Items.Add("ErrInfo", ex.StackTrace)
ErrContext.Items.Add("ErrFile", "T")
Finally
'sbObj = Nothing
swObj.Close()
swObj = Nothing
End Try
Return sOpnURL
End Function
高度赞赏帮助
你好@Manohar_A
我认为你需要的是将你的代码翻译成C#
。
如果是这种情况,您就有函数的C#
版本。
public string Write2CSV(System.Data.DataSet ExlDs)
{
using (ExlDs)
{
string strfilename;
var Rnd = new Random();
var dRandomNo = Rnd.Next(1, 10000);
var sAppPath = System.AppDomain.CurrentDomain.BaseDirectory;
var sFile = @"RepFileDispatch" + DateTime.Now.ToString("ddMMyyyyHHmmss") + dRandomNo + ".csv";
var sOpnURL = string.Empty;
TextBox1.Text = sFile
strfilename = sAppPath + @"Reports" + sFile;
StreamWriter swObj = null;
try
{
swObj = File.AppendText(strfilename);
foreach (System.Data.DataColumn colObj in ExlDs.Tables[0].Columns)
{
swObj.Write(colObj.ColumnName + ",");
}
swObj.WriteLine();
for (int intRow = 0; intRow < ExlDs.Tables[0].Rows.Count - 1; intRow++)
{
for (int intCol = 0; intCol < ExlDs.Tables[0].Columns.Count - 1; intCol++)
{
swObj.Write(ExlDs.Tables[0].Rows[intRow][intCol] + ",");
}
}
var strFileUrl = Strings.Split(sFile, "\");
sOpnURL = "RepFile/" + strFileUrl[strFileUrl.Length];
//sbObj.Save(strfilename);
}
catch (Exception ex)
{
//bError = true;
var ErrContext = HttpContext.Current;
ErrContext.Items.Add("ErrDesc", ex.Message);
ErrContext.Items.Add("ErrSrc", ex.Source);
ErrContext.Items.Add("ErrInfo", ex.StackTrace);
ErrContext.Items.Add("ErrFile", "T");
}
finally
{
//sbObj = null;
swObj.Close();
swObj = null;
}
return sOpnURL;
}
}
请注意,您将需要以下imports
:
using Microsoft.VisualBasic;
using System;
using System.IO;
using System.Web;
请尝试一下,让我知道您的评论