vb.netcsv的简单介绍

关于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文件与怎么读取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.net 将csv 数据导入datagridview

本例子在窗体上添加一个按钮，一个空的DataGridView控件；

在按钮的单击事件里编写代码如下：

'读取CSV文件到DataGridView控件

Dim r As New StreamReader("C:\工作簿1.csv", System.Text.Encoding.Default) '用StreamReader打开文件

Dim MyRows(0) As String

Dim d() As String

Dim i As Integer = -1

Dim j As Integer = 0

Do While r.Peek  -1 '是否到文件尾

i = i + 1

ReDim Preserve MyRows(i)

MyRows(i) = r.ReadLine      '从打开的文件中读取一行内容

Loop

r.Close()      '关闭对象

'获得数据的列数

d = Split(MyRows(1), ",")

'首先在DataGridView控件中添加列

DataGridView1.ColumnCount = UBound(d) + 1

'然后在DataGridView控件中添加行

DataGridView1.Rows.Add(UBound(MyRows))

'在DataGridView控件中添加数据

For i = 0 To UBound(MyRows)

d = Split(MyRows(i), ",")

For j = 0 To UBound(d)

DataGridView1.Item(j, i).Value = d(j)

Next

Next