Как добавить еще один столбец?

Question

Использование VB6

код

Dim fso As FileSystemObject 
Dim TS As TextStream 
Dim TempS As String 
Dim Final As String 
Set fso = New FileSystemObject 
Set TS = fso.OpenTextFile(1.txt, ForReading) 
Final = TS.ReadAll 
Do Until TS.AtEndOfStream 
    TempS = TS.ReadLine 
    Final = Final & TempS & vbCrLf 
Loop 
TS.Close 
Set TS = fso.OpenTextFile(App.Path & "\Staff.txt", ForAppending, True) 
    TS.Write Final 
TS.Close 
Set TS = Nothing 
Set fso = Nothing 

Приведенный выше код работает, но я хочу добавить еще одну строку при записи в Staff.txt.

Textfile

1.txt

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,,,, 

Ожидаемый результат

При записи файла в качестве 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…. So on…,. Как изменить код?

Потребность VB6 Код Помощь

Answer 1

Сначала вы должны иметь переменную строку, чтобы написать имена столбцов в:

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

Затем вы должны написать заголовок к вашему TextStream перед записью любого другого текста: (до TS .WRITE Final)

TS.Write Header & vbCrLf 
TS.Write Final 

Answer 2

попробовать

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

Кроме того, я работаю над этим кодом. Например, у вас есть fso.OpenTextFile(1.txt, ForReading), должно быть "1.txt".