CSV

    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

---------------------------------------------------------------------------------------------------------------------------------------------------------------

Imports SystemImports System.IO
Imports System.Text

Public Class Test

    Public Shared Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"

        Try
            If File.Exists(path) Then
                File.Delete(path)
            End If

            Dim sw As StreamWriter = New StreamWriter(path)
            sw.WriteLine("This")
            sw.WriteLine("is some text")
            sw.WriteLine("to test")
            sw.WriteLine("Reading")
            sw.Close()

            Dim sr As StreamReader = New StreamReader(path)

            Do While sr.Peek() > -1
                Console.WriteLine(sr.ReadLine())
            Loop
            sr.Close()
        Catch e As Exception
            Console.WriteLine("The process failed: {0}", e.ToString())
        End Try
    End Sub
End Class