vb.net - 如何在 Vb.Net 中使用 streamwriter 从字符串变量创建 csv 文件？

Question

我正在使用 .Net 4.0 开发 VS 2012，Vb.Net。

使用 Streamwriter 或 FileStream，我正在尝试创建一个位于 c:\windows\temp 文件夹中的 Temp csv。 .csv 文件的值将从字符串变量填充。

字符串变量中的示例值看起来像..

1,2,3,411,345
2,3,4,55,678
5,6,7,8,9999

如何从字符串变量写入 .csv 文件？

Dim reader As StreamReader = New System.IO.StreamReader(File.OpenRead("D:\CSV\Test.csv"))
Dim listA As New List(Of String)()
Dim listB As New List(Of String)()
Dim s As String = ""
While Not reader.EndOfStream
    Dim line As String = reader.ReadLine()
    Dim values As String() = line.Split(";"c)
    listA.Add(values(0))
    s = s + line + Chr(10)
End While

Answer 1

使用 Streamwriter(sw 是变量声明)。我能够编写 .csv 文件。

 Public Sub Test()
        Try

            Dim reader As StreamReader = New System.IO.StreamReader(File.OpenRead("D:\CSV\Test.csv"))
            Dim listA As New List(Of String)()


            If File.Exists("d:\CSV\TestOut.csv") Then
                File.Delete("d:\CSV\TestOut.csv")
            End If

            Dim sw As New StreamWriter("d:\CSV\TestOut.csv")
            Dim s As String = String.Empty

            While reader.Peek() >= 0
                Dim line As String = reader.ReadLine()
                Dim values As String() = line.Split(";"c)
                listA.Add(values(0))
                s = s + line + Chr(10)
            End While
            reader.Close()
            sw.Write(s)
            sw.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub