vb.net导出csv vbnet csv文件出力

VB.net 从oracle数据库导出CSV文件

和导出txt文件的操作是一样的。

sql语句从数据库获得数据集，然后逐条插入到csv

下面代码可以做参考，

Sub CSVdropmark()

        Dim mFileName As String = Application.StartupPath + "\EmployeeMaster\ExcelData\BaanID.CSV"

        Dim fs As FileStream

        Dim st As StreamWriter

        Dim reader As System.IO.StreamReader

        Dim i As Integer

        Dim str As String

        reader = New System.IO.StreamReader(mFileName)

        Try

            fs = New FileStream(Application.StartupPath + "\EmployeeMaster\ExcelData\BaanIDAD.CSV", FileMode.Create, FileAccess.Write)

            str = reader.ReadToEnd

            str = str.Replace("""", "")

            st = New StreamWriter(fs)

            st.WriteLine(str)

            st.Flush()

        Catch ex As Exception

        Finally

            If Not reader Is Nothing Then reader.Close()

            If st IsNot Nothing Then st.Close()

            If fs IsNot Nothing Then fs.Close()

        End Try

    End Sub

相关问答

Q1: 关于VB.NET的CSV文件的读取

你是怎么读写的呢？下面是简单的读写

Dim str As String = (My.Computer.FileSystem.ReadAllText("C:\QD51-R24_A.csv")) '读

My.Computer.FileSystem.WriteAllText("C:\1.csv", str, True) '写

Q2: vb.net 操作CSV问题 求大神 急

用一个streamreader和streamwriter即可

        Using sr2 As New StreamWriter("2.csv", False, Text.Encoding.Default) '要写入的文件

            Using sr1 As New StreamReader("1.csv", Text.Encoding.Default) '要读取的文件

                While Not sr1.EndOfStream 'EndOfStream=True表示读取结束了

                    '读取

                    Dim lineread As String = "" '等下要读的行

                    Dim linewrite As String = "" '等下要写入的行

                    Dim data As String() '每个数据的数组

                    lineread = sr1.ReadLine '读一行并把流的位置往后调一行

                    '你现在可以用If判断这一行要不要删除。如果要的话，用Else直接跳过下面的语句即可。

                    data = lineread.Split(",".ToCharArray, StringSplitOptions.RemoveEmptyEntries) '读取一行，用逗号分隔后存在数组里

                    '下面对读取到的数据进行处理，你可以自己处理它

                    For Each item As String In data

                        linewrite = item  "," 'csv是以逗号分隔的，我们写进去时也要记得加逗号

                    Next

                    '写入

                    If linewrite.EndsWith(",") Then '去掉行最后一个逗号。

                        '如果之前读到一个空行，这里就不会执行。你想想为什么

                        sr2.WriteLine(linewrite.Remove(linewrite.Length - 1, 1))

                    End If

                    '如果你之前用If判断了行要不要删除，那么End If就应该加在这里。

                End While

                sr1.Close()

            End Using

            sr2.Flush()

            sr2.Close()

        End Using

Q3: vb.net 导出csv后数字格式问题

这应该是exel自己的问题，和控件以及写csv文件没有关系吧。新建一个exel，敲入001，它也显示的是1。

Q4: vb.net怎么生成csv文件啊 求具体代码

CSV只不过是用CRLF分行，逗号分列的一个简单文本

先做好行模板，如

Private RowTemp as string ="{0},{1},{2},....{n}"

写入文件时候分行写入

System.IO.StreamWriter.WriteLine(String.format(RowTemp,"数据1”,“数据2"...."数据n"))

vb.net导出csv的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet csv文件出力、vb.net导出csv的信息别忘了在本站进行查找喔。