再使用open ...as ...#1的时候

Question

Dim filenum As Integer
Dim fileline As String
Open "xx.txt" For Input As filenum
    Do Until EOF(filenum)
        Line Input #filenum, fileline
        ii = ii + 1
        jj = setarray(xx, ii, fileline)
    Loop
    Close filenum

Answer 1

1、使用Do While …… loop
do while not eof(1)
 line input #1,jj(i)
loop
2、使用Do Until …… loop
do until eof(1)
 line input #1,jj(i)
loop

Answer 2

setarray(xx,ii,fileline)???
什么阿？？
不行？？

Answer 3

Dim filenum As Integer
Dim fileline As Stringfilenum = FreeFile
''''''以行输入变量
Open "xx.txt" For Input As filenum
    Do do until eof(filenum)
        Line Input #filenum, fileline
        ii = ii + 1
        jj = setarray(xx, ii, fileline)
    Loop
Close filenum'''''''''''''''''''''''''''''''''
'一次性输入：
dim FileString
Open "xx.txt" For Input As filenum
FileString = InPut(LOF(filenum),filenum)  
   
Close filenum

Answer 4

使用seek ..get..是不是可以计算出文本文件的行数
如果每行固定字数的话