Private Sub next1_Click()
Open "a.txt" For Input As #1
Line Input #1, Nextline
name1.Caption = Nextline
Close #1
End Sub

现在只能读取第一行的内容，如果加了循环语句就直接读到了文件最后一行的内容。下面：
Private Sub next1_Click()
OPEN "a.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1, nextline
name1.Caption = Nextline
LOOP
CLOSE #1
END Sub

我想问一下怎样才能按一下，读取一行，再按一下读取另一行！我要在屏幕显示出的，一下子全读出来没用~~~

请高手教育！！

這樣不好操作吧```其實也很簡單```把文本信息讀入數組中```然后按一下數組下錶+1

[此贴子已经被作者于2006-12-25 19:08:03编辑过]

谢谢！这方法可以。
有没有方法调用ACCESS文档或EXCEL文档，利用指针定位呢？具体怎么操作呢？麻烦大哥

[此贴子已经被作者于2006-12-25 19:41:02编辑过]

VB不能使用指針  如果要讀入內存地阯的話就要用到COPYMEMORY叻```也可以先放入2維數組中方便讀取```

使用fso对象的ReadLine就可以一行一行读取了...它会自动将文件指针移到下一行的...

读取Access文档..还要使用指针?读取内存地址?.使用CopyMomery?不是吧..
直接用ado就可以,ado写可以读取Excel

Private Sub CmdRead_Click()
Dim fsoTest As New FileSystemObject, file1 As file, ts As TextStream, s As String
Set file1 = fsoTest.GetFile("C:\AA.txt")
Set ts = file1.OpenAsTextStream(ForReading)
'读取一行
s = ts.ReadLine
MsgBox s
ts.Close
End Sub
为什么会提示“用户类型定义未定义”？是不是VB版本问题？
连Dim txtfile As file 都提示出错！我用的是VB6简装版

[此贴子已经被作者于2006-12-25 20:11:22编辑过]

这是逐行读取文本的..至于读取数据库access或电子表格..建议你先看看相关的知识..再向这方面 去学学.

谢谢美女，下载好了，学习去咯。1[em07

[此贴子已经被作者于2006-12-25 20:12:28编辑过]

我点了一下..就可以下载了..

Option Explicit
'先添加引用Fso对象模型.
Private fso As New FileSystemObject
Private txtStream As TextStream

Private Sub Form_Load()
Set txtStream = fso.OpenTextFile(App.Path & "\strDemo.txt", ForReading)
End Sub

Private Sub Timer1_Timer()
Dim str As String
If Not txtStream.AtEndOfStream Then
str = txtStream.ReadLine
Print str
Else
Timer1.Enabled = False
txtStream.Close
End If
End Sub