如何给TXT加上序号

Question

我有个TXT文件，里边的内容每天都不一样，如为
6227003834540018568|黄三|39168.00|33000013|
6227453555570058573|刘三|188.00|33000021|
6227003815644556724|杨大|20863.00|33000033|
6227003456733554079|张四|7632.00|33000100|
6227003453456634480|吴五|815.00|33000097|
.........
现在想实现在每一行数据前家序号，如：
1|6227003834540018568|黄三|39168.00|33000013|
2|6227453555570058573|刘三|188.00|33000021|
3|6227003815644556724|杨大|20863.00|33000033|
4|6227003456733554079|张四|7632.00|33000100|
5|6227003453456634480|吴五|815.00|33000097|
................如何实现，谢谢

Answer 1

读取回车换行 加 CSTR(I) + "¦"

Answer 2

我加了CSTR(I)数据出来都是1............

Answer 3

Dim TextLine
dim i as Integer
i=1
Open "输出文件名" For Output As #2   ' 打开输出文件。Open "输入文件名" For Input As #1   ' 打开文件。Print #1, "This is a test" 
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
   Print #1, i & "|" &  TextLine
Loop
Close #1   ' 关闭文件。Close #2   ' 关闭文件。

Answer 4

前面的代码漏了句 i=i+1
Dim TextLine 
dim i as Integer 
i=1 
Open "输出文件名" For Output As #2  ' 打开输出文件。 Open "输入文件名" For Input As #1  ' 打开文件。 Print #1, "This is a test" 
Do While Not EOF(1)  ' 循环至文件尾。 
  Line Input #1, TextLine  ' 读入一行数据并将其赋予某变量。 
  Print #1, i & " ¦" &  TextLine 
  i=i+1
Loop 
Close #1  ' 关闭文件。 Close #2  ' 关闭文件。

Answer 5

连DIM在内 一共 13行代码  还不简单吗？

Answer 6

前面代码还有点问题 
有个语句要改成  Print #2, i & " ¦" &  TextLine 

Answer 7

这个就不要在vb里搞了吧,用excel就够了.