Open
pathname
For
mode
[Access
access]
[lock]
As
[#]filenumber
[Len=reclength]
实例:打开d:\demo.dat
Dim
TextLine
Open
"d:\demo.dat"
For
Input
As
#1
\'
打开文件。
Do
While
Not
EOF(1)
\'
循环至文件尾。
Line
Input
#1,
TextLine
\'
读入一行数据并将其赋予某变量
你循环错了你用for好了
改成
Open "d:\vb\stulnfo.dat" For Input As #1
ReDim myArray(LOF(1))
For i = 1 To 4
Line Input #1, myArray(i)
Next i
Close #1
For i = 1 To 4
Print myArray(i)
Next i
如果你要添加记录什么的不只4条的话,就就在第一行写下总共的行数再读取第一行为末尾条数就可以了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)