vb.net筛选csv excel编程vba实现筛选

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

相关问答

Q1: 请教vb.net 读csv 文件，搜索表示指定行

CSV文件特征是每行一条记录，字段用逗号分开。你只需要逐行处理，将每行文本用逗号切分得到数组array，然后判断array[0]是否等于"bbb"，如果相等则array[1]就是”4561234567890“；如果不等则继续处理下一行。

没怎么用过VB，下面给出C#代码：

string FindString(string filename, string title){ FileStream stream = null; try { stream = File.OpenRead(filename); StreamReader reader = new StreamReader(stream, Encoding.Default);

string result = null;//存储查找的结果 while (!reader.EndOfStream) { //读取一行 string strLine = reader.ReadLine(); string[] array = strLine.Split(','); if (array == null || array.Length 1)//该行无效 continue; if (string.Compare(array[0], title, false) == 0) {//找到了 return array[1]; } } } catch (Exception ex) { //出错了 return null; } finally { if (stream != null) stream.Close(); }

//到这里说明没找到 return null;}void Test(){ string result = FindString(@"C:\demo.csv", "bbb");}

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

CSV文件vb.net筛选csv，在EXCEL里可以直接生成与读取。

可以通过VB.net去操作，打开EXCEL文件，去完成上述操作，而更为简单vb.net筛选csv的办法是直接当做操作文本文件（TXT文件）就可以，因为用记事本软件，打开CSV文可以发现，其实际上是一个行内数据之间用逗号分隔的格式文件。

下面给出例子vb.net筛选csv：

在窗体上添加两个多行文本框，两个按钮，两个文本框一个用来输入生成CSV文件的数据，另一个用来读取显示CSV文件的数据vb.net筛选csv；两个按钮，一个完成生成CSV文件的代码，另一个完成读取CSV文件的代码vb.net筛选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的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于excel编程vba实现筛选、vb.net筛选csv的信息别忘了在本站进行查找喔。