以下是引用Artless在2012-11-4 13:59:40的发言:
MsgBox Str(I)
I = I + 1 '判断读了多少行,再给数组分配空间
MsgBox Str(I)
I = I + 1 '判断读了多少行,再给数组分配空间
方二:
Open Text1.Text For Input As #1
While Not EOF(1)
Line Input #1, strLine
MsgBox strLine
Wend
Close #1
2012-11-04 14:40