vb.net筛选csv 基于vb的数据筛选

vb.net 怎么生成csv文件与怎么读取csv文件

CSV文件，在EXCEL里可以直接生成与读取。

成都创新互联公司基于分布式IDC数据中心构建的平台为众多户提供四川联通机房服务器托管 四川大带宽租用 成都机柜租用 成都服务器租用。

可以通过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文件啊 求具体代码

CSV只不过是用CRLF分行，逗号分列的一个简单文本

先做好行模板，如

Private RowTemp as string ="{0},{1},{2},....{n}"

写入文件时候分行写入

System.IO.StreamWriter.WriteLine(String.format(RowTemp,"数据1”,“数据2"...."数据n"))

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.net 一次实现多个csv取入

Public Function GetTxtFile(ByVal TxtFn As String) As String()

Dim sr As IO.StreamReader

Dim tmpstr As String

Dim R() As String

Dim Rn As Long

sr = IO.File.OpenText(TxtFn)

tmpstr = sr.ReadLine()

Rn = 0

While Not tmpstr Is Nothing

ReDim Preserve R(Rn)

R(Rn) = tmpstr

tmpstr = sr.ReadLine()

Rn += 1

End While

sr.Close()

Return R

End Function

这是读取一个的，然后你取出多个文件循环调用就可以了