请问用line input 函数，如何实现逐段读取txt文档的内容？

[yunxp]

不是用not eof()全部读取，而是读取一段，显示在一个text框中，再读取一个，再显示出来。比如c:\aaa.txt。里面的内容是
aaa
bbbb
cccc
dddd
我想读取aaa,然后送到text1.text，再读取bbb，再送到text1.text，请问如何实现？？？？？？？？？？

[用户 昵称]

FYI

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As Byte

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile

Text1.Text=StrConv(LoadBytes,vbUniCode)



把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As Byte

SaveBytes=StrConv(Text1.Text,vbFromUniCode)

TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

[龙华]

楼上的不要乱写！！！

以下是一个小软件中的一段。楼主可以参考。
CommonDialog1.ShowOpen
FileName = CommonDialog1.InitDir + CommonDialog1.FileName
'开始读文件

FileName = CStr(FileName)
Open FileName For Input As #1
Line Input #1, Title
Line Input #1, classify
Line Input #1, publisher
Line Input #1, pdate
Line Input #1, edate
lcontent = ""
Do While Not EOF(1)
Line Input #1, strline
lcontent = lcontent + strline + vbCrLf
Loop
Close #1

[yunxp]

非常感谢你的答复。我觉得你的方法非常的好。

可是如果我一定要用line input函数来做呢？有没有办法逐段显示呢？我可以用Line Input #2, a0来读出第一段内容，也可以用do while Eof(2)
Line Input #2, a0
a1 = a1 + a0
Text1.Text = a1
来读出最后一段内容。可是如何用line input读出中间段落的内容呢？

用普通的input函数其实很好实现这个功能。可是input遇到逗号就认为结束了。可是如果我的txt文档里没有逗号，那不就成了古文了。呵呵。

[yunxp]

boybluesky(boybluesky ！！！你的方法也是很好啊！！看来高手可真的是很多阿！！厉害厉害！呵呵

[of123]

filedata = ""
Open FileName For Input As #1
Do until EOF(1)
Line Input #1, strline
filedata = filedata + strline + vbCrLf
Loop
Close #1
text1 = filedata

[laocai8]

Dim aa As FileSystemObject
Dim FileName As String
Dim nextline As String '一行文本内容
Dim fnum As Integer
Dim LineNum As Integer '行数
FileName = "c:\aaa.txt"
If aa.FileExists(FileName) Then
fnum = FreeFile()
Open FileName For Input As #fnum ' 打开输出文件。
LineNum = 0
While EOF(fnum) = False
Line Input #fnum, nextline
text1.text= nextline
MsgBox nextline
Wend
End If

[yunxp]

都很不错啊！！！汗颜！！！我的水平太差了！！

谢谢各位！！请问点那里可以把点数给你们阿？