读取txt的几个问题

最新推荐文章于 2023-05-26 09:35:44 发布

原创最新推荐文章于 2023-05-26 09:35:44 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #input #command #integer #c

VB专区专栏收录该内容

39 篇文章

订阅专栏

本文介绍使用Visual Basic通过两个按钮分别实现从指定路径读取文本文件并显示全部内容及仅显示前20行的方法。第一个按钮点击后将C盘下的123.TXT文件内容完整展示；第二个按钮则限制读取321.TXT文件的前20行。

点击第一个按钮把C:/123.TXT 读取到 text1 要全部都能显示出来!我试过有的只能显示一行或不能全部显示

第二个按下第二个按钮把 C:/321.TXT 读取到 text2 而且只读取文本的前20行... 后面的省略不读

'text控件的multiline属性都设为true scrollbar属性设成2

'第一个按钮
Private Sub Command1_Click()
Open "c:/123.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Do Until EOF(1)
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1

Text1.Text = Lines
End Sub
'第二个按钮
Private Sub Command2_Click()
Open "c:/321.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Dim i As Integer
For i = 1 To 20
On Error Resume Next
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Next i
Close #1
Text2.Text = Lines
End Sub