7453
社区成员
- 主页
请问用line input 函数，如何实现逐段读取txt文档的内容？
不是用not eof()全部读取，而是读取一段，显示在一个text框中，再读取一个，再显示出来。比如c:\aaa.txt。里面的内容是
aaa
bbbb
cccc
dddd
我想读取aaa,然后送到text1.text，再读取bbb，再送到text1.text，请问如何实现？？？？？？？？？？
aaa
bbbb
cccc
dddd
我想读取aaa,然后送到text1.text，再读取bbb，再送到text1.text，请问如何实现？？？？？？？？？？
...全文
请发表友善的回复…
发表回复
yunxp 2003-01-15
都很不错啊！！！汗颜！！！我的水平太差了！！
谢谢各位！！请问点那里可以把点数给你们阿？
谢谢各位！！请问点那里可以把点数给你们阿？
laocai8 2003-01-15
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
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
of123 2003-01-15
filedata = ""
Open FileName For Input As #1
Do until EOF(1)
Line Input #1, strline
filedata = filedata + strline + vbCrLf
Loop
Close #1
text1 = filedata
Open FileName For Input As #1
Do until EOF(1)
Line Input #1, strline
filedata = filedata + strline + vbCrLf
Loop
Close #1
text1 = filedata
yunxp 2003-01-15
boybluesky(boybluesky ！！！你的方法也是很好啊！！看来高手可真的是很多阿！！厉害厉害！呵呵
yunxp 2003-01-15
非常感谢你的答复。我觉得你的方法非常的好。
可是如果我一定要用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文档里没有逗号，那不就成了古文了。呵呵。
可是如果我一定要用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文档里没有逗号，那不就成了古文了。呵呵。
龙华 2003-01-15
楼上的不要乱写！！！
以下是一个小软件中的一段。楼主可以参考。
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
以下是一个小软件中的一段。楼主可以参考。
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
智能卡_Snooper 2003-01-15
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
把文本文件内容读取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