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

vb.net 怎么生成csv文件与怎么读取csv文件

CSV文件，在EXCEL里可以直接生成与读取。

可以通过VB.net去操作，打开EXCEL文件，去完成上述操作，而更为简单的办法是直接当做操作文本文件（TXT文件）就可以，因为用记事本软件，打开CSV文可以发现，其实际上是一个行内数据之间用逗号分隔的格式文件。

下面给出例子：

在窗体上添加两个多行文本框，两个按钮，两个文本框一个用来输入生成CSV文件的数据，另一个用来读取显示CSV文件的数据；两个按钮，一个完成生成CSV文件的代码，另一个完成读取CSV文件的代码；具体代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建(写入)一个文本文件

Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.CSV", System.IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)

MyWriter.WriteLine(TextBox1.Text)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'读取一个文本文件

Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

注意：在输入文本框里，同一行数据的数据之间用逗号（西文逗号）分隔。

vb如何实时读取csv文件？

给你一段VB.net读取csv文件的代码把。

Imports System.IO

Imports System.Collections.Generic

Module Module1

Public CSV数据 As List(Of List(Of String))

''' summary

''' 从指定路径的文件读取内容，并分析出其中每行含有分隔符的数据，存到CSV数据中。

''' para调用的时候使用CSV数据(5)(0)表示第6条记录的第1个数据/para

''' /summary

''' param name="文件路径"必需。一个[String]表达式。要读取的文件路径。/param

''' returns返回是否读取成功/returns

''' remarks/remarks

Public Function 读取(ByVal 文件路径 As String) As Boolean

Dim 文件读取器 As StreamReader = New StreamReader(文件路径)

Dim 语句 As String

Dim t成功 As Boolean = True

Dim 分隔符 As Char = ";"

CSV数据 = New List(Of List(Of String))

While Not 文件读取器.EndOfStream

Try

语句 = 文件读取器.ReadLine

'分析语句后判断类型

If 语句.Contains(分隔符) Then

Dim array = 语句.Split(分隔符)

If array IsNot Nothing Then

CSV数据.Add(array.ToList())

End If

End If

Catch ex As Exception

t成功 = False

End Try

End While

Return t成功

End Function

End Module

你上面的数据执行后，将会保存到一个List嵌套List的String组中。

自己转化为数字再进行操作把。

Dim 数字 = Convert.ToDecimal(CSV数据(5)(0))

关于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) '写

分享文章：vb.net读csv net vb
当前路径：http://ybzwz.com/article/hhsgop.html