一个循环的问题

[leonnet]

我想在出来的数据最前头或最后加一行数据，如

3条记录 （加的一行）
210125
210245
145625

但写到代码中出来就成了，每循环一次就要加一行
1条
210125
2条
210245
3条
145625

代码如下，Print #4这两段就是要写进去的，如何改才能得到我要的格式：
Open StrSrcfile For Input As #1
Do Until EOF(1)
j = 0
Line Input #1, strline
strBank = MidX(strline, 12, 10)
If MidX(strBank, 4, 3) = "ICB" Then
If blexist = False Then
blexist = True
Open "2ICBDC" & CStr(Year(Date) * 10000 + Month(Date) * 100 + Day(Date)) & ".TXT" For Output As #4
strfileexist(i) = "2ICBDC" & CStr(Year(Date) * 10000 + Month(Date) * 100 + Day(Date)) & ".TXT"
i = i + 1
Else
Open "2ICBDC" & CStr(Year(Date) * 10000 + Month(Date) * 100 + Day(Date)) & ".TXT" For Append As #4
End If
Casecount = Casecount + 1
Caseamount = Caseamount + Val(strAmount)
Print #4, Casecount & Format(Caseamount, "####0.00")
Print #4, strAmount & "|||"

Close #4
End If
Loop
Close #1

[ccc36]

你先把数据读到数组里，找出数据个数再写不就得了？

[leonnet]

如果改才能实现？

[jhone99]

写在循环外

[神马都能聊]

[Quote=引用 2 楼 leonnet 的回复:]
如果改才能实现？
[/Quote]
如果你实在不会写,你可以用一个比较烂的办法,遍历两次.. 这样行数就有了..

[leonnet]

[Quote=引用 3 楼 jhone99 的回复:]
写在循环外
[/Quote]

不行的，要报错

[simon__sun]

[Quote=引用楼主 leonnet 的帖子:]
我想在出来的数据最前头或最后加一行数据，如

3条记录 （加的一行） [color=#0000FF]加的一行是那个
210125
210245
145625 [/color]

但写到代码中出来就成了，每循环一次就要加一行
1条
210125
2条
210245
3条
145625 这三条和上面三条记录有啥不一样的

代码如下，Print #4这两段就是要写进去的，如何改才能得到我要的格式：
Open StrSrcfile For Input As #1
Do Until EOF(1)
j = 0
Line Input #1, strline
strBank = MidX(strline, 12, 10)…
[/Quote]