vb.net 將csv 數(shù)據(jù)導(dǎo)入datagridview

本例子在窗體上添加一個(gè)按鈕，一個(gè)空的DataGridView控件；

創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于做網(wǎng)站、成都網(wǎng)站建設(shè)、羅源網(wǎng)絡(luò)推廣、微信平臺(tái)小程序開發(fā)、羅源網(wǎng)絡(luò)營銷、羅源企業(yè)策劃、羅源品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)建站為所有大學(xué)生創(chuàng)業(yè)者提供羅源建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18982081108，官方網(wǎng)址：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??????'從打開的文件中讀取一行內(nèi)容

Loop

r.Close()??????'關(guān)閉對(duì)象

'獲得數(shù)據(jù)的列數(shù)

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

'首先在DataGridView控件中添加列

DataGridView1.ColumnCount?=?UBound(d)?+?1

'然后在DataGridView控件中添加行

DataGridView1.Rows.Add(UBound(MyRows))

'在DataGridView控件中添加數(shù)據(jù)

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文件保存到數(shù)組 vb.net代碼

csv文件可以當(dāng)做文本文件來處理！

主要處理代碼如下：

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

t = "" '這里是你讀取的CSV文件內(nèi)容

b() = Split(t, vbCrLf)

For j = 0 To 9

s(j) = b(j) '這個(gè)就是每一行的數(shù)據(jù)了

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

cj(j) = Val(c(1)) '這個(gè)就是每一行的成績數(shù)據(jù)了

Next

'然后進(jìn)行排序和顯示處理

vb如何實(shí)時(shí)讀取csv文件？

給你一段VB.net讀取csv文件的代碼把。

Imports?System.IO

Imports?System.Collections.Generic

Module?Module1

Public?CSV數(shù)據(jù)?As?List(Of?List(Of?String))

'''?summary

'''?從指定路徑的文件讀取內(nèi)容，并分析出其中每行含有分隔符的數(shù)據(jù)，存到CSV數(shù)據(jù)中。

'''?para調(diào)用的時(shí)候使用CSV數(shù)據(jù)(5)(0)表示第6條記錄的第1個(gè)數(shù)據(jù)/para

'''?/summary

'''?param?name="文件路徑"必需。一個(gè)[String]表達(dá)式。要讀取的文件路徑。/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數(shù)據(jù)?=?New?List(Of?List(Of?String))

While?Not?文件讀取器.EndOfStream

Try

語句?=?文件讀取器.ReadLine

'分析語句后判斷類型

If?語句.Contains(分隔符)?Then

Dim?array?=?語句.Split(分隔符)

If?array?IsNot?Nothing?Then

CSV數(shù)據(jù).Add(array.ToList())

End?If

End?If

Catch?ex?As?Exception

t成功?=?False

End?Try

End?While

Return?t成功

End?Function

End?Module

你上面的數(shù)據(jù)執(zhí)行后，將會(huì)保存到一個(gè)List嵌套List的String組中。

自己轉(zhuǎn)化為數(shù)字再進(jìn)行操作把。

Dim?數(shù)字?=?Convert.ToDecimal(CSV數(shù)據(jù)(5)(0))

關(guān)于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) '寫