vb.netcsv生产 VBNET程序设计-成都快上网建站

vb.netcsv生产 VBNET程序设计

关于VB.NET的CSV文件的读取

你是怎么读写的呢?下面是简单的读写

成都创新互联是专业的五台网站建设公司,五台接单;提供成都网站建设、网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行五台网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

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只不过是用CRLF分行,

逗号

分列的一个

简单文本

先做好行

模板

,如

Private

RowTemp

as

string

="{0},{1},{2},....{n}"

写入文件时候分行写入

System.IO.StreamWriter.

WriteLine

(String.format(RowTemp,"数据1”,“数据2"...."数据n"))

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文件? 然后通过点击button按钮向.csv文件插入行?

1、csv文件也就是文本文件,可以按文件文件处理。

2、可以在vb.net内调用excel用excel处理csv文件。

vb.net 操作CSV问题 求大神 急

用一个streamreader和streamwriter即可

Using sr2 As New StreamWriter("2.csv", False, Text.Encoding.Default) '要写入的文件

Using sr1 As New StreamReader("1.csv", Text.Encoding.Default) '要读取的文件

While Not sr1.EndOfStream 'EndOfStream=True表示读取结束了

'读取

Dim lineread As String = "" '等下要读的行

Dim linewrite As String = "" '等下要写入的行

Dim data As String() '每个数据的数组

lineread = sr1.ReadLine '读一行并把流的位置往后调一行

'你现在可以用If判断这一行要不要删除。如果要的话,用Else直接跳过下面的语句即可。

data = lineread.Split(",".ToCharArray, StringSplitOptions.RemoveEmptyEntries) '读取一行,用逗号分隔后存在数组里

'下面对读取到的数据进行处理,你可以自己处理它

For Each item As String In data

linewrite = item  "," 'csv是以逗号分隔的,我们写进去时也要记得加逗号

Next

'写入

If linewrite.EndsWith(",") Then '去掉行最后一个逗号。

'如果之前读到一个空行,这里就不会执行。你想想为什么

sr2.WriteLine(linewrite.Remove(linewrite.Length - 1, 1))

End If

'如果你之前用If判断了行要不要删除,那么End If就应该加在这里。

End While

sr1.Close()

End Using

sr2.Flush()

sr2.Close()

End Using


新闻名称:vb.netcsv生产 VBNET程序设计
分享链接:http://kswjz.com/article/doosgdo.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流