Open App.Path & "\QQ.txt" For Input As #1 
n = 0 
Do While EOF(1) 
    n = n + 1 
    Line Input #1, str(n) 
Loop 
Close #1 

源代码如上所示 
运行的时候出现错误：下标越界 

大哥们帮小弟看看 谢谢  
 
  
 作者： 鱼羊小子  2007-8-9 14:23 　 回复此发言    
 
--------------------------------------------------------------------------------
 
2 回复：再问一个问题：怎么一行一行的读取文本  
 n = n + 1  
ReDim Preserve Str(n) 
Line Input #1, str(n)  
 
  
 作者： Ultraman_King   2007-8-9 15:27 　 回复此发言    
 
--------------------------------------------------------------------------------
 
3 回复：再问一个问题：怎么一行一行的读取文本  
 str没有定义数组的下标范围，应该定义成dim str(1000) as string 
或者在你需要的地方 redim  
 
  
 作者： fumky  2007-8-9 15:27 　 回复此发言    
 
--------------------------------------------------------------------------------
 
4 回复：再问一个问题：怎么一行一行的读取文本  
 哦 这样的哦。。。懂了。。。。。 
但有出现了新问题了 

现在的源代码 
Open App.Path & "\1.txt" For Input As #1 
n = 0 
Do While Not EOF(1) 
ReDim Preserve str(n) 
Line Input #1, str(n) 
 n = n + 1 
Loop 
Close #1 

str的每项都是最后一行的数据啊。。。这是怎么回事啊？  
 
  
 作者： 鱼羊小子  2007-8-9 15:41 　 回复此发言    
 
--------------------------------------------------------------------------------
 
5 回复：再问一个问题：怎么一行一行的读取文本  
 Dim appdisk$, aa$, tmpstr$(), i&, n& 'str 别把它当变量名称使用 
Private Sub Command1_Click() 
 appdisk = Trim(App.Path) '你不判断的话qq.txt在c:\时便会出错 
 If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\" 
 If Dir(appdisk & "qq.txt") <> "" Then 
 Open appdisk & "qq.txt" For Input As #1 
 n = 0 
 While Not EOF(1) 
 ReDim Preserve tmpstr$(n) 
 Line Input #1, aa 
 tmpstr(n) = aa 
 n = n + 1 
 Wend 
 Close #1 
 For i = 0 To n - 1 
 Print tmpstr(i) 
 Next i 
 Else 
 MsgBox "无此文件" 
 End If 
End Sub  
 
 贴子相关图片: 
 
 作者： cbm666   2007-8-9 15:47 　 回复此发言    
 
--------------------------------------------------------------------------------
 
6 回复：再问一个问题：怎么一行一行的读取文本  
 Text1.Text = Join(Str, vbCrLf) '显示所有内容