Comment ajouter une colonne de plus?

Question

En utilisant VB6

Code

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 

code ci-dessus fonctionne, mais je veux ajouter une ligne en écrivant à 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,,,, 

Sortie prévue

Lors de l'écriture d'un fichier comme 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,,,, 

Je veux ajouter une ligne au-dessus comme col1, col2, col3…. So on…,. Comment modifier un code?

Besoin VB6 code Aide

Answer 1

D'abord, vous devriez avoir une variable de chaîne à écrire les noms de colonnes à:

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

Ensuite, vous devriez écrire l'en-tête de votre TextStream avant d'écrire un autre texte: (avant TS .write final)

TS.Write Header & vbCrLf 
TS.Write Final 

Answer 2

essayer

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

En outre, je douth ce code fonctionne. Pour un, vous avez fso.OpenTextFile(1.txt, ForReading), devrait être "1.txt".