2017-03-25 9 views
0

아래의 코드는 Vb.net
한 핵심 기록에 Excel 파일로도C#에서 Excel 시트의 데이터를 바인딩하는 방법?

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 = "RepFile\Dispatch" & 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 

도움말은 매우이다 C#로 변환 할 수
나는이 코드를 필요 .csv 파일에 결합하는 데이터 집합을 결합하는 것입니다 thanks

답변

0

안녕하세요 @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 = @"RepFile\Dispatch" + 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; 

은 그것을 시도하고 나에게 의견을 알려주세요