VB。Net导出为CSV时在MS Excel中查看时出现问题

Question

我遇到了一些非常奇怪的事情。当导出到CSV时，我的顶行显示引号，而下面的行显示向下。

我使用UTF8编码，并手动将双引号添加到值中，以便用引号括起来。

正在使用的代码是

Dim fs As New IO.FileStream(GenericValueEditorExportFilename.Value, IO.FileMode.Create)
        Dim writer As New IO.StreamWriter(fs, Encoding.UTF8)
        fs.Write(Encoding.UTF8.GetPreamble(), 0, Encoding.UTF8.GetPreamble().Length)
.... 
.... 
....

While reader.Read
                If reader("TargetLanguageID") = targetLanguageID Then
                    writer.WriteLine(Encode(reader("SourcePhrase")) & ", " & Encode(reader("TargetPhrase")))
                End If 
.... 
.... 
....

Friend Shared Function Encode(ByVal value As String) As String
    Return ControlChars.Quote & value.Replace("""", """""") & ControlChars.Quote
End Function

在excel中显示的结果显示为(https://ibb.co/ntMYdw)

当我在记事本中打开文件时，文本显示如下。但是每行显示不同。为什么第一行显示它们，第二行不显示。记事本结果显示为（https://ibb.co/fMkWWG）

Answer 1

像这样的东西应该对你有用。

Dim str As New StringBuilder

For Each dr As DataRow In Me.NorthwindDataSet.Customers

     For Each field As Object In dr.ItemArray

     str.Append(field.ToString & ",")

     Next

     str.Replace(",", vbNewLine, str.Length - 1, 1)

Next



Try

     My.Computer.FileSystem.WriteAllText("C:\temp\testcsv.csv", str.ToString, False)

Catch ex As Exception

     MessageBox.Show("Write Error")

End Try

Answer 2

因此，问题是由BOM引起的，该BOM是为手动设置文件的编码而创建的，作为对文件的开始写入。

fs.Write(Encoding.UTF8.GetPreamble(), 0, Encoding.UTF8.GetPreamble().Length)

删除这解决问题和文件保持在所需的UTF8编码，因为它是在流写入器上设置的。所以没有必要添加BOM来设置编码。

Answer 3

Excel将第一行视为标题。

https://stackoverflow.com/a/24923167/2319909