❶ 关于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