.net-4.0 - Microsoft.VisualBasic.FileIO.TextFieldParser に対応する書き込みはありますか?

Question

新しい CSV ファイルを作成する必要があります。独自のルーチンを作成するのは大したことではありませんが、このためのルーチンが Base Class Library にありますか?

Answer 1

文字列リストから CSV ファイルの行を生成するために使用できる関数を次に示します (IEnumerable(Of String) または文字列配列も使用できます)。

Function CreateCSVRow(strArray As List(Of String)) As String
    Dim csvCols As New List(Of String)
    Dim csvValue As String
    Dim needQuotes As Boolean
    For i As Integer = 0 To strArray.Count() - 1
        csvValue = strArray(i)
        needQuotes = (csvValue.IndexOf(",", StringComparison.InvariantCulture) >= 0 _
                      OrElse csvValue.IndexOf("""", StringComparison.InvariantCulture) >= 0 _
                      OrElse csvValue.IndexOf(vbCrLf, StringComparison.InvariantCulture) >= 0 _
                      OrElse csvValue.IndexOf(" ", StringComparison.InvariantCulture) = 0 _
                      OrElse csvValue.IndexOf(" ", StringComparison.InvariantCulture) = csvValue.Length-1)
        csvValue = csvValue.Replace("""", """""")
        csvCols.Add(If(needQuotes, """" & csvValue & """", csvValue))
    Next
    Return String.Join(",", csvCols.ToArray())
End Function

Answer 2

フレームワークではなく、コードが単純すぎます。StreamWriter.Write() で簡単に実行できるので、文字列を適切に引用するためにほんの少し手を加えるだけで済みます。ほんの一握りの行が必要です。

Module CsvWriter
    Public Sub WriteCsvLine(ByVal out As System.IO.TextWriter, ByVal ParamArray Values() As Object)
        For ix As Integer = 0 To Values.Length - 1
            If ix > 0 Then out.Write(",")
            If TypeOf (Values(ix)) Is String Then
                out.Write("""" + CStr(Values(ix)).Replace("""", """""") + """")
            Else
                out.Write(Values(ix).ToString())
            End If
        Next
        out.WriteLine()
    End Sub
End Module