如何给TXT加上序号

[leonnet]

我有个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|
................

如何实现，谢谢

[leonnet]

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

[_l_]

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 ' 关闭文件。

[_l_]

前面的代码漏了句 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  ' 关闭文件。

[leonnet]

有没有简单的方式呀

[_l_]

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

[lingshao0909]

手动加，一句代码都不用，呵呵

[_l_]

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

[lsftest]

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

[yachong]

[Quote=引用 12 楼 lsftest 的回复:]
这个就不要在vb里搞了吧,用excel就够了.
[/Quote]
正解！！！

[leonnet]

说明不用sql的方式

[_l_]

一行行读
一行行写

[fu0212]

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

[zhufenghappy]

[Quote=引用 3 楼 fu0212 的回复:]
读取回车换行 加 CSTR(I) + "¦"
[/Quote]