# 读档 ??

Posted by tang on September 18, 1998 at 11:56:55:

For n = 1 To x
Open "d:\vb_test\" & c(n) For Input As #1
j = 0
Do While Not EOF(1)
Line Input #1, readline
j = j + 1
Loop
Close #1
ReDim xArray(j)
ReDim b(j)
Open "d:\vb_test\" & c(n) For Input As #1
For m = 1 To j
Line Input #1, b(m) <--- ** debug here **
Next m
Close #1
Next n

请问在上述一段程式中利用 For 回圈读档计算各档案的行数
再将每一行暂存到 b(m) 中
可是当跑到开第二个档案就会产生 error
WHY ???
Thanks !

Follow Ups:

- Re: 读档 ?? AndyLin 16:07:55 9/18/98 (3)
  - Re: 读档 ?? tang 09:21:39 9/19/98 (2)
    - Re: 读档 ?? AndyLin 09:36:59 9/19/98 (1)
      - Re: 读档 ?? tang 11:12:56 9/19/98 (0)