Vb6 如何再添加一列？

使用VB6

代码

上面的代码正在运行，但我想在编写Staff.txt时再添加一行

文本文件

1.txt

预期产量

将文件写入Staff.txt时

Col1, col2, col3, col4, col5, col6..
M3,4331,57,0,3,,20090405,153601,8193,3,0,,,,
M3,4440,59,0,3,,20090405,172110,8193,3,0,,,,
M3,4439,66,0,1,,20090405,172106,8193,3,0,,,,
M3,4374,68,0,1,,20090405,165003,8193,3,0,,,,

我想在上面加一行，比如

col1，col2，col3…。等等…，.

如何修改代码

---

需要VB6代码帮助

首先，您应该有一个字符串变量来写入列名称：

Dim header as String
Dim i as Integer
For i=0 To NumberOfColumns-1
  header=header &"Col" & i & ","
Next i

然后，您应该在写入任何其他文本之前将标题写入文本流：（在TS.write Final之前）

试一试

而且，我确信这段代码是有效的。首先，您有

fso.OpenTextFile（1.txt，ForReading）

，应该是

“1.txt”

Col1, col2, col3, col4, col5, col6..
M3,4331,57,0,3,,20090405,153601,8193,3,0,,,,
M3,4440,59,0,3,,20090405,172110,8193,3,0,,,,
M3,4439,66,0,1,,20090405,172106,8193,3,0,,,,
M3,4374,68,0,1,,20090405,165003,8193,3,0,,,,

Dim header as String
Dim i as Integer
For i=0 To NumberOfColumns-1
  header=header &"Col" & i & ","
Next i

TS.Write Header & vbCrLf
TS.Write Final

Set TS = fso.OpenTextFile(App.Path & "\Staff.txt", ForAppending, True)
    TS.WriteLine("col1, col2, col3, col4, col5, col6")
    TS.Write Final
TS.Close