UC知道vb达人高分求救
来源：百度知道 编辑：UC知道 时间：2024/09/21 20:57:40
下面这段程序用于把电脑里的数据传到一个数组里，哪位达人能给我解释一下，含义及格式。先悬赏50分看有没有人能解释清楚，讲得好还有分加。
CommonDialog1.ShowOpen
i = 1
Open CommonDialog1.FileName For Input As #1 '读取采集到的信号数据到数组
Do While Not EOF(1)
Line Input #1, var1
ReDim Preserve A(i)
A(i) = Val(var1)
i = i + 1
Loop
Close #1
2楼解释的很好，但本人还有些不明白
#1是表示第一行吗； EOF(1)是什么格式；
“Line Input #1, var1 '读取当前行到变量 var1中 ”怎么实现一行一行读取；
A(i)数组，i=1时，数组只能接受一个字符？
CommonDialog1.ShowOpen
i = 1
Open CommonDialog1.FileName For Input As #1 '读取采集到的信号数据到数组
Do While Not EOF(1)
Line Input #1, var1
ReDim Preserve A(i)
A(i) = Val(var1)
i = i + 1
Loop
Close #1
2楼解释的很好，但本人还有些不明白
#1是表示第一行吗； EOF(1)是什么格式；
“Line Input #1, var1 '读取当前行到变量 var1中 ”怎么实现一行一行读取；
A(i)数组，i=1时，数组只能接受一个字符？
CommonDialog1.ShowOpen '调出打开对话框
i = 1 '进行计数
Open CommonDialog1.FileName For Input As #1
'以读的方式打开对话框中选中的文件
Do While Not EOF(1) '当没有读完时,循环读取
Line Input #1, var1 '读取当前行到变量 var1中
ReDim Preserve A(i) '重定义数组,便于后面接收更多的内容提要
A(i) = Val(var1) '将读取到的字符型数据转换成数值型后,赋值给数组 A(i)
i = i + 1 '计数变量增加1
Loop '返回接着读取下一行
Close #1 '关闭打开的文件
#1标示打开的文件号，可以是#2，#3，#4……;
eof(1)判断是否读到文件尾，如果文件读完返回 true,否则返回false,括号里面的参数就是自己定义的文件号;
一行一行的读用line input,读完一行指针自动移动到下一行，并由Do while 循环条件eof(1)判断是否读完，没读完即not eof(1)则接着执行line input,由于指针已经在当前行首，则读出的就是当前行，读完后指针又移到下一行首，如此循环直到eof(1)返回为true,结束循环。全部读取直接用input;
数组A(i)的i是数组编号，不表示接受数据大小；例如A(1)="abc",A(2)="abcdefg"……；