vb.netcsv读入 vbnet读写文件

vb.net 将csv 数据导入datagridview

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

创新互联建站专注为客户提供全方位的互联网综合服务,包含不限于做网站、成都网站建设、罗源网络推广、微信平台小程序开发、罗源网络营销、罗源企业策划、罗源品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联建站为所有大学生创业者提供罗源建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com

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

'读取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

读取csv文件保存到数组 vb.net代码

csv文件可以当做文本文件来处理!

主要处理代码如下:

Dim t As String, b() As stirng, s(10) As String, cj(10) As Single

t = "" '这里是你读取的CSV文件内容

b() = Split(t, vbCrLf)

For j = 0 To 9

s(j) = b(j) '这个就是每一行的数据了

c() = Split(s(j), ",")

cj(j) = Val(c(1)) '这个就是每一行的成绩数据了

Next

'然后进行排序和显示处理

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.netcsv读入 vbnet读写文件
分享网址:http://scyanting.com/article/hgojhj.html