将xls转换为csv。不能分割线（使用vb2005） [英] converting xls to csv. cannot split lines (using vb2005)

问题描述

我正在尝试在csv中保存已转换的xls文件。



- >转换过程后

Hi,

I''m trying to save a converted xls file in csv.

--> after convert process

Dim _Out() As String = csvData.Split("\n")

   Dim _OutPut As String = targetFile 'path and filename to save in local
   Dim _csv As StreamWriter = New StreamWriter(_OutPut, False)
   _csv.Write(csvData)
   _csv.Close(

）





给我以下结果：

)


Gives me this ressult below:

ABCReferenceNo,ChequeDate,ChequeNo,DocRate,HouseBankCode,BankAcct,Project,ProjectName,Customer_OR_VendorCode,Customer_OR_VendorName,DocumentCurrency,Balance,\nABCRef1,20120131,1234,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-J1036,CORJUVIT TRADING & CONSTRUCTION,USD,#VALUE!\nABCRef2,20120131,1235,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-U1001,USAUK INC.,USD,#VALUE!\nABCRef3,20120131,1236,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-S1058,STARGATE MANUFACTURING CORP.,USD,#VALUE!\nABCRef4,20120131,1237,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-N1010,"NUEVA JAPAN HUMAN RESOURCES BUILDERS GROUP,INC.",USD,#VALUE!\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n

结果应如下所示：

The result that should be is like this below:

ABCReferenceNo,ChequeDate,ChequeNo,DocRate,HouseBankCode,BankAcct,Project,ProjectName,Customer_OR_VendorCode,Customer_OR_VendorName,DocumentCurrency,Balance
ABCRef1,20120131,1234,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-J1036,CORJUVIT TRADING & CONSTRUCTION,USD,#VALUE!
ABCRef2,20120131,1235,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-U1001,USAUK INC.,USD,#VALUE!
ABCRef3,20120131,1236,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-S1058,STARGATE MANUFACTURING CORP.,USD,#VALUE!
ABCRef4,20120131,1237,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-N1010,"NUEVA JAPAN HUMAN RESOURCES BUILDERS GROUP,INC.",USD,#VALUE!

我'我正在使用VB2005。请帮帮我

I''m using VB2005. Please Help me

推荐答案

我有解决方案。



在After过程中，之后阅读整行，然后使用这样的streamwriter writeline每行保存它;

I''ve got the solution.

in the While process, after reading the whole line, i then save it per line using streamwriter writeline like this;

While row_no < rCount ''(_Result.Tables(0).Rows.Count - 1)

            For i As Integer = 0 To cCount

                csvData += _Result.Tables(0).Rows(row_no)(i).ToString() + ","


            Next

            Dim _OutPut As String = targetFile

            Dim swE As New System.IO.StreamWriter(_OutPut, True)

            swE.WriteLine(csvData)

            row_no = row_no + 1

            csvData = ""

            swE.Flush()
            swE.Close()

End While

这篇关于将xls转换为csv。不能分割线（使用vb2005）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！