VB.NET / 写入 CSV 文件时缺少第一行

Question

编写了一个程序，将名称、邮政编码、设备类型、损坏类型写入 CSV 文件，但由于某种原因它错过了第一行。

谢谢

Sub fileWriting(ByVal file As String, ByVal name As String, ByVal postcode As String, ByVal dmgType As String, ByVal devType As String) ' writing to files function
        Dim ObjStreamWriter As StreamWriter
        ObjStreamWriter = New StreamWriter(file, True)


        ObjStreamWriter.Write(name & ",")
        ObjStreamWriter.Write(postcode & ",")
        ObjStreamWriter.Write(dmgType & ",")
        ObjStreamWriter.WriteLine(devType)

        ObjStreamWriter.Close()

    End Sub

Answer 1

上面代码的一点：

ObjStreamWriter = New StreamWriter(file, True)

将 append 添加到现有文件（如果该文件已存在）。 因此，您追加的文本可能存在于文件的更下方，具体取决于您已经写入了多少。

此外， StreamWriter实现了IDisposable ，因此如果您要立即关闭 object，首选的实现方法是在Using块中实例化它。

Using ObjStreamWriter = New StreamWriter(file, True)
    ObjStreamWriter.Write(name & ",")
    ObjStreamWriter.Write(postcode & ",")
    ObjStreamWriter.Write(dmgType & ",")
    ObjStreamWriter.WriteLine(devType)
End Using

我不确定这些是否会解决您的问题，因为没有足够的代码来真正确定这一点，但如果您遇到文本未刷新的问题，这可确保您自动执行正确关闭文件所需的一切。 通常这是文件末尾缺少的文本，而不是开头，但这可能会有所帮助。