文件的读写操作！

easonzgf 发布于 2014-12-10 11:14， 364 次点击

Option Base 1
Private Sub Command1_Click()
Static a() As Integer
Open "G:\eason\vb\in.txt" For Input As #1
For i = 1 To 10
   Line Input #1, a(i)
   'Text1.Text = Text1.Text & a(i) & ","

Next i
For j = 1 To 10
  Print a(j)
Next j
End Sub
我想问一下为什么文件in.txt中的数据并没有读到数组中呢？这个程序哪个地方有问题？

2 回复

风吹过b2014-12-10 18:27

你 a 这个数组在那里初始化了？
你定义了静态的可变数组，但没有重新定义数组元素个数。

wmf20142014-12-10 19:07

这个我知道，今天刚学习的。一师哥说你把Static a() As Integer改成dim a(10) as string就可以了，我一试，真的可以运行。快，给分，给分。