vb读文件能不能显示文件尾 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → vb读文件能不能显示文件尾

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1381 人关注过本帖

标题：vb读文件能不能显示文件尾

取消只看楼主加入收藏

rich_ying

等　级：新手上路
帖　子：26
专家分：0
注　册：2006-12-22

楼主

问题点数：0 回复次数：2

vb读文件能不能显示文件尾

以下代码是从文件abc.txt里读文件到文本框中,可是读文件结束后,我们看到的是文件头部分,
而我想看到的是文件尾部分,希望滚动条会滚动到最后,如何做
Text1.Text = ""
fno = FreeFile
Open "e:/abc.txt" For Input As #fno
Do Until EOF(fno) then
Line Input #fno, newline
Text1.Text = Text1.Text & Trim(newline) & Chr(13) + Chr(10)
Loop
Close #fno

图片附件: 游客没有浏览图片的权限，请登录或注册

[此贴子已经被作者于2006-12-22 10:17:24编辑过]

搜索更多相关主题的帖子: 文件　

2006-12-22 10:13

rich_ying

等　级：新手上路
帖　子：26
专家分：0
注　册：2006-12-22

第 2 楼

得分:0

看不懂

2006-12-22 11:31

rich_ying

等　级：新手上路
帖　子：26
专家分：0
注　册：2006-12-22

第 3 楼

得分:0

以下是引用slore在2006-12-22 14:10:47的发言：

Option Explicit

Private Sub Command1_Click()
Dim strLine As String

Open App.Path & "\Iamtxt.txt" For Input As #1
While Not EOF(1)
Line Input #1, strLine
Text1 = Text1 & strLine & vbCrLf
Wend
Close
Text1.SelStart = Len(Text1)
End Sub

英雄,真是厉害,小弟多谢了

2006-12-22 15:10

快速回复：vb读文件能不能显示文件尾