如何给TXT加上000001这样的序号

Question

我有个TXT文件，里边的内容每天都不一样，如为 
6227003834540018568|黄三|39168.00|33000013| 
6227453555570058573|刘三|188.00|33000021| 
6227003815644556724|杨大|20863.00|33000033| 
6227003456733554079|张四|7632.00|33000100| 
6227003453456634480|吴五|815.00|33000097| 
......... 
现在想实现在每一行数据前家序号，如： 
00001|6227003834540018568|黄三|39168.00|33000013| 
00002|6227453555570058573|刘三|188.00|33000021| 
00003|6227003815644556724|杨大|20863.00|33000033| 
......
00012|6227003456733554079|张四|7632.00|33000100| 
00013|6227003453456634480|吴五|815.00|33000097| 
我用
i=i+1Print #4, CStr(i) & "|" & Trim(strAccount) & "|" & Trim(strnam) & "|" & strAmount & "|"只能出来
1|6227003834540018568|黄三|39168.00|33000013| 
2|6227453555570058573|刘三|188.00|33000021| 
3|6227003815644556724|杨大|20863.00|33000033| 
....
12|6227003456733554079|张四|7632.00|33000100| 
13|6227003453456634480|吴五|815.00|33000097| 

Answer 1

Print #4, format(i,"00000") & "|" & Trim(strAccount) & "|" & Trim(strnam) & "|" & strAmount & "|"