❶ 關於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如何實時讀取csv文件
csv文件是文本文件,你按文本文件來讀取即可:
DimsAsString,a()AsString
Open"csv文件名及路徑"ForInputAs#1
DoUntilEOF(1)
LineInput#1,s
a=Split(s,";")
IfUbound(a)>=6ThenText1.Text=Text1.Text&Val(a(2))&""&Val(a(3))&vbCrLf
Loop
Close#1
❸ vb.net 將csv 數據導入datagridview
本例子在窗體上添加一個按鈕,一個空的DataGridView控制項;
在按鈕的單擊事件里編寫代碼如下:
'讀取CSV文件到DataGridView控制項
DimrAsNewStreamReader("C:工作簿1.csv",System.Text.Encoding.Default)'用打開文件
DimMyRows(0)AsString
Dimd()AsString
DimiAsInteger=-1
DimjAsInteger=0
DoWhiler.Peek>-1'是否到文件尾
i=i+1
ReDimPreserveMyRows(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控制項中添加數據
Fori=0ToUBound(MyRows)
d=Split(MyRows(i),",")
Forj=0ToUBound(d)
DataGridView1.Item(j,i).Value=d(j)
Next
Next