Dim Str() As String '声明一个字符型数组
Dim I As Long '声明一个长整型变量,下面读文件用到
Open Text1.Text For Input As #1 '打开文件
Do While Not EOF(1) '判断是否到了文件结尾
ReDim Preserve Str(I) '给数组分配空间,
Line Input #1, Str(I) '读取一行放入数组变量中
I = I + 1 '判断读了多少行,再给数组分配空间
MsgBox Str(I)
Loop '循环
Close #1 '关闭文件
------------------
红色行下标越界! 求老师回答下吧 不知道哪里错了。
[ 本帖最后由 豆豆17373 于 2012-11-3 15:09 编辑 ]
Dim I As Long '声明一个长整型变量,下面读文件用到
Open Text1.Text For Input As #1 '打开文件
Do While Not EOF(1) '判断是否到了文件结尾
ReDim Preserve Str(I) '给数组分配空间,
Line Input #1, Str(I) '读取一行放入数组变量中
I = I + 1 '判断读了多少行,再给数组分配空间
MsgBox Str(I)
Loop '循环
Close #1 '关闭文件
------------------
红色行下标越界! 求老师回答下吧 不知道哪里错了。
[ 本帖最后由 豆豆17373 于 2012-11-3 15:09 编辑 ]