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

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

请高手教育！！

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

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

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编辑过]

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

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

用你这个是可以运行的。
可是添加到我的程序中就提示fso As New FileSystemObject用户类型定义未定义。。？？？
怎么回事啊？全部复制过去的。

姐姐真好，一步一步的教我！！

Option Explicit
'先添加引用Fso对象模型.
Private fso As New FileSystemObject
Private txtStream As TextStream
Private Sub Form_Load()
Set txtStream = fso.OpenTextFile(App.Path & "\user.txt", ForReading)
End Sub

Private Sub next1_Click()

Dim str As String
If Not txtStream.AtEndOfStream Then
str = txtStream.ReadLine
name1.Caption = str
Else
？？？？？？？？？？？
txtStream.Close
End If
End Sub
我把这些放在程序的顶部了~
可一运行就提示第一行的Private fso As New FileSystemObject 用户定义类型未定义
单独把上面这段程序放在一个空的FORM里一切正常呀~~~~还有个问题，读到文件尾怎么办？再继续
读下去就出错了~

Private fso As New FileSystemObject
Private txtStream As TextStream
不就引用了吗？

谢谢斑竹！！！你是最棒的！！好想找你签名