我有一个带头的csv文件。我需要循环遍历csv中的所有行,并且每一行都在最后添加一个额外的列。我想不必阅读每一行,因为当它被重写时似乎改变了数据。我有一个带符号的奇怪字段,因此它无法正确读取。我知道这很容易,但我花了两天时间研究选项,但没有找到答案。我正处在一个巨大的时间紧迫的今天完成这个。有什么建议吗?
先谢谢
答案 0 :(得分:0)
正如所建议的那样,如果您的数据以某种方式被破坏,那么它很可能是编码问题。你的问题的答案非常简单,例如
Dim filePath As String
Dim encoding As Encoding
Dim newColumnHeader As String
'...
Dim lines = File.ReadAllLines(filePath, encoding)
lines(0) &= "," & newColumnHeader
For lineNumber = 1 To lines.GetUpperBound(0)
lines(lineNumber) &= "," & lineNumber
Next
File.WriteAllLines(filePath, lines, encoding)