大虾们请进，帮我看看咋个解决这个问题？

Question

我是一个VB初学者，我想问下读取一个指定文本文件的每行，并将读取的内容存到一个数组里面要咋样才能实现喃？
请给详细一点的代码，我在这里先谢过了，呵呵！

Answer 1

'假设有n行
dim A(1 to n) As string,fc$，i%
 i=0
  Open Path For Input As #1    '打开文件
       Do While Not EOF(1)
         i=i+1
         Line Input #1, fc       '读入每一行内容
           A(i) =fc     '赋值
        
       Loop
   Close #1

Answer 2

完美地，应该这样
     Dim A(1 to n) As string,myf As Long, FStr$,i%
    myf=FreeFile  ‘使得myf为一个合法非占有通道
    i=1
    Open FilePath For Input As #myf    '打开文件 
        Do While Not EOF(myf)  
           Line Input #myf, FStr      '读入每一行内容
            A(i) =FStr   '将每一行字符赋值到数组
            i=i+1     
        Loop 
    Close #myf

Answer 3

Dim A(1 to n) 如果出现问题，可以考虑Redim A（n）